Mercurial > emacs
annotate src/w32heap.c @ 22745:ef9607e709bc
(Fw32_set_clipboard_data): Set Vlast_coding_system_used.
(Fw32_get_clipboard_data): Likewise.
author | Andrew Innes <andrewi@gnu.org> |
---|---|
date | Sun, 12 Jul 1998 20:24:23 +0000 |
parents | 2595beed0362 |
children | 79e077f57e7c |
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 | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
24 #include "config.h" |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
25 |
9803 | 26 #include <stdlib.h> |
27 #include <stdio.h> | |
28 | |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
29 #include "w32heap.h" |
15143
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
30 #include "lisp.h" /* for VALMASK */ |
9803 | 31 |
32 /* This gives us the page size and the size of the allocation unit on NT. */ | |
33 SYSTEM_INFO sysinfo_cache; | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
34 unsigned long syspage_mask = 0; |
9803 | 35 |
36 /* These are defined to get Emacs to compile, but are not used. */ | |
37 int edata; | |
38 int etext; | |
39 | |
40 /* 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
|
41 int w32_major_version; |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15228
diff
changeset
|
42 int w32_minor_version; |
9803 | 43 |
19708
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
44 /* Distinguish between Windows NT and Windows 95. */ |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
45 int os_subtype; |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
46 |
9803 | 47 /* Cache information describing the NT system for later use. */ |
48 void | |
49 cache_system_info (void) | |
50 { | |
51 union | |
52 { | |
53 struct info | |
54 { | |
55 char major; | |
56 char minor; | |
57 short platform; | |
58 } info; | |
59 DWORD data; | |
60 } version; | |
61 | |
62 /* Cache the version of the operating system. */ | |
63 version.data = GetVersion (); | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15228
diff
changeset
|
64 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
|
65 w32_minor_version = version.info.minor; |
9803 | 66 |
19708
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
67 if (version.info.platform & 0x8000) |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
68 os_subtype = OS_WIN95; |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
69 else |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
70 os_subtype = OS_NT; |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
71 |
9803 | 72 /* Cache page size, allocation unit, processor type, etc. */ |
73 GetSystemInfo (&sysinfo_cache); | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
74 syspage_mask = sysinfo_cache.dwPageSize - 1; |
9803 | 75 } |
76 | |
18506
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
77 /* Emulate getpagesize. */ |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
78 int |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
79 getpagesize (void) |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
80 { |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
81 return sysinfo_cache.dwPageSize; |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
82 } |
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
83 |
9803 | 84 /* Round ADDRESS up to be aligned with ALIGN. */ |
85 unsigned char * | |
86 round_to_next (unsigned char *address, unsigned long align) | |
87 { | |
88 unsigned long tmp; | |
89 | |
90 tmp = (unsigned long) address; | |
91 tmp = (tmp + align - 1) / align; | |
92 | |
93 return (unsigned char *) (tmp * align); | |
94 } | |
95 | |
96 /* Info for keeping track of our heap. */ | |
97 unsigned char *data_region_base = NULL; | |
98 unsigned char *data_region_end = NULL; | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
99 unsigned char *real_data_region_end = NULL; |
9803 | 100 unsigned long data_region_size = 0; |
11943
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
101 unsigned long reserved_heap_size = 0; |
9803 | 102 |
103 /* The start of the data segment. */ | |
104 unsigned char * | |
105 get_data_start (void) | |
106 { | |
107 return data_region_base; | |
108 } | |
109 | |
110 /* The end of the data segment. */ | |
111 unsigned char * | |
112 get_data_end (void) | |
113 { | |
114 return data_region_end; | |
115 } | |
116 | |
11943
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
117 static char * |
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
118 allocate_heap (void) |
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
119 { |
15143
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
120 /* The base address for our GNU malloc heap is chosen in conjuction |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
121 with the link settings for temacs.exe which control the stack size, |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
122 the initial default process heap size and the executable image base |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
123 address. The link settings and the malloc heap base below must all |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
124 correspond; the relationship between these values depends on how NT |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16593
diff
changeset
|
125 and Windows 95 arrange the virtual address space for a process (and on |
15143
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
126 the size of the code and data segments in temacs.exe). |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
127 |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
128 The most important thing is to make base address for the executable |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
129 image high enough to leave enough room between it and the 4MB floor |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16593
diff
changeset
|
130 of the process address space on Windows 95 for the primary thread stack, |
15143
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
131 the process default heap, and other assorted odds and ends |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
132 (eg. environment strings, private system dll memory etc) that are |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
133 allocated before temacs has a chance to grab its malloc arena. The |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
134 malloc heap base can then be set several MB higher than the |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
135 executable image base, leaving enough room for the code and data |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
136 segments. |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
137 |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
138 Because some parts of Emacs can use rather a lot of stack space |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
139 (for instance, the regular expression routines can potentially |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
140 allocate several MB of stack space) we allow 8MB for the stack. |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
141 |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
142 Allowing 1MB for the default process heap, and 1MB for odds and |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
143 ends, we can base the executable at 16MB and still have a generous |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
144 safety margin. At the moment, the executable has about 810KB of |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
145 code (for x86) and about 550KB of data - on RISC platforms the code |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
146 size could be roughly double, so if we allow 4MB for the executable |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
147 we will have plenty of room for expansion. |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
148 |
15208
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
149 Thus we would like to set the malloc heap base to 20MB. However, |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16593
diff
changeset
|
150 Windows 95 refuses to allocate the heap starting at this address, so we |
15208
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
151 set the base to 27MB to make it happy. Since Emacs now leaves |
15143
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
152 28 bits available for pointers, this lets us use the remainder of |
15208
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
153 the region below the 256MB line for our malloc arena - 229MB is |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
154 still a pretty decent arena to play in! */ |
15143
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
155 |
15208
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
156 unsigned long base = 0x01B00000; /* 27MB */ |
15143
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
157 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
|
158 void *ptr = NULL; |
11943
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
159 |
15228
ae9888a75348
(allocate_heap): Clean up conditional.
Richard M. Stallman <rms@gnu.org>
parents:
15208
diff
changeset
|
160 #if NTHEAP_PROBE_BASE /* This is never normally defined */ |
ae9888a75348
(allocate_heap): Clean up conditional.
Richard M. Stallman <rms@gnu.org>
parents:
15208
diff
changeset
|
161 /* Try various addresses looking for one the kernel will let us have. */ |
15208
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
162 while (!ptr && (base < end)) |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
163 { |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
164 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
|
165 ptr = VirtualAlloc ((void *) base, |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
166 get_reserved_heap_size (), |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
167 MEM_RESERVE, |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
168 PAGE_NOACCESS); |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
169 base += 0x00100000; /* 1MB increment */ |
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
170 } |
15228
ae9888a75348
(allocate_heap): Clean up conditional.
Richard M. Stallman <rms@gnu.org>
parents:
15208
diff
changeset
|
171 #else |
ae9888a75348
(allocate_heap): Clean up conditional.
Richard M. Stallman <rms@gnu.org>
parents:
15208
diff
changeset
|
172 reserved_heap_size = end - base; |
ae9888a75348
(allocate_heap): Clean up conditional.
Richard M. Stallman <rms@gnu.org>
parents:
15208
diff
changeset
|
173 ptr = VirtualAlloc ((void *) base, |
ae9888a75348
(allocate_heap): Clean up conditional.
Richard M. Stallman <rms@gnu.org>
parents:
15208
diff
changeset
|
174 get_reserved_heap_size (), |
ae9888a75348
(allocate_heap): Clean up conditional.
Richard M. Stallman <rms@gnu.org>
parents:
15208
diff
changeset
|
175 MEM_RESERVE, |
ae9888a75348
(allocate_heap): Clean up conditional.
Richard M. Stallman <rms@gnu.org>
parents:
15208
diff
changeset
|
176 PAGE_NOACCESS); |
15208
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
177 #endif |
15228
ae9888a75348
(allocate_heap): Clean up conditional.
Richard M. Stallman <rms@gnu.org>
parents:
15208
diff
changeset
|
178 |
15208
01588278fceb
(allocate_heap): Bump heap base up to 27MB to
Geoff Voelker <voelker@cs.washington.edu>
parents:
15143
diff
changeset
|
179 return ptr; |
11943
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
180 } |
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
181 |
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
182 |
9803 | 183 /* Emulate Unix sbrk. */ |
184 void * | |
185 sbrk (unsigned long increment) | |
186 { | |
187 void *result; | |
188 long size = (long) increment; | |
189 | |
190 /* Allocate our heap if we haven't done so already. */ | |
191 if (!data_region_base) | |
192 { | |
11943
ea533622fb8b
(reserved_heap_size,allocate_heap): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11385
diff
changeset
|
193 data_region_base = allocate_heap (); |
9803 | 194 if (!data_region_base) |
195 return NULL; | |
196 | |
15143
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
197 /* Ensure that the addresses don't use the upper tag bits since |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
198 the Lisp type goes there. */ |
d7d0413e95e2
Include lisp.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
199 if (((unsigned long) data_region_base & ~VALMASK) != 0) |
9803 | 200 { |
201 printf ("Error: The heap was allocated in upper memory.\n"); | |
202 exit (1); | |
203 } | |
204 | |
205 data_region_end = data_region_base; | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
206 real_data_region_end = data_region_end; |
9803 | 207 data_region_size = get_reserved_heap_size (); |
208 } | |
209 | |
210 result = data_region_end; | |
211 | |
212 /* If size is negative, shrink the heap by decommitting pages. */ | |
213 if (size < 0) | |
214 { | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
215 int new_size; |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
216 unsigned char *new_data_region_end; |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
217 |
9803 | 218 size = -size; |
219 | |
220 /* Sanity checks. */ | |
221 if ((data_region_end - size) < data_region_base) | |
222 return NULL; | |
223 | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
224 /* We can only decommit full pages, so allow for |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
225 partial deallocation [cga]. */ |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
226 new_data_region_end = (data_region_end - size); |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
227 new_data_region_end = (unsigned char *) |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
228 ((long) (new_data_region_end + syspage_mask) & ~syspage_mask); |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
229 new_size = real_data_region_end - new_data_region_end; |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
230 real_data_region_end = new_data_region_end; |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
231 if (new_size > 0) |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
232 { |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
233 /* Decommit size bytes from the end of the heap. */ |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
234 if (!VirtualFree (real_data_region_end, new_size, MEM_DECOMMIT)) |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
235 return NULL; |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
236 } |
9803 | 237 |
238 data_region_end -= size; | |
239 } | |
240 /* If size is positive, grow the heap by committing reserved pages. */ | |
241 else if (size > 0) | |
242 { | |
243 /* Sanity checks. */ | |
244 if ((data_region_end + size) > | |
245 (data_region_base + get_reserved_heap_size ())) | |
246 return NULL; | |
247 | |
248 /* Commit more of our heap. */ | |
249 if (VirtualAlloc (data_region_end, size, MEM_COMMIT, | |
250 PAGE_READWRITE) == NULL) | |
251 return NULL; | |
252 data_region_end += size; | |
12452
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
253 |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
254 /* We really only commit full pages, so record where |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
255 the real end of committed memory is [cga]. */ |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
256 real_data_region_end = (unsigned char *) |
bd304be0b491
Include config.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11943
diff
changeset
|
257 ((long) (data_region_end + syspage_mask) & ~syspage_mask); |
9803 | 258 } |
259 | |
260 return result; | |
261 } | |
262 | |
263 /* Recreate the heap from the data that was dumped to the executable. | |
264 EXECUTABLE_PATH tells us where to find the executable. */ | |
265 void | |
266 recreate_heap (char *executable_path) | |
267 { | |
268 unsigned char *tmp; | |
269 | |
270 /* First reserve the upper part of our heap. (We reserve first | |
271 because there have been problems in the past where doing the | |
272 mapping first has loaded DLLs into the VA space of our heap.) */ | |
273 tmp = VirtualAlloc ((void *) get_heap_end (), | |
274 get_reserved_heap_size () - get_committed_heap_size (), | |
275 MEM_RESERVE, | |
276 PAGE_NOACCESS); | |
277 if (!tmp) | |
21609
2595beed0362
(recreate_heap): Invoke w32_fatal_reload_error upon error.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19708
diff
changeset
|
278 w32_fatal_reload_error ("Reserving upper heap address space."); |
9803 | 279 |
280 /* We read in the data for the .bss section from the executable | |
281 first and map in the heap from the executable second to prevent | |
282 any funny interactions between file I/O and file mapping. */ | |
283 read_in_bss (executable_path); | |
284 map_in_heap (executable_path); | |
19708
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
285 |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
286 /* Update system version information to match current system. */ |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
287 cache_system_info (); |
9803 | 288 } |
289 | |
290 /* Round the heap up to the given alignment. */ | |
291 void | |
292 round_heap (unsigned long align) | |
293 { | |
294 unsigned long needs_to_be; | |
295 unsigned long need_to_alloc; | |
296 | |
297 needs_to_be = (unsigned long) round_to_next (get_heap_end (), align); | |
298 need_to_alloc = needs_to_be - (unsigned long) get_heap_end (); | |
299 | |
300 if (need_to_alloc) | |
301 sbrk (need_to_alloc); | |
302 } | |
19708
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 #if (_MSC_VER >= 1000) |
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 /* 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
|
307 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
|
308 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
|
309 is not performed. */ |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
310 |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
311 int __cdecl |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
312 _heap_init (void) |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
313 { |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
314 /* Stepping through the assembly indicates that mainCRTStartup is |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
315 expecting a nonzero success return value. */ |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
316 return 1; |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
317 } |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
318 |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
319 void __cdecl |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
320 _heap_term (void) |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
321 { |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
322 return; |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
323 } |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
324 |
16e69fbdbf0f
(os_subtype): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
325 #endif |