annotate src/unexnt.c @ 404:2f8bb876ab1d r21-2-32

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