|
100
|
1 /* unexec for GNU Emacs on Windows NT.
|
|
|
2 Copyright (C) 1994 Free Software Foundation, Inc.
|
|
|
3
|
|
|
4 This file is part of XEmacs.
|
|
|
5
|
|
|
6 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
7 under the terms of the GNU General Public License as published by the
|
|
|
8 Free Software Foundation; either version 2, or (at your option) any
|
|
|
9 later version.
|
|
|
10
|
|
|
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
14 for more details.
|
|
|
15
|
|
|
16 You should have received a copy of the GNU General Public License
|
|
|
17 along with XEmacs; see the file COPYING. If not, write to the Free
|
|
|
18 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
|
19 02111-1307, USA.
|
|
|
20
|
|
|
21 Geoff Voelker (voelker@cs.washington.edu) 8-12-94 */
|
|
|
22
|
|
|
23 /* Adapted for XEmacs by David Hobley <david@spook-le0.cia.com.au> */
|
|
|
24
|
|
|
25 #include <stdlib.h> /* _fmode */
|
|
|
26 #include <stdio.h>
|
|
|
27 #include <fcntl.h>
|
|
|
28 #include <windows.h>
|
|
|
29
|
|
|
30 #if 0
|
|
|
31 extern BOOL ctrl_c_handler (unsigned long type);
|
|
|
32 #endif
|
|
|
33
|
|
|
34 #include "ntheap.h"
|
|
|
35
|
|
209
|
36 /* Sync with FSF Emacs 19.34.6 note: struct file_data is now defined in ntheap.h */
|
|
100
|
37
|
|
169
|
38 enum {
|
|
|
39 HEAP_UNINITIALIZED = 1,
|
|
|
40 HEAP_UNLOADED,
|
|
|
41 HEAP_LOADED
|
|
|
42 };
|
|
|
43
|
|
100
|
44 /* Basically, our "initialized" flag. */
|
|
169
|
45 int heap_state = HEAP_UNINITIALIZED;
|
|
100
|
46
|
|
|
47 /* So we can find our heap in the file to recreate it. */
|
|
169
|
48 unsigned long heap_index_in_executable = UNINIT_LONG;
|
|
100
|
49
|
|
|
50 void get_section_info (file_data *p_file);
|
|
|
51 void copy_executable_and_dump_data_section (file_data *, file_data *);
|
|
|
52 void dump_bss_and_heap (file_data *p_infile, file_data *p_outfile);
|
|
|
53
|
|
|
54 /* Cached info about the .data section in the executable. */
|
|
169
|
55 PUCHAR data_start_va = UNINIT_PTR;
|
|
|
56 DWORD data_start_file = UNINIT_LONG;
|
|
|
57 DWORD data_size = UNINIT_LONG;
|
|
100
|
58
|
|
|
59 /* Cached info about the .bss section in the executable. */
|
|
169
|
60 PUCHAR bss_start = UNINIT_PTR;
|
|
|
61 DWORD bss_size = UNINIT_LONG;
|
|
100
|
62
|
|
|
63 #ifdef HAVE_NTGUI
|
|
|
64 HINSTANCE hinst = NULL;
|
|
|
65 HINSTANCE hprevinst = NULL;
|
|
|
66 LPSTR lpCmdLine = "";
|
|
|
67 int nCmdShow = 0;
|
|
|
68 #endif /* HAVE_NTGUI */
|
|
|
69
|
|
|
70 /* Startup code for running on NT. When we are running as the dumped
|
|
|
71 version, we need to bootstrap our heap and .bss section into our
|
|
|
72 address space before we can actually hand off control to the startup
|
|
|
73 code supplied by NT (primarily because that code relies upon malloc ()). */
|
|
|
74 void
|
|
|
75 _start (void)
|
|
|
76 {
|
|
|
77 extern void mainCRTStartup (void);
|
|
|
78
|
|
|
79 /* Cache system info, e.g., the NT page size. */
|
|
|
80 cache_system_info ();
|
|
|
81
|
|
|
82 /* If we're a dumped version of emacs then we need to recreate
|
|
|
83 our heap and play tricks with our .bss section. Do this before
|
|
|
84 start up. (WARNING: Do not put any code before this section
|
|
|
85 that relies upon malloc () and runs in the dumped version. It
|
|
|
86 won't work.) */
|
|
169
|
87 if (heap_state == HEAP_UNLOADED)
|
|
100
|
88 {
|
|
|
89 char executable_path[MAX_PATH];
|
|
|
90
|
|
|
91 if (GetModuleFileName (NULL, executable_path, MAX_PATH) == 0)
|
|
|
92 {
|
|
|
93 exit (1);
|
|
|
94 }
|
|
|
95 recreate_heap (executable_path);
|
|
169
|
96 heap_state = HEAP_LOADED;
|
|
100
|
97 }
|
|
|
98
|
|
|
99 /* The default behavior is to treat files as binary and patch up
|
|
|
100 text files appropriately, in accordance with the MSDOS code. */
|
|
|
101 _fmode = O_BINARY;
|
|
|
102
|
|
|
103 #if 0
|
|
|
104 /* This prevents ctrl-c's in shells running while we're suspended from
|
|
|
105 having us exit. */
|
|
|
106 SetConsoleCtrlHandler ((PHANDLER_ROUTINE) ctrl_c_handler, TRUE);
|
|
|
107 #endif
|
|
|
108
|
|
|
109 /* Invoke the NT CRT startup routine now that our housecleaning
|
|
|
110 is finished. */
|
|
|
111 #ifdef HAVE_NTGUI
|
|
|
112 /* determine WinMain args like crt0.c does */
|
|
|
113 hinst = GetModuleHandle(NULL);
|
|
|
114 lpCmdLine = GetCommandLine();
|
|
|
115 nCmdShow = SW_SHOWDEFAULT;
|
|
|
116 #endif
|
|
|
117 mainCRTStartup ();
|
|
|
118 }
|
|
|
119
|
|
|
120 /* Dump out .data and .bss sections into a new executable. */
|
|
|
121 void
|
|
|
122 unexec (char *new_name, char *old_name, void *start_data, void *start_bss,
|
|
|
123 void *entry_address)
|
|
|
124 {
|
|
|
125 file_data in_file, out_file;
|
|
|
126 char out_filename[MAX_PATH], in_filename[MAX_PATH];
|
|
|
127 unsigned long size;
|
|
|
128 char *ptr;
|
|
|
129
|
|
|
130 /* Make sure that the input and output filenames have the
|
|
|
131 ".exe" extension...patch them up if they don't. */
|
|
|
132 strcpy (in_filename, old_name);
|
|
|
133 ptr = in_filename + strlen (in_filename) - 4;
|
|
|
134 if (strcmp (ptr, ".exe"))
|
|
|
135 strcat (in_filename, ".exe");
|
|
|
136
|
|
|
137 strcpy (out_filename, new_name);
|
|
|
138 ptr = out_filename + strlen (out_filename) - 4;
|
|
|
139 if (strcmp (ptr, ".exe"))
|
|
|
140 strcat (out_filename, ".exe");
|
|
|
141
|
|
|
142 printf ("Dumping from %s\n", in_filename);
|
|
|
143 printf (" to %s\n", out_filename);
|
|
|
144
|
|
|
145 /* We need to round off our heap to NT's allocation unit (64KB). */
|
|
|
146 round_heap (get_allocation_unit ());
|
|
|
147
|
|
|
148 /* Open the undumped executable file. */
|
|
209
|
149 if (!open_input_file (&in_file, in_filename))
|
|
|
150 {
|
|
|
151 printf ("Failed to open %s (%d)...bailing.\n",
|
|
|
152 in_filename, GetLastError ());
|
|
|
153 exit (1);
|
|
|
154 }
|
|
100
|
155
|
|
|
156 /* Get the interesting section info, like start and size of .bss... */
|
|
|
157 get_section_info (&in_file);
|
|
|
158
|
|
|
159 /* The size of the dumped executable is the size of the original
|
|
|
160 executable plus the size of the heap and the size of the .bss section. */
|
|
|
161 heap_index_in_executable = (unsigned long)
|
|
|
162 round_to_next ((unsigned char *) in_file.size, get_allocation_unit ());
|
|
|
163 size = heap_index_in_executable + get_committed_heap_size () + bss_size;
|
|
209
|
164 if (!open_output_file (&out_file, out_filename, size))
|
|
|
165 {
|
|
|
166 printf ("Failed to open %s (%d)...bailing.\n",
|
|
|
167 out_filename, GetLastError ());
|
|
|
168 exit (1);
|
|
|
169 }
|
|
100
|
170
|
|
|
171 /* Set the flag (before dumping). */
|
|
169
|
172 heap_state = HEAP_UNLOADED;
|
|
100
|
173
|
|
|
174 copy_executable_and_dump_data_section (&in_file, &out_file);
|
|
|
175 dump_bss_and_heap (&in_file, &out_file);
|
|
|
176
|
|
|
177 close_file_data (&in_file);
|
|
|
178 close_file_data (&out_file);
|
|
|
179 }
|
|
|
180
|
|
|
181
|
|
|
182 /* File handling. */
|
|
|
183
|
|
|
184
|
|
209
|
185 int
|
|
100
|
186 open_input_file (file_data *p_file, char *filename)
|
|
|
187 {
|
|
|
188 HANDLE file;
|
|
|
189 HANDLE file_mapping;
|
|
|
190 void *file_base;
|
|
|
191 unsigned long size, upper_size;
|
|
|
192
|
|
|
193 file = CreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL,
|
|
|
194 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
|
|
|
195 if (file == INVALID_HANDLE_VALUE)
|
|
209
|
196 return FALSE;
|
|
100
|
197
|
|
|
198 size = GetFileSize (file, &upper_size);
|
|
|
199 file_mapping = CreateFileMapping (file, NULL, PAGE_READONLY,
|
|
|
200 0, size, NULL);
|
|
|
201 if (!file_mapping)
|
|
209
|
202 return FALSE;
|
|
100
|
203
|
|
|
204 file_base = MapViewOfFile (file_mapping, FILE_MAP_READ, 0, 0, size);
|
|
|
205 if (file_base == 0)
|
|
209
|
206 return FALSE;
|
|
100
|
207
|
|
|
208 p_file->name = filename;
|
|
|
209 p_file->size = size;
|
|
|
210 p_file->file = file;
|
|
|
211 p_file->file_mapping = file_mapping;
|
|
|
212 p_file->file_base = file_base;
|
|
209
|
213
|
|
|
214 return TRUE;
|
|
100
|
215 }
|
|
|
216
|
|
209
|
217 int
|
|
100
|
218 open_output_file (file_data *p_file, char *filename, unsigned long size)
|
|
|
219 {
|
|
|
220 HANDLE file;
|
|
|
221 HANDLE file_mapping;
|
|
|
222 void *file_base;
|
|
|
223
|
|
|
224 file = CreateFile (filename, GENERIC_READ | GENERIC_WRITE, 0, NULL,
|
|
|
225 CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
|
|
|
226 if (file == INVALID_HANDLE_VALUE)
|
|
209
|
227 return FALSE;
|
|
100
|
228
|
|
|
229 file_mapping = CreateFileMapping (file, NULL, PAGE_READWRITE,
|
|
|
230 0, size, NULL);
|
|
|
231 if (!file_mapping)
|
|
209
|
232 return FALSE;
|
|
100
|
233
|
|
|
234 file_base = MapViewOfFile (file_mapping, FILE_MAP_WRITE, 0, 0, size);
|
|
|
235 if (file_base == 0)
|
|
209
|
236 return FALSE;
|
|
100
|
237
|
|
|
238 p_file->name = filename;
|
|
|
239 p_file->size = size;
|
|
|
240 p_file->file = file;
|
|
|
241 p_file->file_mapping = file_mapping;
|
|
|
242 p_file->file_base = file_base;
|
|
209
|
243
|
|
|
244 return TRUE;
|
|
100
|
245 }
|
|
|
246
|
|
|
247 /* Close the system structures associated with the given file. */
|
|
209
|
248 void
|
|
100
|
249 close_file_data (file_data *p_file)
|
|
|
250 {
|
|
|
251 UnmapViewOfFile (p_file->file_base);
|
|
|
252 CloseHandle (p_file->file_mapping);
|
|
|
253 CloseHandle (p_file->file);
|
|
|
254 }
|
|
|
255
|
|
|
256
|
|
|
257 /* Routines to manipulate NT executable file sections. */
|
|
|
258
|
|
|
259 static void
|
|
|
260 get_bss_info_from_map_file (file_data *p_infile, PUCHAR *p_bss_start,
|
|
|
261 DWORD *p_bss_size)
|
|
|
262 {
|
|
|
263 int n, start, len;
|
|
|
264 char map_filename[MAX_PATH];
|
|
|
265 char buffer[256];
|
|
|
266 FILE *map;
|
|
|
267
|
|
|
268 /* Overwrite the .exe extension on the executable file name with
|
|
|
269 the .map extension. */
|
|
|
270 strcpy (map_filename, p_infile->name);
|
|
|
271 n = strlen (map_filename) - 3;
|
|
|
272 strcpy (&map_filename[n], "map");
|
|
|
273
|
|
|
274 map = fopen (map_filename, "r");
|
|
|
275 if (!map)
|
|
|
276 {
|
|
|
277 printf ("Failed to open map file %s, error %d...bailing out.\n",
|
|
|
278 map_filename, GetLastError ());
|
|
|
279 exit (-1);
|
|
|
280 }
|
|
|
281
|
|
|
282 while (fgets (buffer, sizeof (buffer), map))
|
|
|
283 {
|
|
|
284 if (!(strstr (buffer, ".bss") && strstr (buffer, "DATA")))
|
|
|
285 continue;
|
|
|
286 n = sscanf (buffer, " %*d:%x %x", &start, &len);
|
|
|
287 if (n != 2)
|
|
|
288 {
|
|
|
289 printf ("Failed to scan the .bss section line:\n%s", buffer);
|
|
|
290 exit (-1);
|
|
|
291 }
|
|
|
292 break;
|
|
|
293 }
|
|
|
294 *p_bss_start = (PUCHAR) start;
|
|
|
295 *p_bss_size = (DWORD) len;
|
|
|
296 }
|
|
|
297
|
|
209
|
298 /* Return pointer to section header for named section. */
|
|
|
299 IMAGE_SECTION_HEADER *
|
|
|
300 find_section (char * name, IMAGE_NT_HEADERS * nt_header)
|
|
|
301 {
|
|
|
302 PIMAGE_SECTION_HEADER section;
|
|
|
303 int i;
|
|
|
304
|
|
|
305 section = IMAGE_FIRST_SECTION (nt_header);
|
|
|
306
|
|
|
307 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++)
|
|
|
308 {
|
|
|
309 if (strcmp (section->Name, name) == 0)
|
|
|
310 return section;
|
|
|
311 section++;
|
|
|
312 }
|
|
|
313 return NULL;
|
|
|
314 }
|
|
|
315
|
|
|
316 /* Return pointer to section header for section containing the given
|
|
|
317 relative virtual address. */
|
|
|
318 IMAGE_SECTION_HEADER *
|
|
|
319 rva_to_section (DWORD rva, IMAGE_NT_HEADERS * nt_header)
|
|
|
320 {
|
|
|
321 PIMAGE_SECTION_HEADER section;
|
|
|
322 int i;
|
|
|
323
|
|
|
324 section = IMAGE_FIRST_SECTION (nt_header);
|
|
|
325
|
|
|
326 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++)
|
|
|
327 {
|
|
|
328 if (rva >= section->VirtualAddress &&
|
|
|
329 rva < section->VirtualAddress + section->SizeOfRawData)
|
|
|
330 return section;
|
|
|
331 section++;
|
|
|
332 }
|
|
|
333 return NULL;
|
|
|
334 }
|
|
|
335
|
|
100
|
336 static unsigned long
|
|
|
337 get_section_size (PIMAGE_SECTION_HEADER p_section)
|
|
|
338 {
|
|
|
339 /* The section size is in different locations in the different versions. */
|
|
|
340 switch (get_nt_minor_version ())
|
|
|
341 {
|
|
|
342 case 10:
|
|
|
343 return p_section->SizeOfRawData;
|
|
|
344 default:
|
|
|
345 return p_section->Misc.VirtualSize;
|
|
|
346 }
|
|
|
347 }
|
|
|
348
|
|
|
349 /* Flip through the executable and cache the info necessary for dumping. */
|
|
|
350 static void
|
|
|
351 get_section_info (file_data *p_infile)
|
|
|
352 {
|
|
|
353 PIMAGE_DOS_HEADER dos_header;
|
|
|
354 PIMAGE_NT_HEADERS nt_header;
|
|
|
355 PIMAGE_SECTION_HEADER section, data_section;
|
|
|
356 unsigned char *ptr;
|
|
|
357 int i;
|
|
|
358
|
|
|
359 dos_header = (PIMAGE_DOS_HEADER) p_infile->file_base;
|
|
|
360 if (dos_header->e_magic != IMAGE_DOS_SIGNATURE)
|
|
|
361 {
|
|
|
362 printf ("Unknown EXE header in %s...bailing.\n", p_infile->name);
|
|
|
363 exit (1);
|
|
|
364 }
|
|
|
365 nt_header = (PIMAGE_NT_HEADERS) (((unsigned long) dos_header) +
|
|
|
366 dos_header->e_lfanew);
|
|
|
367 if (nt_header == NULL)
|
|
|
368 {
|
|
|
369 printf ("Failed to find IMAGE_NT_HEADER in %s...bailing.\n",
|
|
|
370 p_infile->name);
|
|
|
371 exit (1);
|
|
|
372 }
|
|
|
373
|
|
|
374 /* Check the NT header signature ... */
|
|
|
375 if (nt_header->Signature != IMAGE_NT_SIGNATURE)
|
|
|
376 {
|
|
|
377 printf ("Invalid IMAGE_NT_SIGNATURE 0x%x in %s...bailing.\n",
|
|
|
378 nt_header->Signature, p_infile->name);
|
|
|
379 }
|
|
|
380
|
|
|
381 /* Flip through the sections for .data and .bss ... */
|
|
|
382 section = (PIMAGE_SECTION_HEADER) IMAGE_FIRST_SECTION (nt_header);
|
|
|
383 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++)
|
|
|
384 {
|
|
|
385 if (!strcmp (section->Name, ".bss"))
|
|
|
386 {
|
|
|
387 /* The .bss section. */
|
|
|
388 ptr = (char *) nt_header->OptionalHeader.ImageBase +
|
|
|
389 section->VirtualAddress;
|
|
|
390 bss_start = ptr;
|
|
|
391 bss_size = get_section_size (section);
|
|
|
392 }
|
|
|
393 if (!strcmp (section->Name, ".data"))
|
|
|
394 {
|
|
|
395 /* From lastfile.c */
|
|
|
396 extern char my_edata[];
|
|
|
397
|
|
|
398 /* The .data section. */
|
|
|
399 data_section = section;
|
|
|
400 ptr = (char *) nt_header->OptionalHeader.ImageBase +
|
|
|
401 section->VirtualAddress;
|
|
|
402 data_start_va = ptr;
|
|
|
403 data_start_file = section->PointerToRawData;
|
|
|
404
|
|
|
405 /* We want to only write Emacs data back to the executable,
|
|
|
406 not any of the library data (if library data is included,
|
|
|
407 then a dumped Emacs won't run on system versions other
|
|
|
408 than the one Emacs was dumped on). */
|
|
|
409 data_size = my_edata - data_start_va;
|
|
|
410 }
|
|
|
411 section++;
|
|
|
412 }
|
|
|
413
|
|
169
|
414 if (bss_start == UNINIT_PTR && bss_size == UNINIT_LONG)
|
|
100
|
415 {
|
|
|
416 /* Starting with MSVC 4.0, the .bss section has been eliminated
|
|
|
417 and appended virtually to the end of the .data section. Our
|
|
|
418 only hint about where the .bss section starts in the address
|
|
|
419 comes from the SizeOfRawData field in the .data section
|
|
|
420 header. Unfortunately, this field is only approximate, as it
|
|
|
421 is a rounded number and is typically rounded just beyond the
|
|
|
422 start of the .bss section. To find the start and size of the
|
|
|
423 .bss section exactly, we have to peek into the map file. */
|
|
|
424 get_bss_info_from_map_file (p_infile, &ptr, &bss_size);
|
|
|
425 bss_start = ptr + nt_header->OptionalHeader.ImageBase
|
|
|
426 + data_section->VirtualAddress;
|
|
|
427 }
|
|
|
428 }
|
|
|
429
|
|
|
430
|
|
|
431 /* The dump routines. */
|
|
|
432
|
|
|
433 static void
|
|
|
434 copy_executable_and_dump_data_section (file_data *p_infile,
|
|
|
435 file_data *p_outfile)
|
|
|
436 {
|
|
|
437 unsigned char *data_file, *data_va;
|
|
|
438 unsigned long size, index;
|
|
|
439
|
|
|
440 /* Get a pointer to where the raw data should go in the executable file. */
|
|
|
441 data_file = (char *) p_outfile->file_base + data_start_file;
|
|
|
442
|
|
|
443 /* Get a pointer to the raw data in our address space. */
|
|
|
444 data_va = data_start_va;
|
|
|
445
|
|
|
446 size = (DWORD) data_file - (DWORD) p_outfile->file_base;
|
|
|
447 printf ("Copying executable up to data section...\n");
|
|
|
448 printf ("\t0x%08x Offset in input file.\n", 0);
|
|
|
449 printf ("\t0x%08x Offset in output file.\n", 0);
|
|
|
450 printf ("\t0x%08x Size in bytes.\n", size);
|
|
|
451 memcpy (p_outfile->file_base, p_infile->file_base, size);
|
|
|
452
|
|
|
453 size = data_size;
|
|
|
454 printf ("Dumping .data section...\n");
|
|
|
455 printf ("\t0x%08x Address in process.\n", data_va);
|
|
|
456 printf ("\t0x%08x Offset in output file.\n",
|
|
|
457 data_file - p_outfile->file_base);
|
|
|
458 printf ("\t0x%08x Size in bytes.\n", size);
|
|
|
459 memcpy (data_file, data_va, size);
|
|
|
460
|
|
|
461 index = (DWORD) data_file + size - (DWORD) p_outfile->file_base;
|
|
|
462 size = p_infile->size - index;
|
|
|
463 printf ("Copying rest of executable...\n");
|
|
|
464 printf ("\t0x%08x Offset in input file.\n", index);
|
|
|
465 printf ("\t0x%08x Offset in output file.\n", index);
|
|
|
466 printf ("\t0x%08x Size in bytes.\n", size);
|
|
|
467 memcpy ((char *) p_outfile->file_base + index,
|
|
|
468 (char *) p_infile->file_base + index, size);
|
|
|
469 }
|
|
|
470
|
|
|
471 static void
|
|
|
472 dump_bss_and_heap (file_data *p_infile, file_data *p_outfile)
|
|
|
473 {
|
|
|
474 unsigned char *heap_data, *bss_data;
|
|
|
475 unsigned long size, index;
|
|
|
476
|
|
|
477 printf ("Dumping heap into executable...\n");
|
|
|
478
|
|
|
479 index = heap_index_in_executable;
|
|
|
480 size = get_committed_heap_size ();
|
|
|
481 heap_data = get_heap_start ();
|
|
|
482
|
|
|
483 printf ("\t0x%08x Heap start in process.\n", heap_data);
|
|
|
484 printf ("\t0x%08x Heap offset in executable.\n", index);
|
|
|
485 printf ("\t0x%08x Heap size in bytes.\n", size);
|
|
|
486
|
|
|
487 memcpy ((PUCHAR) p_outfile->file_base + index, heap_data, size);
|
|
|
488
|
|
|
489 printf ("Dumping .bss into executable...\n");
|
|
|
490
|
|
|
491 index += size;
|
|
|
492 size = bss_size;
|
|
|
493 bss_data = bss_start;
|
|
|
494
|
|
|
495 printf ("\t0x%08x BSS start in process.\n", bss_data);
|
|
|
496 printf ("\t0x%08x BSS offset in executable.\n", index);
|
|
|
497 printf ("\t0x%08x BSS size in bytes.\n", size);
|
|
|
498 memcpy ((char *) p_outfile->file_base + index, bss_data, size);
|
|
|
499 }
|
|
|
500
|
|
|
501
|
|
|
502 /* Reload and remap routines. */
|
|
|
503
|
|
|
504
|
|
|
505 /* Load the dumped .bss section into the .bss area of our address space. */
|
|
|
506 void
|
|
|
507 read_in_bss (char *filename)
|
|
|
508 {
|
|
|
509 HANDLE file;
|
|
|
510 unsigned long size, index, n_read, total_read;
|
|
|
511 char buffer[512], *bss;
|
|
|
512 int i;
|
|
|
513
|
|
|
514 file = CreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL,
|
|
|
515 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
|
|
|
516 if (file == INVALID_HANDLE_VALUE)
|
|
|
517 {
|
|
|
518 i = GetLastError ();
|
|
|
519 exit (1);
|
|
|
520 }
|
|
|
521
|
|
|
522 /* Seek to where the .bss section is tucked away after the heap... */
|
|
|
523 index = heap_index_in_executable + get_committed_heap_size ();
|
|
|
524 if (SetFilePointer (file, index, NULL, FILE_BEGIN) == 0xFFFFFFFF)
|
|
|
525 {
|
|
|
526 i = GetLastError ();
|
|
|
527 exit (1);
|
|
|
528 }
|
|
|
529
|
|
|
530
|
|
|
531 /* Ok, read in the saved .bss section and initialize all
|
|
|
532 uninitialized variables. */
|
|
|
533 if (!ReadFile (file, bss_start, bss_size, &n_read, NULL))
|
|
|
534 {
|
|
|
535 i = GetLastError ();
|
|
|
536 exit (1);
|
|
|
537 }
|
|
|
538
|
|
|
539 CloseHandle (file);
|
|
|
540 }
|
|
|
541
|
|
|
542 /* Map the heap dumped into the executable file into our address space. */
|
|
|
543 void
|
|
|
544 map_in_heap (char *filename)
|
|
|
545 {
|
|
|
546 HANDLE file;
|
|
|
547 HANDLE file_mapping;
|
|
|
548 void *file_base;
|
|
|
549 unsigned long size, upper_size, n_read;
|
|
|
550 int i;
|
|
|
551
|
|
|
552 file = CreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL,
|
|
|
553 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
|
|
|
554 if (file == INVALID_HANDLE_VALUE)
|
|
|
555 {
|
|
|
556 i = GetLastError ();
|
|
|
557 exit (1);
|
|
|
558 }
|
|
|
559
|
|
|
560 size = GetFileSize (file, &upper_size);
|
|
|
561 file_mapping = CreateFileMapping (file, NULL, PAGE_WRITECOPY,
|
|
|
562 0, size, NULL);
|
|
|
563 if (!file_mapping)
|
|
|
564 {
|
|
|
565 i = GetLastError ();
|
|
|
566 exit (1);
|
|
|
567 }
|
|
|
568
|
|
|
569 size = get_committed_heap_size ();
|
|
|
570 file_base = MapViewOfFileEx (file_mapping, FILE_MAP_COPY, 0,
|
|
|
571 heap_index_in_executable, size,
|
|
|
572 get_heap_start ());
|
|
|
573 if (file_base != 0)
|
|
|
574 {
|
|
|
575 return;
|
|
|
576 }
|
|
|
577
|
|
|
578 /* If we don't succeed with the mapping, then copy from the
|
|
|
579 data into the heap. */
|
|
|
580
|
|
|
581 CloseHandle (file_mapping);
|
|
|
582
|
|
|
583 if (VirtualAlloc (get_heap_start (), get_committed_heap_size (),
|
|
|
584 MEM_RESERVE | MEM_COMMIT, PAGE_READWRITE) == NULL)
|
|
|
585 {
|
|
|
586 i = GetLastError ();
|
|
|
587 exit (1);
|
|
|
588 }
|
|
|
589
|
|
|
590 /* Seek to the location of the heap data in the executable. */
|
|
|
591 i = heap_index_in_executable;
|
|
|
592 if (SetFilePointer (file, i, NULL, FILE_BEGIN) == 0xFFFFFFFF)
|
|
|
593 {
|
|
|
594 i = GetLastError ();
|
|
|
595 exit (1);
|
|
|
596 }
|
|
|
597
|
|
|
598 /* Read in the data. */
|
|
|
599 if (!ReadFile (file, get_heap_start (),
|
|
|
600 get_committed_heap_size (), &n_read, NULL))
|
|
|
601 {
|
|
|
602 i = GetLastError ();
|
|
|
603 exit (1);
|
|
|
604 }
|
|
|
605
|
|
|
606 CloseHandle (file);
|
|
|
607 }
|
