Mercurial > emacs
annotate src/unexw32.c @ 23460:94f4ba741f22
(exec_sentinel, read_process_output):
Restore waiting_for_user_input_p after running Lisp code.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 14 Oct 1998 14:36:33 +0000 |
parents | ce79e5edf080 |
children | 5d7a43e8b133 |
rev | line source |
---|---|
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1 /* unexec for GNU Emacs on Windows NT. |
12245 | 2 Copyright (C) 1994 Free Software Foundation, Inc. |
3 | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
4 This file is part of GNU Emacs. |
12245 | 5 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
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:
14036
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:
14036
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:
14036
diff
changeset
|
9 any later version. |
12245 | 10 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
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:
14036
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:
14036
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:
14036
diff
changeset
|
14 GNU General Public License for more details. |
12245 | 15 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
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:
14036
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:
14036
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:
14036
diff
changeset
|
19 Boston, MA 02111-1307, USA. |
12245 | 20 |
21 Geoff Voelker (voelker@cs.washington.edu) 8-12-94 | |
22 */ | |
23 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
24 #include <config.h> |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
25 |
12245 | 26 #include <stdlib.h> /* _fmode */ |
27 #include <stdio.h> | |
28 #include <fcntl.h> | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
29 #include <time.h> |
12245 | 30 #include <windows.h> |
31 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
32 /* Include relevant definitions from IMAGEHLP.H, which can be found |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
33 in \\win32sdk\mstools\samples\image\include\imagehlp.h. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
34 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
35 PIMAGE_NT_HEADERS |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
36 (__stdcall * pfnCheckSumMappedFile) (LPVOID BaseAddress, |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
37 DWORD FileLength, |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
38 LPDWORD HeaderSum, |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
39 LPDWORD CheckSum); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
40 |
12245 | 41 extern BOOL ctrl_c_handler (unsigned long type); |
42 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
43 extern char my_begdata[]; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
44 extern char my_edata[]; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
45 extern char my_begbss[]; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
46 extern char my_endbss[]; |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
47 extern char *my_begbss_static; |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
48 extern char *my_endbss_static; |
12245 | 49 |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
50 #include "w32heap.h" |
18506
bcc706aedcea
Add pragma to force zero initialized
Geoff Voelker <voelker@cs.washington.edu>
parents:
16593
diff
changeset
|
51 |
21456 | 52 #undef min |
53 #undef max | |
54 #define min(x, y) (((x) < (y)) ? (x) : (y)) | |
55 #define max(x, y) (((x) > (y)) ? (x) : (y)) | |
56 | |
12245 | 57 /* Basically, our "initialized" flag. */ |
58 BOOL need_to_recreate_heap = FALSE; | |
59 | |
60 /* So we can find our heap in the file to recreate it. */ | |
61 unsigned long heap_index_in_executable = 0; | |
62 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
63 int open_input_file (file_data *p_file, char *name); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
64 int open_output_file (file_data *p_file, char *name, unsigned long size); |
12245 | 65 void close_file_data (file_data *p_file); |
66 | |
67 void get_section_info (file_data *p_file); | |
68 void copy_executable_and_dump_data_section (file_data *, file_data *); | |
69 void dump_bss_and_heap (file_data *p_infile, file_data *p_outfile); | |
70 | |
71 /* Cached info about the .data section in the executable. */ | |
72 PUCHAR data_start_va = 0; | |
73 DWORD data_start_file = 0; | |
74 DWORD data_size = 0; | |
75 | |
76 /* Cached info about the .bss section in the executable. */ | |
77 PUCHAR bss_start = 0; | |
78 DWORD bss_size = 0; | |
79 | |
13423
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
80 #ifdef HAVE_NTGUI |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
81 HINSTANCE hinst = NULL; |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
82 HINSTANCE hprevinst = NULL; |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
83 LPSTR lpCmdLine = ""; |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
84 int nCmdShow = 0; |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
85 #endif /* HAVE_NTGUI */ |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
86 |
12245 | 87 /* Startup code for running on NT. When we are running as the dumped |
88 version, we need to bootstrap our heap and .bss section into our | |
89 address space before we can actually hand off control to the startup | |
90 code supplied by NT (primarily because that code relies upon malloc ()). */ | |
91 void | |
92 _start (void) | |
93 { | |
94 extern void mainCRTStartup (void); | |
95 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
96 #if 0 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
97 /* Give us a way to debug problems with crashes on startup when |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
98 running under the MSVC profiler. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
99 if (GetEnvironmentVariable ("EMACS_DEBUG", NULL, 0) > 0) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
100 DebugBreak (); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
101 #endif |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
102 |
12245 | 103 /* Cache system info, e.g., the NT page size. */ |
104 cache_system_info (); | |
105 | |
106 /* If we're a dumped version of emacs then we need to recreate | |
107 our heap and play tricks with our .bss section. Do this before | |
108 start up. (WARNING: Do not put any code before this section | |
109 that relies upon malloc () and runs in the dumped version. It | |
110 won't work.) */ | |
111 if (need_to_recreate_heap) | |
112 { | |
113 char executable_path[MAX_PATH]; | |
114 | |
115 if (GetModuleFileName (NULL, executable_path, MAX_PATH) == 0) | |
116 { | |
117 printf ("Failed to find path for executable.\n"); | |
118 exit (1); | |
119 } | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
120 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
121 #if 1 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
122 /* To allow profiling, make sure executable_path names the .exe |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
123 file, not the ._xe file created by the profiler which contains |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
124 extra code that makes the stored exe offsets incorrect. (This |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
125 will not be necessary when unexec properly extends the .bss (or |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
126 .data as appropriate) section to include the dumped bss data, |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
127 and dumps the heap into a proper section of its own.) */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
128 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
129 char * p = strrchr (executable_path, '.'); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
130 if (p && p[1] == '_') |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
131 p[1] = 'e'; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
132 } |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
133 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
134 /* Using HiProf profiler, exe name is different still. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
135 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
136 char * p = strrchr (executable_path, '\\'); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
137 strcpy (p, "\\emacs.exe"); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
138 } |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
139 #endif |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
140 |
12245 | 141 recreate_heap (executable_path); |
142 need_to_recreate_heap = FALSE; | |
143 } | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
144 else |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
145 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
146 /* Grab our malloc arena space now, before CRT starts up. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
147 sbrk (0); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
148 } |
12245 | 149 |
150 /* The default behavior is to treat files as binary and patch up | |
151 text files appropriately, in accordance with the MSDOS code. */ | |
152 _fmode = O_BINARY; | |
153 | |
154 /* This prevents ctrl-c's in shells running while we're suspended from | |
155 having us exit. */ | |
156 SetConsoleCtrlHandler ((PHANDLER_ROUTINE) ctrl_c_handler, TRUE); | |
157 | |
158 /* Invoke the NT CRT startup routine now that our housecleaning | |
159 is finished. */ | |
13423
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
160 #ifdef HAVE_NTGUI |
15146
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
161 /* determine WinMain args like crt0.c does */ |
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
162 hinst = GetModuleHandle(NULL); |
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
163 lpCmdLine = GetCommandLine(); |
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
164 nCmdShow = SW_SHOWDEFAULT; |
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
165 #endif |
12245 | 166 mainCRTStartup (); |
167 } | |
168 | |
14036 | 169 /* Dump out .data and .bss sections into a new executable. */ |
12245 | 170 void |
171 unexec (char *new_name, char *old_name, void *start_data, void *start_bss, | |
172 void *entry_address) | |
173 { | |
174 file_data in_file, out_file; | |
175 char out_filename[MAX_PATH], in_filename[MAX_PATH]; | |
176 unsigned long size; | |
177 char *ptr; | |
178 | |
179 /* Make sure that the input and output filenames have the | |
180 ".exe" extension...patch them up if they don't. */ | |
181 strcpy (in_filename, old_name); | |
182 ptr = in_filename + strlen (in_filename) - 4; | |
183 if (strcmp (ptr, ".exe")) | |
184 strcat (in_filename, ".exe"); | |
185 | |
186 strcpy (out_filename, new_name); | |
187 ptr = out_filename + strlen (out_filename) - 4; | |
188 if (strcmp (ptr, ".exe")) | |
189 strcat (out_filename, ".exe"); | |
190 | |
191 printf ("Dumping from %s\n", in_filename); | |
192 printf (" to %s\n", out_filename); | |
193 | |
194 /* We need to round off our heap to NT's allocation unit (64KB). */ | |
195 round_heap (get_allocation_unit ()); | |
196 | |
197 /* Open the undumped executable file. */ | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
198 if (!open_input_file (&in_file, in_filename)) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
199 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
200 printf ("Failed to open %s (%d)...bailing.\n", |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
201 in_filename, GetLastError ()); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
202 exit (1); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
203 } |
12245 | 204 |
205 /* Get the interesting section info, like start and size of .bss... */ | |
206 get_section_info (&in_file); | |
207 | |
208 /* The size of the dumped executable is the size of the original | |
209 executable plus the size of the heap and the size of the .bss section. */ | |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
210 heap_index_in_executable = (unsigned long) |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
211 round_to_next ((unsigned char *) in_file.size, get_allocation_unit ()); |
12245 | 212 size = heap_index_in_executable + get_committed_heap_size () + bss_size; |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
213 if (!open_output_file (&out_file, out_filename, size)) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
214 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
215 printf ("Failed to open %s (%d)...bailing.\n", |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
216 out_filename, GetLastError ()); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
217 exit (1); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
218 } |
12245 | 219 |
220 /* Set the flag (before dumping). */ | |
221 need_to_recreate_heap = TRUE; | |
222 | |
223 copy_executable_and_dump_data_section (&in_file, &out_file); | |
224 dump_bss_and_heap (&in_file, &out_file); | |
225 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
226 /* Patch up header fields; profiler is picky about this. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
227 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
228 PIMAGE_DOS_HEADER dos_header; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
229 PIMAGE_NT_HEADERS nt_header; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
230 HANDLE hImagehelp = LoadLibrary ("imagehlp.dll"); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
231 DWORD headersum; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
232 DWORD checksum; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
233 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
234 dos_header = (PIMAGE_DOS_HEADER) out_file.file_base; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
235 nt_header = (PIMAGE_NT_HEADERS) ((char *) dos_header + dos_header->e_lfanew); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
236 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
237 nt_header->OptionalHeader.CheckSum = 0; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
238 // nt_header->FileHeader.TimeDateStamp = time (NULL); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
239 // dos_header->e_cp = size / 512; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
240 // nt_header->OptionalHeader.SizeOfImage = size; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
241 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
242 pfnCheckSumMappedFile = (void *) GetProcAddress (hImagehelp, "CheckSumMappedFile"); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
243 if (pfnCheckSumMappedFile) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
244 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
245 // nt_header->FileHeader.TimeDateStamp = time (NULL); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
246 pfnCheckSumMappedFile (out_file.file_base, |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
247 out_file.size, |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
248 &headersum, |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
249 &checksum); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
250 nt_header->OptionalHeader.CheckSum = checksum; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
251 } |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
252 FreeLibrary (hImagehelp); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
253 } |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
254 |
12245 | 255 close_file_data (&in_file); |
256 close_file_data (&out_file); | |
257 } | |
258 | |
259 | |
260 /* File handling. */ | |
261 | |
262 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
263 int |
12245 | 264 open_input_file (file_data *p_file, char *filename) |
265 { | |
266 HANDLE file; | |
267 HANDLE file_mapping; | |
268 void *file_base; | |
269 unsigned long size, upper_size; | |
270 | |
271 file = CreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL, | |
272 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); | |
273 if (file == INVALID_HANDLE_VALUE) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
274 return FALSE; |
12245 | 275 |
276 size = GetFileSize (file, &upper_size); | |
277 file_mapping = CreateFileMapping (file, NULL, PAGE_READONLY, | |
278 0, size, NULL); | |
279 if (!file_mapping) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
280 return FALSE; |
12245 | 281 |
282 file_base = MapViewOfFile (file_mapping, FILE_MAP_READ, 0, 0, size); | |
283 if (file_base == 0) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
284 return FALSE; |
12245 | 285 |
286 p_file->name = filename; | |
287 p_file->size = size; | |
288 p_file->file = file; | |
289 p_file->file_mapping = file_mapping; | |
290 p_file->file_base = file_base; | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
291 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
292 return TRUE; |
12245 | 293 } |
294 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
295 int |
12245 | 296 open_output_file (file_data *p_file, char *filename, unsigned long size) |
297 { | |
298 HANDLE file; | |
299 HANDLE file_mapping; | |
300 void *file_base; | |
13423
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
301 |
12245 | 302 file = CreateFile (filename, GENERIC_READ | GENERIC_WRITE, 0, NULL, |
303 CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); | |
304 if (file == INVALID_HANDLE_VALUE) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
305 return FALSE; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
306 |
12245 | 307 file_mapping = CreateFileMapping (file, NULL, PAGE_READWRITE, |
308 0, size, NULL); | |
309 if (!file_mapping) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
310 return FALSE; |
12245 | 311 |
312 file_base = MapViewOfFile (file_mapping, FILE_MAP_WRITE, 0, 0, size); | |
313 if (file_base == 0) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
314 return FALSE; |
12245 | 315 |
316 p_file->name = filename; | |
317 p_file->size = size; | |
318 p_file->file = file; | |
319 p_file->file_mapping = file_mapping; | |
320 p_file->file_base = file_base; | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
321 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
322 return TRUE; |
12245 | 323 } |
324 | |
325 /* Close the system structures associated with the given file. */ | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
326 void |
12245 | 327 close_file_data (file_data *p_file) |
328 { | |
329 UnmapViewOfFile (p_file->file_base); | |
330 CloseHandle (p_file->file_mapping); | |
331 CloseHandle (p_file->file); | |
332 } | |
333 | |
334 | |
335 /* Routines to manipulate NT executable file sections. */ | |
336 | |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
337 #ifdef SEPARATE_BSS_SECTION |
13830
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
338 static void |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
339 get_bss_info_from_map_file (file_data *p_infile, PUCHAR *p_bss_start, |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
340 DWORD *p_bss_size) |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
341 { |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
342 int n, start, len; |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
343 char map_filename[MAX_PATH]; |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
344 char buffer[256]; |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
345 FILE *map; |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
346 |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
347 /* Overwrite the .exe extension on the executable file name with |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
348 the .map extension. */ |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
349 strcpy (map_filename, p_infile->name); |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
350 n = strlen (map_filename) - 3; |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
351 strcpy (&map_filename[n], "map"); |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
352 |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
353 map = fopen (map_filename, "r"); |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
354 if (!map) |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
355 { |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
356 printf ("Failed to open map file %s, error %d...bailing out.\n", |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
357 map_filename, GetLastError ()); |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
358 exit (-1); |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
359 } |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
360 |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
361 while (fgets (buffer, sizeof (buffer), map)) |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
362 { |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
363 if (!(strstr (buffer, ".bss") && strstr (buffer, "DATA"))) |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
364 continue; |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
365 n = sscanf (buffer, " %*d:%x %x", &start, &len); |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
366 if (n != 2) |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
367 { |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
368 printf ("Failed to scan the .bss section line:\n%s", buffer); |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
369 exit (-1); |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
370 } |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
371 break; |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
372 } |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
373 *p_bss_start = (PUCHAR) start; |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
374 *p_bss_size = (DWORD) len; |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
375 } |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
376 #endif |
12245 | 377 |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
378 unsigned long |
12245 | 379 get_section_size (PIMAGE_SECTION_HEADER p_section) |
380 { | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
381 /* The true section size, before rounding. Some linkers swap the |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
382 meaning of these two values. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
383 return min (p_section->SizeOfRawData, |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
384 p_section->Misc.VirtualSize); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
385 } |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
386 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
387 /* Return pointer to section header for named section. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
388 IMAGE_SECTION_HEADER * |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
389 find_section (char * name, IMAGE_NT_HEADERS * nt_header) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
390 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
391 PIMAGE_SECTION_HEADER section; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
392 int i; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
393 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
394 section = IMAGE_FIRST_SECTION (nt_header); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
395 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
396 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) |
12245 | 397 { |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
398 if (strcmp (section->Name, name) == 0) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
399 return section; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
400 section++; |
12245 | 401 } |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
402 return NULL; |
12245 | 403 } |
404 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
405 /* Return pointer to section header for section containing the given |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
406 relative virtual address. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
407 IMAGE_SECTION_HEADER * |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
408 rva_to_section (DWORD rva, IMAGE_NT_HEADERS * nt_header) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
409 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
410 PIMAGE_SECTION_HEADER section; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
411 int i; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
412 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
413 section = IMAGE_FIRST_SECTION (nt_header); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
414 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
415 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
416 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
417 if (rva >= section->VirtualAddress |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
418 && rva < section->VirtualAddress + section->SizeOfRawData) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
419 return section; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
420 section++; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
421 } |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
422 return NULL; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
423 } |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
424 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
425 |
12245 | 426 /* Flip through the executable and cache the info necessary for dumping. */ |
427 static void | |
428 get_section_info (file_data *p_infile) | |
429 { | |
430 PIMAGE_DOS_HEADER dos_header; | |
431 PIMAGE_NT_HEADERS nt_header; | |
13830
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
432 PIMAGE_SECTION_HEADER section, data_section; |
12245 | 433 unsigned char *ptr; |
434 int i; | |
435 | |
436 dos_header = (PIMAGE_DOS_HEADER) p_infile->file_base; | |
437 if (dos_header->e_magic != IMAGE_DOS_SIGNATURE) | |
438 { | |
439 printf ("Unknown EXE header in %s...bailing.\n", p_infile->name); | |
440 exit (1); | |
441 } | |
442 nt_header = (PIMAGE_NT_HEADERS) (((unsigned long) dos_header) + | |
443 dos_header->e_lfanew); | |
444 if (nt_header == NULL) | |
445 { | |
446 printf ("Failed to find IMAGE_NT_HEADER in %s...bailing.\n", | |
447 p_infile->name); | |
448 exit (1); | |
449 } | |
450 | |
451 /* Check the NT header signature ... */ | |
452 if (nt_header->Signature != IMAGE_NT_SIGNATURE) | |
453 { | |
454 printf ("Invalid IMAGE_NT_SIGNATURE 0x%x in %s...bailing.\n", | |
455 nt_header->Signature, p_infile->name); | |
456 } | |
457 | |
458 /* Flip through the sections for .data and .bss ... */ | |
459 section = (PIMAGE_SECTION_HEADER) IMAGE_FIRST_SECTION (nt_header); | |
460 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) | |
461 { | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
462 #ifdef SEPARATE_BSS_SECTION |
12245 | 463 if (!strcmp (section->Name, ".bss")) |
464 { | |
465 /* The .bss section. */ | |
466 ptr = (char *) nt_header->OptionalHeader.ImageBase + | |
467 section->VirtualAddress; | |
468 bss_start = ptr; | |
469 bss_size = get_section_size (section); | |
470 } | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
471 #endif |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
472 #if 0 |
12245 | 473 if (!strcmp (section->Name, ".data")) |
474 { | |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
475 /* From lastfile.c */ |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
476 extern char my_edata[]; |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
477 |
12245 | 478 /* The .data section. */ |
13830
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
479 data_section = section; |
15146
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
480 ptr = (char *) nt_header->OptionalHeader.ImageBase + |
12245 | 481 section->VirtualAddress; |
482 data_start_va = ptr; | |
483 data_start_file = section->PointerToRawData; | |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
484 |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
485 /* We want to only write Emacs data back to the executable, |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
486 not any of the library data (if library data is included, |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
487 then a dumped Emacs won't run on system versions other |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
488 than the one Emacs was dumped on). */ |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
489 data_size = my_edata - data_start_va; |
12245 | 490 } |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
491 #else |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
492 if (!strcmp (section->Name, "EMDATA")) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
493 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
494 /* The Emacs initialized data section. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
495 data_section = section; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
496 ptr = (char *) nt_header->OptionalHeader.ImageBase + |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
497 section->VirtualAddress; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
498 data_start_va = ptr; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
499 data_start_file = section->PointerToRawData; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
500 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
501 /* Write back the full section. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
502 data_size = get_section_size (section); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
503 } |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
504 #endif |
12245 | 505 section++; |
506 } | |
13830
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
507 |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
508 #ifdef SEPARATE_BSS_SECTION |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
509 if (bss_start == UNINIT_PTR && bss_size == UNINIT_LONG) |
13830
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
510 { |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
511 /* Starting with MSVC 4.0, the .bss section has been eliminated |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
512 and appended virtually to the end of the .data section. Our |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
513 only hint about where the .bss section starts in the address |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
514 comes from the SizeOfRawData field in the .data section |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
515 header. Unfortunately, this field is only approximate, as it |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
516 is a rounded number and is typically rounded just beyond the |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
517 start of the .bss section. To find the start and size of the |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
518 .bss section exactly, we have to peek into the map file. */ |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
519 get_bss_info_from_map_file (p_infile, &ptr, &bss_size); |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
520 bss_start = ptr + nt_header->OptionalHeader.ImageBase |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
521 + data_section->VirtualAddress; |
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
522 } |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
523 #else |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
524 /* As noted in lastfile.c, the Alpha (but not the Intel) MSVC linker |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
525 globally segregates all static and public bss data (ie. across all |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
526 linked modules, not just per module), so we must take both static and |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
527 public bss areas into account to determine the true extent of the bss |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
528 area used by Emacs. |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
529 |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
530 To be strictly correct, we should dump the static and public bss |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
531 areas used by Emacs separately if non-overlapping (since otherwise we |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
532 are dumping bss data belonging to system libraries, eg. the static |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
533 bss system data on the Alpha). However, in practice this doesn't |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
534 seem to matter, since presumably the system libraries always |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
535 reinitialize their bss variables. */ |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
536 bss_start = min (my_begbss, my_begbss_static); |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
537 bss_size = max (my_endbss, my_endbss_static) - bss_start; |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
538 #endif |
12245 | 539 } |
540 | |
541 | |
542 /* The dump routines. */ | |
543 | |
544 static void | |
545 copy_executable_and_dump_data_section (file_data *p_infile, | |
546 file_data *p_outfile) | |
547 { | |
548 unsigned char *data_file, *data_va; | |
549 unsigned long size, index; | |
550 | |
551 /* Get a pointer to where the raw data should go in the executable file. */ | |
552 data_file = (char *) p_outfile->file_base + data_start_file; | |
553 | |
554 /* Get a pointer to the raw data in our address space. */ | |
555 data_va = data_start_va; | |
556 | |
557 size = (DWORD) data_file - (DWORD) p_outfile->file_base; | |
558 printf ("Copying executable up to data section...\n"); | |
559 printf ("\t0x%08x Offset in input file.\n", 0); | |
560 printf ("\t0x%08x Offset in output file.\n", 0); | |
561 printf ("\t0x%08x Size in bytes.\n", size); | |
562 memcpy (p_outfile->file_base, p_infile->file_base, size); | |
563 | |
564 size = data_size; | |
565 printf ("Dumping .data section...\n"); | |
566 printf ("\t0x%08x Address in process.\n", data_va); | |
567 printf ("\t0x%08x Offset in output file.\n", | |
568 data_file - p_outfile->file_base); | |
569 printf ("\t0x%08x Size in bytes.\n", size); | |
570 memcpy (data_file, data_va, size); | |
571 | |
572 index = (DWORD) data_file + size - (DWORD) p_outfile->file_base; | |
573 size = p_infile->size - index; | |
574 printf ("Copying rest of executable...\n"); | |
575 printf ("\t0x%08x Offset in input file.\n", index); | |
576 printf ("\t0x%08x Offset in output file.\n", index); | |
577 printf ("\t0x%08x Size in bytes.\n", size); | |
578 memcpy ((char *) p_outfile->file_base + index, | |
579 (char *) p_infile->file_base + index, size); | |
580 } | |
581 | |
582 static void | |
583 dump_bss_and_heap (file_data *p_infile, file_data *p_outfile) | |
584 { | |
585 unsigned char *heap_data, *bss_data; | |
586 unsigned long size, index; | |
587 | |
588 printf ("Dumping heap into executable...\n"); | |
589 | |
590 index = heap_index_in_executable; | |
591 size = get_committed_heap_size (); | |
592 heap_data = get_heap_start (); | |
593 | |
594 printf ("\t0x%08x Heap start in process.\n", heap_data); | |
595 printf ("\t0x%08x Heap offset in executable.\n", index); | |
596 printf ("\t0x%08x Heap size in bytes.\n", size); | |
597 | |
598 memcpy ((PUCHAR) p_outfile->file_base + index, heap_data, size); | |
599 | |
600 printf ("Dumping .bss into executable...\n"); | |
601 | |
602 index += size; | |
603 size = bss_size; | |
604 bss_data = bss_start; | |
605 | |
606 printf ("\t0x%08x BSS start in process.\n", bss_data); | |
607 printf ("\t0x%08x BSS offset in executable.\n", index); | |
608 printf ("\t0x%08x BSS size in bytes.\n", size); | |
609 memcpy ((char *) p_outfile->file_base + index, bss_data, size); | |
610 } | |
611 | |
612 | |
613 /* Reload and remap routines. */ | |
614 | |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
615 void |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
616 w32_fatal_reload_error (char *step) |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
617 { |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
618 int error = GetLastError (); |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
619 char *buffer = alloca (4096); |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
620 |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
621 sprintf (buffer, |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
622 "Emacs failed to load its dumped heap back into its address space.\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
623 "The error occurred during the following step:\n\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
624 "%s\n\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
625 "GetLastError = %d\n\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
626 "Heap start: 0x%08x\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
627 "Heap commit: 0x%08x\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
628 "Heap end: 0x%08x\n\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
629 "This error typically happens when the system loads a DLL into\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
630 "the middle of Emacs' address space, preventing Emacs from\n" |
22300
ce79e5edf080
(w32_fatal_reload_error): Update error message.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21604
diff
changeset
|
631 "loading its heap there. If this happens only occasionally, then\n" |
ce79e5edf080
(w32_fatal_reload_error): Update error message.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21604
diff
changeset
|
632 "you can probably ignore it. But if it happens so often that\n" |
ce79e5edf080
(w32_fatal_reload_error): Update error message.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21604
diff
changeset
|
633 "you cannot get Emacs to start reliably, and you think that Emacs\n" |
ce79e5edf080
(w32_fatal_reload_error): Update error message.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21604
diff
changeset
|
634 "is installed correctly, then you have a couple of options:\n\n" |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
635 "Emacs correctly, then you have two options:\n\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
636 "1) You can dump Emacs yourself. By doing this, you ensure that\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
637 "Emacs' heap fits around the DLLs in your system. To dump Emacs,\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
638 "download the emacs-(version)-undump-(arch) distribution file\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
639 "from the site where you downloaded the executable distribution.\n\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
640 "2) You can build Emacs from source. This is just another way\n" |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
641 "to dump Emacs on your system.", |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
642 step, |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
643 error, |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
644 get_heap_start (), |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
645 get_heap_start () + get_committed_heap_size (), |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
646 get_heap_end ()); |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
647 |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
648 MessageBox (NULL, |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
649 buffer, |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
650 "Emacs Abort Dialog", |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
651 MB_OK | MB_ICONEXCLAMATION | MB_TASKMODAL); |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
652 |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
653 exit (-1); |
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
654 } |
12245 | 655 |
656 /* Load the dumped .bss section into the .bss area of our address space. */ | |
657 void | |
658 read_in_bss (char *filename) | |
659 { | |
660 HANDLE file; | |
661 unsigned long size, index, n_read, total_read; | |
662 char buffer[512], *bss; | |
663 int i; | |
664 | |
665 file = CreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL, | |
666 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); | |
667 if (file == INVALID_HANDLE_VALUE) | |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
668 w32_fatal_reload_error ("Opening Emacs executable file for .bss."); |
12245 | 669 |
670 /* Seek to where the .bss section is tucked away after the heap... */ | |
671 index = heap_index_in_executable + get_committed_heap_size (); | |
672 if (SetFilePointer (file, index, NULL, FILE_BEGIN) == 0xFFFFFFFF) | |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
673 w32_fatal_reload_error ("Seeking to the saved .bss section."); |
12245 | 674 |
675 /* Ok, read in the saved .bss section and initialize all | |
676 uninitialized variables. */ | |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
677 if (!ReadFile (file, bss_start, bss_size, &n_read, NULL)) |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
678 w32_fatal_reload_error ("Reading the saved .bss section."); |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
679 |
12245 | 680 CloseHandle (file); |
681 } | |
682 | |
683 /* Map the heap dumped into the executable file into our address space. */ | |
684 void | |
685 map_in_heap (char *filename) | |
686 { | |
687 HANDLE file; | |
688 HANDLE file_mapping; | |
689 void *file_base; | |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
690 unsigned long size, upper_size, n_read; |
12245 | 691 int i; |
692 | |
693 file = CreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL, | |
694 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); | |
695 if (file == INVALID_HANDLE_VALUE) | |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
696 w32_fatal_reload_error ("Opening Emacs executable file for heap."); |
12245 | 697 |
698 size = GetFileSize (file, &upper_size); | |
699 file_mapping = CreateFileMapping (file, NULL, PAGE_WRITECOPY, | |
700 0, size, NULL); | |
701 if (!file_mapping) | |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
702 w32_fatal_reload_error ("Creating file mapping to heap in executable."); |
12245 | 703 |
704 size = get_committed_heap_size (); | |
705 file_base = MapViewOfFileEx (file_mapping, FILE_MAP_COPY, 0, | |
706 heap_index_in_executable, size, | |
707 get_heap_start ()); | |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
708 if (file_base != 0) |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
709 { |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
710 return; |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
711 } |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
712 |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
713 /* If we don't succeed with the mapping, then copy from the |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
714 data into the heap. */ |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
715 |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
716 CloseHandle (file_mapping); |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
717 |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
718 if (VirtualAlloc (get_heap_start (), get_committed_heap_size (), |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
719 MEM_RESERVE | MEM_COMMIT, PAGE_READWRITE) == NULL) |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
720 w32_fatal_reload_error ("Allocating heap address space."); |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
721 |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
722 /* Seek to the location of the heap data in the executable. */ |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
723 i = heap_index_in_executable; |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
724 if (SetFilePointer (file, i, NULL, FILE_BEGIN) == 0xFFFFFFFF) |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
725 w32_fatal_reload_error ("Seeking to saved heap in executable file."); |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
726 |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
727 /* Read in the data. */ |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
728 if (!ReadFile (file, get_heap_start (), |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
729 get_committed_heap_size (), &n_read, NULL)) |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
730 w32_fatal_reload_error ("Reading saved heap from executable file."); |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
731 |
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
732 CloseHandle (file); |
12245 | 733 } |