Mercurial > emacs
annotate src/w32heap.c @ 58460:fbd266022300
(substitute-key-definition-key): Optimize. Don't
call indirect-function for nil defn (always signals error).
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Tue, 23 Nov 2004 15:23:57 +0000 |
parents | 272f0851d05e |
children | 292c20627319 4c90ffeb71c5 |
rev | line source |
---|---|
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16593
diff
changeset
|
1 /* Heap management routines for GNU Emacs on the Microsoft W32 API. |
9803 | 2 Copyright (C) 1994 Free Software Foundation, Inc. |
3 | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
4 This file is part of GNU Emacs. |
9803 | 5 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
6 GNU Emacs is free software; you can redistribute it and/or modify |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
7 it under the terms of the GNU General Public License as published by |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
9 any later version. |
9803 | 10 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
11 GNU Emacs is distributed in the hope that it will be useful, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
14 GNU General Public License for more details. |
9803 | 15 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
16 You should have received a copy of the GNU General Public License |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
17 along with GNU Emacs; see the file COPYING. If not, write to |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12452
diff
changeset
|
19 Boston, MA 02111-1307, USA. |
9803 | 20 |
21 Geoff Voelker (voelker@cs.washington.edu) 7-29-94 | |
22 */ | |
23 | |
42469 | 24 #ifdef HAVE_CONFIG_H |
25 #include <config.h> | |
26 #endif | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
27 |
9803 | 28 #include <stdlib.h> |
29 #include <stdio.h> | |
30 | |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
31 #include "w32heap.h" |
15143
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
32 #include "lisp.h" /* for VALMASK */ |
9803 | 33 |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
34 #undef RVA_TO_PTR |
31111
14beb147ec06
[!USE_CRT_DLL]: Don't define _heap_init and _heap_term
Andrew Innes <andrewi@gnu.org>
parents:
24886
diff
changeset
|
35 #define RVA_TO_PTR(rva) ((unsigned char *)((DWORD)(rva) + (DWORD)GetModuleHandle (NULL))) |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
36 |
9803 | 37 /* This gives us the page size and the size of the allocation unit on NT. */ |
38 SYSTEM_INFO sysinfo_cache; | |
24886
fb9574318fa0
w32heap.c (osinfo_cache): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24103
diff
changeset
|
39 |
fb9574318fa0
w32heap.c (osinfo_cache): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24103
diff
changeset
|
40 /* This gives us version, build, and platform identification. */ |
fb9574318fa0
w32heap.c (osinfo_cache): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24103
diff
changeset
|
41 OSVERSIONINFO osinfo_cache; |
fb9574318fa0
w32heap.c (osinfo_cache): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24103
diff
changeset
|
42 |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
43 unsigned long syspage_mask = 0; |
9803 | 44 |
45 /* These are defined to get Emacs to compile, but are not used. */ | |
46 int edata; | |
47 int etext; | |
48 | |
49 /* The major and minor versions of NT. */ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15228
diff
changeset
|
50 int w32_major_version; |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15228
diff
changeset
|
51 int w32_minor_version; |
33215
38e1998861ff
(w32_build_number): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
31111
diff
changeset
|
52 int w32_build_number; |
9803 | 53 |
19708
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
54 /* Distinguish between Windows NT and Windows 95. */ |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
55 int os_subtype; |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
56 |
9803 | 57 /* Cache information describing the NT system for later use. */ |
58 void | |
59 cache_system_info (void) | |
60 { | |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
61 union |
9803 | 62 { |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
63 struct info |
9803 | 64 { |
65 char major; | |
66 char minor; | |
67 short platform; | |
68 } info; | |
69 DWORD data; | |
70 } version; | |
71 | |
72 /* Cache the version of the operating system. */ | |
73 version.data = GetVersion (); | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15228
diff
changeset
|
74 w32_major_version = version.info.major; |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15228
diff
changeset
|
75 w32_minor_version = version.info.minor; |
9803 | 76 |
19708
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
77 if (version.info.platform & 0x8000) |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
78 os_subtype = OS_WIN95; |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
79 else |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
80 os_subtype = OS_NT; |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
81 |
9803 | 82 /* Cache page size, allocation unit, processor type, etc. */ |
83 GetSystemInfo (&sysinfo_cache); | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
84 syspage_mask = sysinfo_cache.dwPageSize - 1; |
24886
fb9574318fa0
w32heap.c (osinfo_cache): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24103
diff
changeset
|
85 |
fb9574318fa0
w32heap.c (osinfo_cache): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24103
diff
changeset
|
86 /* Cache os info. */ |
fb9574318fa0
w32heap.c (osinfo_cache): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24103
diff
changeset
|
87 osinfo_cache.dwOSVersionInfoSize = sizeof (OSVERSIONINFO); |
fb9574318fa0
w32heap.c (osinfo_cache): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24103
diff
changeset
|
88 GetVersionEx (&osinfo_cache); |
33215
38e1998861ff
(w32_build_number): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
31111
diff
changeset
|
89 |
38e1998861ff
(w32_build_number): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
31111
diff
changeset
|
90 w32_build_number = osinfo_cache.dwBuildNumber; |
38e1998861ff
(w32_build_number): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
31111
diff
changeset
|
91 if (os_subtype == OS_WIN95) |
38e1998861ff
(w32_build_number): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
31111
diff
changeset
|
92 w32_build_number &= 0xffff; |
9803 | 93 } |
94 | |
18506
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
95 /* Emulate getpagesize. */ |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
96 int |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
97 getpagesize (void) |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
98 { |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
99 return sysinfo_cache.dwPageSize; |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
100 } |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
101 |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
102 /* Info for managing our preload heap, which is essentially a fixed size |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
103 data area in the executable. */ |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
104 PIMAGE_SECTION_HEADER preload_heap_section; |
9803 | 105 |
106 /* Info for keeping track of our heap. */ | |
107 unsigned char *data_region_base = NULL; | |
108 unsigned char *data_region_end = NULL; | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
109 unsigned char *real_data_region_end = NULL; |
11943
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
110 unsigned long reserved_heap_size = 0; |
9803 | 111 |
112 /* The start of the data segment. */ | |
113 unsigned char * | |
114 get_data_start (void) | |
115 { | |
116 return data_region_base; | |
117 } | |
118 | |
119 /* The end of the data segment. */ | |
120 unsigned char * | |
121 get_data_end (void) | |
122 { | |
123 return data_region_end; | |
124 } | |
125 | |
11943
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
126 static char * |
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
127 allocate_heap (void) |
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
128 { |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
129 /* Try to get as much as possible of the address range from the end of |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
130 the preload heap section up to the usable address limit. Since GNU |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
131 malloc can handle gaps in the memory it gets from sbrk, we can |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
132 simply set the sbrk pointer to the base of the new heap region. */ |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
133 unsigned long base = |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
134 ROUND_UP ((RVA_TO_PTR (preload_heap_section->VirtualAddress) |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
135 + preload_heap_section->Misc.VirtualSize), |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
136 get_allocation_unit ()); |
15143
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
137 unsigned long end = 1 << VALBITS; /* 256MB */ |
15208
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
138 void *ptr = NULL; |
11943
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
139 |
15208
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
140 while (!ptr && (base < end)) |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
141 { |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
142 reserved_heap_size = end - base; |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
143 ptr = VirtualAlloc ((void *) base, |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
144 get_reserved_heap_size (), |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
145 MEM_RESERVE, |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
146 PAGE_NOACCESS); |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
147 base += 0x00100000; /* 1MB increment */ |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
148 } |
15228
ae9888a75348
(allocate_heap): Clean up conditional.
Richard M. Stallman <rms@gnu.org>
parents:
15208
diff
changeset
|
149 |
15208
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
150 return ptr; |
11943
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
151 } |
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
152 |
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
153 |
9803 | 154 /* Emulate Unix sbrk. */ |
155 void * | |
156 sbrk (unsigned long increment) | |
157 { | |
158 void *result; | |
159 long size = (long) increment; | |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
160 |
9803 | 161 result = data_region_end; |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
162 |
9803 | 163 /* If size is negative, shrink the heap by decommitting pages. */ |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
164 if (size < 0) |
9803 | 165 { |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
166 int new_size; |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
167 unsigned char *new_data_region_end; |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
168 |
9803 | 169 size = -size; |
170 | |
171 /* Sanity checks. */ | |
172 if ((data_region_end - size) < data_region_base) | |
173 return NULL; | |
174 | |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
175 /* We can only decommit full pages, so allow for |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
176 partial deallocation [cga]. */ |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
177 new_data_region_end = (data_region_end - size); |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
178 new_data_region_end = (unsigned char *) |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
179 ((long) (new_data_region_end + syspage_mask) & ~syspage_mask); |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
180 new_size = real_data_region_end - new_data_region_end; |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
181 real_data_region_end = new_data_region_end; |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
182 if (new_size > 0) |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
183 { |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
184 /* Decommit size bytes from the end of the heap. */ |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
185 if (using_dynamic_heap |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
186 && !VirtualFree (real_data_region_end, new_size, MEM_DECOMMIT)) |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
187 return NULL; |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
188 } |
9803 | 189 |
190 data_region_end -= size; | |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
191 } |
9803 | 192 /* If size is positive, grow the heap by committing reserved pages. */ |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
193 else if (size > 0) |
9803 | 194 { |
195 /* Sanity checks. */ | |
196 if ((data_region_end + size) > | |
197 (data_region_base + get_reserved_heap_size ())) | |
198 return NULL; | |
199 | |
200 /* Commit more of our heap. */ | |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
201 if (using_dynamic_heap |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
202 && VirtualAlloc (data_region_end, size, MEM_COMMIT, |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
203 PAGE_READWRITE) == NULL) |
9803 | 204 return NULL; |
205 data_region_end += size; | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
206 |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
207 /* We really only commit full pages, so record where |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
208 the real end of committed memory is [cga]. */ |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
209 real_data_region_end = (unsigned char *) |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
210 ((long) (data_region_end + syspage_mask) & ~syspage_mask); |
9803 | 211 } |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
212 |
9803 | 213 return result; |
214 } | |
215 | |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
216 /* Initialize the internal heap variables used by sbrk. When running in |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
217 preload phase (ie. in the undumped executable), we rely entirely on a |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
218 fixed size heap section included in the .exe itself; this is |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
219 preserved during dumping, and truncated to the size actually used. |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
220 |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
221 When running in the dumped executable, we reserve as much as possible |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
222 of the address range that is addressable by Lisp object pointers, to |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
223 supplement what is left of the preload heap. Although we cannot rely |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
224 on the dynamically allocated arena being contiguous with the static |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
225 heap area, it is not a problem because sbrk can pretend that the gap |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
226 was allocated by something else; GNU malloc detects when there is a |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
227 jump in the sbrk values, and starts a new heap block. */ |
9803 | 228 void |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
229 init_heap () |
9803 | 230 { |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
231 PIMAGE_DOS_HEADER dos_header; |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
232 PIMAGE_NT_HEADERS nt_header; |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
233 |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
234 dos_header = (PIMAGE_DOS_HEADER) RVA_TO_PTR (0); |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
235 nt_header = (PIMAGE_NT_HEADERS) (((unsigned long) dos_header) + |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
236 dos_header->e_lfanew); |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
237 preload_heap_section = find_section ("EMHEAP", nt_header); |
9803 | 238 |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
239 if (using_dynamic_heap) |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
240 { |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
241 data_region_base = allocate_heap (); |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
242 if (!data_region_base) |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
243 { |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
244 printf ("Error: Could not reserve dynamic heap area.\n"); |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
245 exit (1); |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
246 } |
9803 | 247 |
55661
272f0851d05e
[USE_LSB_TAG]: Don't check heap location.
Jason Rumney <jasonr@gnu.org>
parents:
52401
diff
changeset
|
248 #if defined (NO_UNION_TYPE) && !defined (USE_LSB_TAG) |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
249 /* Ensure that the addresses don't use the upper tag bits since |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
250 the Lisp type goes there. */ |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
251 if (((unsigned long) data_region_base & ~VALMASK) != 0) |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
252 { |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
253 printf ("Error: The heap was allocated in upper memory.\n"); |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
254 exit (1); |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
255 } |
55661
272f0851d05e
[USE_LSB_TAG]: Don't check heap location.
Jason Rumney <jasonr@gnu.org>
parents:
52401
diff
changeset
|
256 #endif |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
257 data_region_end = data_region_base; |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
258 real_data_region_end = data_region_end; |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
259 } |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
260 else |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
261 { |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
262 data_region_base = RVA_TO_PTR (preload_heap_section->VirtualAddress); |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
263 data_region_end = data_region_base; |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
264 real_data_region_end = data_region_end; |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
265 reserved_heap_size = preload_heap_section->Misc.VirtualSize; |
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
266 } |
19708
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
267 |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
268 /* Update system version information to match current system. */ |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
269 cache_system_info (); |
9803 | 270 } |
271 | |
272 /* Round the heap up to the given alignment. */ | |
273 void | |
274 round_heap (unsigned long align) | |
275 { | |
276 unsigned long needs_to_be; | |
277 unsigned long need_to_alloc; | |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
278 |
24103
4adfa5300fd8
(RVA_TO_PTR): Redefine to convert RVA to address in
Andrew Innes <andrewi@gnu.org>
parents:
23171
diff
changeset
|
279 needs_to_be = (unsigned long) ROUND_UP (get_heap_end (), align); |
9803 | 280 need_to_alloc = needs_to_be - (unsigned long) get_heap_end (); |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
281 |
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
282 if (need_to_alloc) |
9803 | 283 sbrk (need_to_alloc); |
284 } | |
19708
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
285 |
48046
e81472bb5044
Don't redefine _heap_init and _heap_term on MSVC 7 build environments. Patch
Juanma Barranquero <lekktu@gmail.com>
parents:
42469
diff
changeset
|
286 #if (_MSC_VER >= 1000 && _MSC_VER < 1300 && !defined(USE_CRT_DLL)) |
19708
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
287 |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
288 /* MSVC 4.2 invokes these functions from mainCRTStartup to initialize |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
289 a heap via HeapCreate. They are normally defined by the runtime, |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
290 but we override them here so that the unnecessary HeapCreate call |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
291 is not performed. */ |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
292 |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
293 int __cdecl |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
294 _heap_init (void) |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
295 { |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
296 /* Stepping through the assembly indicates that mainCRTStartup is |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
297 expecting a nonzero success return value. */ |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
298 return 1; |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
299 } |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
300 |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
301 void __cdecl |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
302 _heap_term (void) |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
303 { |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
304 return; |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
305 } |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
306 |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
307 #endif |
52401 | 308 |
309 /* arch-tag: 9a6a9860-040d-422d-8905-450dd535cd9c | |
310 (do not change this comment) */ |