Mercurial > emacs
annotate src/unexw32.c @ 39260:2047dec7f46f
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 12 Sep 2001 20:41:52 +0000 |
parents | 79c890cce460 |
children | 23a1cea22d13 |
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. */ |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
58 BOOL using_dynamic_heap = FALSE; |
12245 | 59 |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
60 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
|
61 int open_output_file (file_data *p_file, char *name, unsigned long size); |
12245 | 62 void close_file_data (file_data *p_file); |
63 | |
64 void get_section_info (file_data *p_file); | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
65 void copy_executable_and_dump_data (file_data *, file_data *); |
12245 | 66 void dump_bss_and_heap (file_data *p_infile, file_data *p_outfile); |
67 | |
68 /* Cached info about the .data section in the executable. */ | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
69 PIMAGE_SECTION_HEADER data_section; |
31104 | 70 PCHAR data_start = 0; |
12245 | 71 DWORD data_size = 0; |
72 | |
73 /* Cached info about the .bss section in the executable. */ | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
74 PIMAGE_SECTION_HEADER bss_section; |
31104 | 75 PCHAR bss_start = 0; |
12245 | 76 DWORD bss_size = 0; |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
77 DWORD extra_bss_size = 0; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
78 /* bss data that is static might be discontiguous from non-static. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
79 PIMAGE_SECTION_HEADER bss_section_static; |
31104 | 80 PCHAR bss_start_static = 0; |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
81 DWORD bss_size_static = 0; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
82 DWORD extra_bss_size_static = 0; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
83 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
84 PIMAGE_SECTION_HEADER heap_section; |
12245 | 85 |
13423
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
86 #ifdef HAVE_NTGUI |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
87 HINSTANCE hinst = NULL; |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
88 HINSTANCE hprevinst = NULL; |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
89 LPSTR lpCmdLine = ""; |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
90 int nCmdShow = 0; |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
91 #endif /* HAVE_NTGUI */ |
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
92 |
12245 | 93 /* Startup code for running on NT. When we are running as the dumped |
94 version, we need to bootstrap our heap and .bss section into our | |
95 address space before we can actually hand off control to the startup | |
96 code supplied by NT (primarily because that code relies upon malloc ()). */ | |
97 void | |
98 _start (void) | |
99 { | |
100 extern void mainCRTStartup (void); | |
101 | |
24237
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
102 #if 1 |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
103 /* 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
|
104 running under the MSVC profiler. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
105 if (GetEnvironmentVariable ("EMACS_DEBUG", NULL, 0) > 0) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
106 DebugBreak (); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
107 #endif |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
108 |
12245 | 109 /* Cache system info, e.g., the NT page size. */ |
110 cache_system_info (); | |
111 | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
112 /* Grab our malloc arena space now, before CRT starts up. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
113 init_heap (); |
12245 | 114 |
115 /* The default behavior is to treat files as binary and patch up | |
116 text files appropriately, in accordance with the MSDOS code. */ | |
117 _fmode = O_BINARY; | |
118 | |
119 /* This prevents ctrl-c's in shells running while we're suspended from | |
120 having us exit. */ | |
121 SetConsoleCtrlHandler ((PHANDLER_ROUTINE) ctrl_c_handler, TRUE); | |
122 | |
23948
5d7a43e8b133
(_start): Force system calls accessing unmounted devices to fail
Andrew Innes <andrewi@gnu.org>
parents:
22300
diff
changeset
|
123 /* Prevent Emacs from being locked up (eg. in batch mode) when |
5d7a43e8b133
(_start): Force system calls accessing unmounted devices to fail
Andrew Innes <andrewi@gnu.org>
parents:
22300
diff
changeset
|
124 accessing devices that aren't mounted (eg. removable media drives). */ |
5d7a43e8b133
(_start): Force system calls accessing unmounted devices to fail
Andrew Innes <andrewi@gnu.org>
parents:
22300
diff
changeset
|
125 SetErrorMode (SEM_FAILCRITICALERRORS); |
5d7a43e8b133
(_start): Force system calls accessing unmounted devices to fail
Andrew Innes <andrewi@gnu.org>
parents:
22300
diff
changeset
|
126 |
12245 | 127 /* Invoke the NT CRT startup routine now that our housecleaning |
128 is finished. */ | |
13423
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
129 #ifdef HAVE_NTGUI |
15146
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
130 /* determine WinMain args like crt0.c does */ |
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
131 hinst = GetModuleHandle(NULL); |
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
132 lpCmdLine = GetCommandLine(); |
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
133 nCmdShow = SW_SHOWDEFAULT; |
be6560506cce
(WinMain): Function removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14812
diff
changeset
|
134 #endif |
12245 | 135 mainCRTStartup (); |
136 } | |
137 | |
138 | |
139 /* File handling. */ | |
140 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
141 int |
12245 | 142 open_input_file (file_data *p_file, char *filename) |
143 { | |
144 HANDLE file; | |
145 HANDLE file_mapping; | |
146 void *file_base; | |
147 unsigned long size, upper_size; | |
148 | |
149 file = CreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL, | |
150 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); | |
151 if (file == INVALID_HANDLE_VALUE) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
152 return FALSE; |
12245 | 153 |
154 size = GetFileSize (file, &upper_size); | |
155 file_mapping = CreateFileMapping (file, NULL, PAGE_READONLY, | |
156 0, size, NULL); | |
157 if (!file_mapping) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
158 return FALSE; |
12245 | 159 |
160 file_base = MapViewOfFile (file_mapping, FILE_MAP_READ, 0, 0, size); | |
161 if (file_base == 0) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
162 return FALSE; |
12245 | 163 |
164 p_file->name = filename; | |
165 p_file->size = size; | |
166 p_file->file = file; | |
167 p_file->file_mapping = file_mapping; | |
168 p_file->file_base = file_base; | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
169 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
170 return TRUE; |
12245 | 171 } |
172 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
173 int |
12245 | 174 open_output_file (file_data *p_file, char *filename, unsigned long size) |
175 { | |
176 HANDLE file; | |
177 HANDLE file_mapping; | |
178 void *file_base; | |
13423
eefa4f720371
[HAVE_NTGUI] (WinMain): New procedure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12454
diff
changeset
|
179 |
12245 | 180 file = CreateFile (filename, GENERIC_READ | GENERIC_WRITE, 0, NULL, |
181 CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); | |
182 if (file == INVALID_HANDLE_VALUE) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
183 return FALSE; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
184 |
12245 | 185 file_mapping = CreateFileMapping (file, NULL, PAGE_READWRITE, |
186 0, size, NULL); | |
187 if (!file_mapping) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
188 return FALSE; |
12245 | 189 |
190 file_base = MapViewOfFile (file_mapping, FILE_MAP_WRITE, 0, 0, size); | |
191 if (file_base == 0) | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
192 return FALSE; |
12245 | 193 |
194 p_file->name = filename; | |
195 p_file->size = size; | |
196 p_file->file = file; | |
197 p_file->file_mapping = file_mapping; | |
198 p_file->file_base = file_base; | |
19703
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 return TRUE; |
12245 | 201 } |
202 | |
203 /* 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
|
204 void |
12245 | 205 close_file_data (file_data *p_file) |
206 { | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
207 UnmapViewOfFile (p_file->file_base); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
208 CloseHandle (p_file->file_mapping); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
209 /* For the case of output files, set final size. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
210 SetFilePointer (p_file->file, p_file->size, NULL, FILE_BEGIN); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
211 SetEndOfFile (p_file->file); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
212 CloseHandle (p_file->file); |
12245 | 213 } |
214 | |
215 | |
216 /* Routines to manipulate NT executable file sections. */ | |
217 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
218 /* 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
|
219 IMAGE_SECTION_HEADER * |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
220 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
|
221 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
222 PIMAGE_SECTION_HEADER section; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
223 int i; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
224 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
225 section = IMAGE_FIRST_SECTION (nt_header); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
226 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
227 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) |
12245 | 228 { |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
229 if (strcmp (section->Name, name) == 0) |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
230 return section; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
231 section++; |
12245 | 232 } |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
233 return NULL; |
12245 | 234 } |
235 | |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
236 /* 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
|
237 relative virtual address. */ |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
238 IMAGE_SECTION_HEADER * |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
239 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
|
240 { |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
241 PIMAGE_SECTION_HEADER section; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
242 int i; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
243 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
244 section = IMAGE_FIRST_SECTION (nt_header); |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
245 |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
246 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
|
247 { |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
248 /* Some linkers (eg. the NT SDK linker I believe) swapped the |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
249 meaning of these two values - or rather, they ignored |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
250 VirtualSize entirely and always set it to zero. This affects |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
251 some very old exes (eg. gzip dated Dec 1993). Since |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
252 w32_executable_type relies on this function to work reliably, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
253 we need to cope with this. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
254 DWORD real_size = max (section->SizeOfRawData, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
255 section->Misc.VirtualSize); |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
256 if (rva >= section->VirtualAddress |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
257 && rva < section->VirtualAddress + real_size) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
258 return section; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
259 section++; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
260 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
261 return NULL; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
262 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
263 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
264 /* Return pointer to section header for section containing the given |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
265 offset in its raw data area. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
266 IMAGE_SECTION_HEADER * |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
267 offset_to_section (DWORD offset, IMAGE_NT_HEADERS * nt_header) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
268 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
269 PIMAGE_SECTION_HEADER section; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
270 int i; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
271 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
272 section = IMAGE_FIRST_SECTION (nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
273 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
274 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
275 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
276 if (offset >= section->PointerToRawData |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
277 && offset < section->PointerToRawData + section->SizeOfRawData) |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
278 return section; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
279 section++; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
280 } |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
281 return NULL; |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
282 } |
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
283 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
284 /* Return offset to an object in dst, given offset in src. We assume |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
285 there is at least one section in both src and dst images, and that |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
286 the some sections may have been added to dst (after sections in src). */ |
31104 | 287 DWORD |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
288 relocate_offset (DWORD offset, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
289 IMAGE_NT_HEADERS * src_nt_header, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
290 IMAGE_NT_HEADERS * dst_nt_header) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
291 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
292 PIMAGE_SECTION_HEADER src_section = IMAGE_FIRST_SECTION (src_nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
293 PIMAGE_SECTION_HEADER dst_section = IMAGE_FIRST_SECTION (dst_nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
294 int i = 0; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
295 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
296 while (offset >= src_section->PointerToRawData) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
297 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
298 if (offset < src_section->PointerToRawData + src_section->SizeOfRawData) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
299 break; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
300 i++; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
301 if (i == src_nt_header->FileHeader.NumberOfSections) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
302 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
303 /* Handle offsets after the last section. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
304 dst_section = IMAGE_FIRST_SECTION (dst_nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
305 dst_section += dst_nt_header->FileHeader.NumberOfSections - 1; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
306 while (dst_section->PointerToRawData == 0) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
307 dst_section--; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
308 while (src_section->PointerToRawData == 0) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
309 src_section--; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
310 return offset |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
311 + (dst_section->PointerToRawData + dst_section->SizeOfRawData) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
312 - (src_section->PointerToRawData + src_section->SizeOfRawData); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
313 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
314 src_section++; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
315 dst_section++; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
316 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
317 return offset + |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
318 (dst_section->PointerToRawData - src_section->PointerToRawData); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
319 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
320 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
321 #define OFFSET_TO_RVA(offset, section) \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
322 (section->VirtualAddress + ((DWORD)(offset) - section->PointerToRawData)) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
323 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
324 #define RVA_TO_OFFSET(rva, section) \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
325 (section->PointerToRawData + ((DWORD)(rva) - section->VirtualAddress)) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
326 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
327 #define RVA_TO_SECTION_OFFSET(rva, section) \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
328 ((DWORD)(rva) - section->VirtualAddress) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
329 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
330 /* Convert address in executing image to RVA. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
331 #define PTR_TO_RVA(ptr) ((DWORD)(ptr) - (DWORD) GetModuleHandle (NULL)) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
332 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
333 #define PTR_TO_OFFSET(ptr, pfile_data) \ |
31104 | 334 ((unsigned char *)(ptr) - (pfile_data)->file_base) |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
335 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
336 #define OFFSET_TO_PTR(offset, pfile_data) \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
337 ((pfile_data)->file_base + (DWORD)(offset)) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
338 |
19703
9fa57c73882d
Include config.h and time.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18506
diff
changeset
|
339 |
12245 | 340 /* Flip through the executable and cache the info necessary for dumping. */ |
31104 | 341 void |
12245 | 342 get_section_info (file_data *p_infile) |
343 { | |
344 PIMAGE_DOS_HEADER dos_header; | |
345 PIMAGE_NT_HEADERS nt_header; | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
346 PIMAGE_SECTION_HEADER section; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
347 int overlap; |
12245 | 348 |
349 dos_header = (PIMAGE_DOS_HEADER) p_infile->file_base; | |
350 if (dos_header->e_magic != IMAGE_DOS_SIGNATURE) | |
351 { | |
352 printf ("Unknown EXE header in %s...bailing.\n", p_infile->name); | |
353 exit (1); | |
354 } | |
355 nt_header = (PIMAGE_NT_HEADERS) (((unsigned long) dos_header) + | |
356 dos_header->e_lfanew); | |
357 if (nt_header == NULL) | |
358 { | |
359 printf ("Failed to find IMAGE_NT_HEADER in %s...bailing.\n", | |
360 p_infile->name); | |
361 exit (1); | |
362 } | |
363 | |
364 /* Check the NT header signature ... */ | |
365 if (nt_header->Signature != IMAGE_NT_SIGNATURE) | |
366 { | |
367 printf ("Invalid IMAGE_NT_SIGNATURE 0x%x in %s...bailing.\n", | |
368 nt_header->Signature, p_infile->name); | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
369 exit (1); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
370 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
371 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
372 /* Locate the ".data" and ".bss" sections for Emacs. (Note that the |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
373 actual section names are probably different from these, and might |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
374 actually be the same section.) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
375 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
376 We do this as follows: first we determine the virtual address |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
377 ranges in this process for the data and bss variables that we wish |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
378 to preserve. Then we map these VAs to the section entries in the |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
379 source image. Finally, we determine the new size of the raw data |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
380 area for the bss section, so we can make the new image the correct |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
381 size. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
382 |
24669
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
383 /* We arrange for the Emacs initialized data to be in a separate |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
384 section if possible, because we cannot rely on my_begdata and |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
385 my_edata marking out the full extent of the initialized data, at |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
386 least on the Alpha where the linker freely reorders variables |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
387 across libraries. If we can arrange for this, all we need to do is |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
388 find the start and size of the EMDATA section. */ |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
389 data_section = find_section ("EMDATA", nt_header); |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
390 if (data_section) |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
391 { |
24669
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
392 data_start = (char *) nt_header->OptionalHeader.ImageBase + |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
393 data_section->VirtualAddress; |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
394 data_size = data_section->Misc.VirtualSize; |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
395 } |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
396 else |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
397 { |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
398 /* Fallback on the old method if compiler doesn't support the |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
399 data_set #pragma (or its equivalent). */ |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
400 data_start = my_begdata; |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
401 data_size = my_edata - my_begdata; |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
402 data_section = rva_to_section (PTR_TO_RVA (my_begdata), nt_header); |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
403 if (data_section != rva_to_section (PTR_TO_RVA (my_edata), nt_header)) |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
404 { |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
405 printf ("Initialized data is not in a single section...bailing\n"); |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
406 exit (1); |
66df82aa955e
(get_section_info): Dump back the entire EMDATA
Andrew Innes <andrewi@gnu.org>
parents:
24237
diff
changeset
|
407 } |
12245 | 408 } |
409 | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
410 /* As noted in lastfile.c, the Alpha (but not the Intel) MSVC linker |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
411 globally segregates all static and public bss data (ie. across all |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
412 linked modules, not just per module), so we must take both static |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
413 and public bss areas into account to determine the true extent of |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
414 the bss area used by Emacs. |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
415 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
416 To be strictly correct, we dump the static and public bss areas |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
417 used by Emacs separately if non-overlapping (since otherwise we are |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
418 dumping bss data belonging to system libraries, eg. the static bss |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
419 system data on the Alpha). */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
420 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
421 bss_start = my_begbss; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
422 bss_size = my_endbss - my_begbss; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
423 bss_section = rva_to_section (PTR_TO_RVA (my_begbss), nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
424 if (bss_section != rva_to_section (PTR_TO_RVA (my_endbss), nt_header)) |
12245 | 425 { |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
426 printf ("Uninitialized data is not in a single section...bailing\n"); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
427 exit (1); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
428 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
429 /* Compute how much the .bss section's raw data will grow. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
430 extra_bss_size = |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
431 ROUND_UP (RVA_TO_SECTION_OFFSET (PTR_TO_RVA (my_endbss), bss_section), |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
432 nt_header->OptionalHeader.FileAlignment) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
433 - bss_section->SizeOfRawData; |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
434 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
435 bss_start_static = my_begbss_static; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
436 bss_size_static = my_endbss_static - my_begbss_static; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
437 bss_section_static = rva_to_section (PTR_TO_RVA (my_begbss_static), nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
438 if (bss_section_static != rva_to_section (PTR_TO_RVA (my_endbss_static), nt_header)) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
439 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
440 printf ("Uninitialized static data is not in a single section...bailing\n"); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
441 exit (1); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
442 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
443 /* Compute how much the static .bss section's raw data will grow. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
444 extra_bss_size_static = |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
445 ROUND_UP (RVA_TO_SECTION_OFFSET (PTR_TO_RVA (my_endbss_static), bss_section_static), |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
446 nt_header->OptionalHeader.FileAlignment) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
447 - bss_section_static->SizeOfRawData; |
12454
3f4da17a7cd8
(get_section_info): Set the end of the data region
Geoff Voelker <voelker@cs.washington.edu>
parents:
12245
diff
changeset
|
448 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
449 /* Combine the bss sections into one if they overlap. */ |
24806
a67730c51617
(get_section_info) [_ALPHA_]: Force as much bss data
Andrew Innes <andrewi@gnu.org>
parents:
24669
diff
changeset
|
450 #ifdef _ALPHA_ |
a67730c51617
(get_section_info) [_ALPHA_]: Force as much bss data
Andrew Innes <andrewi@gnu.org>
parents:
24669
diff
changeset
|
451 overlap = 1; /* force all bss data to be dumped */ |
a67730c51617
(get_section_info) [_ALPHA_]: Force as much bss data
Andrew Innes <andrewi@gnu.org>
parents:
24669
diff
changeset
|
452 #else |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
453 overlap = 0; |
24806
a67730c51617
(get_section_info) [_ALPHA_]: Force as much bss data
Andrew Innes <andrewi@gnu.org>
parents:
24669
diff
changeset
|
454 #endif |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
455 if (bss_start < bss_start_static) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
456 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
457 if (bss_start_static < bss_start + bss_size) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
458 overlap = 1; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
459 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
460 else |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
461 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
462 if (bss_start < bss_start_static + bss_size_static) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
463 overlap = 1; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
464 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
465 if (overlap) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
466 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
467 if (bss_section != bss_section_static) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
468 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
469 printf ("BSS data not in a single section...bailing\n"); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
470 exit (1); |
12245 | 471 } |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
472 bss_start = min (bss_start, bss_start_static); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
473 bss_size = max (my_endbss, my_endbss_static) - bss_start; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
474 bss_section_static = 0; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
475 extra_bss_size_static = 0; |
12245 | 476 } |
13830
8d30151f4acb
(get_bss_info_from_map_file): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13423
diff
changeset
|
477 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
478 heap_section = rva_to_section (PTR_TO_RVA (get_heap_start ()), nt_header); |
12245 | 479 } |
480 | |
481 | |
482 /* The dump routines. */ | |
483 | |
31104 | 484 void |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
485 copy_executable_and_dump_data (file_data *p_infile, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
486 file_data *p_outfile) |
12245 | 487 { |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
488 unsigned char *dst, *dst_save; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
489 PIMAGE_DOS_HEADER dos_header; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
490 PIMAGE_NT_HEADERS nt_header; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
491 PIMAGE_NT_HEADERS dst_nt_header; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
492 PIMAGE_SECTION_HEADER section; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
493 PIMAGE_SECTION_HEADER dst_section; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
494 DWORD offset; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
495 int i; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
496 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
497 #define COPY_CHUNK(message, src, size) \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
498 do { \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
499 unsigned char *s = (void *)(src); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
500 unsigned long count = (size); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
501 printf ("%s\n", (message)); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
502 printf ("\t0x%08x Offset in input file.\n", s - p_infile->file_base); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
503 printf ("\t0x%08x Offset in output file.\n", dst - p_outfile->file_base); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
504 printf ("\t0x%08x Size in bytes.\n", count); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
505 memcpy (dst, s, count); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
506 dst += count; \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
507 } while (0) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
508 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
509 #define COPY_PROC_CHUNK(message, src, size) \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
510 do { \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
511 unsigned char *s = (void *)(src); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
512 unsigned long count = (size); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
513 printf ("%s\n", (message)); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
514 printf ("\t0x%08x Address in process.\n", s); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
515 printf ("\t0x%08x Offset in output file.\n", dst - p_outfile->file_base); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
516 printf ("\t0x%08x Size in bytes.\n", count); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
517 memcpy (dst, s, count); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
518 dst += count; \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
519 } while (0) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
520 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
521 #define DST_TO_OFFSET() PTR_TO_OFFSET (dst, p_outfile) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
522 #define ROUND_UP_DST(align) \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
523 (dst = p_outfile->file_base + ROUND_UP (DST_TO_OFFSET (), (align))) |
24237
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
524 #define ROUND_UP_DST_AND_ZERO(align) \ |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
525 do { \ |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
526 unsigned char *newdst = p_outfile->file_base \ |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
527 + ROUND_UP (DST_TO_OFFSET (), (align)); \ |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
528 /* Zero the alignment slop; it may actually initialize real data. */ \ |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
529 memset (dst, 0, newdst - dst); \ |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
530 dst = newdst; \ |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
531 } while (0) |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
532 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
533 /* Copy the source image sequentially, ie. section by section after |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
534 copying the headers and section table, to simplify the process of |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
535 dumping the raw data for the bss and heap sections. |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
536 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
537 Note that dst is updated implicitly by each COPY_CHUNK. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
538 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
539 dos_header = (PIMAGE_DOS_HEADER) p_infile->file_base; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
540 nt_header = (PIMAGE_NT_HEADERS) (((unsigned long) dos_header) + |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
541 dos_header->e_lfanew); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
542 section = IMAGE_FIRST_SECTION (nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
543 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
544 dst = (unsigned char *) p_outfile->file_base; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
545 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
546 COPY_CHUNK ("Copying DOS header...", dos_header, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
547 (DWORD) nt_header - (DWORD) dos_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
548 dst_nt_header = (PIMAGE_NT_HEADERS) dst; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
549 COPY_CHUNK ("Copying NT header...", nt_header, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
550 (DWORD) section - (DWORD) nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
551 dst_section = (PIMAGE_SECTION_HEADER) dst; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
552 COPY_CHUNK ("Copying section table...", section, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
553 nt_header->FileHeader.NumberOfSections * sizeof (*section)); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
554 |
24237
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
555 /* Align the first section's raw data area, and set the header size |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
556 field accordingly. */ |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
557 ROUND_UP_DST_AND_ZERO (dst_nt_header->OptionalHeader.FileAlignment); |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
558 dst_nt_header->OptionalHeader.SizeOfHeaders = DST_TO_OFFSET (); |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
559 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
560 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
561 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
562 char msg[100]; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
563 sprintf (msg, "Copying raw data for %s...", section->Name); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
564 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
565 dst_save = dst; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
566 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
567 /* Update the file-relative offset for this section's raw data (if |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
568 it has any) in case things have been relocated; we will update |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
569 the other offsets below once we know where everything is. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
570 if (dst_section->PointerToRawData) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
571 dst_section->PointerToRawData = DST_TO_OFFSET (); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
572 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
573 /* Can always copy the original raw data. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
574 COPY_CHUNK |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
575 (msg, OFFSET_TO_PTR (section->PointerToRawData, p_infile), |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
576 section->SizeOfRawData); |
24237
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
577 /* Ensure alignment slop is zeroed. */ |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
578 ROUND_UP_DST_AND_ZERO (dst_nt_header->OptionalHeader.FileAlignment); |
12245 | 579 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
580 /* Note that various sections below may be aliases. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
581 if (section == data_section) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
582 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
583 dst = dst_save |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
584 + RVA_TO_SECTION_OFFSET (PTR_TO_RVA (data_start), dst_section); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
585 COPY_PROC_CHUNK ("Dumping initialized data...", data_start, data_size); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
586 dst = dst_save + dst_section->SizeOfRawData; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
587 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
588 if (section == bss_section) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
589 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
590 /* Dump contents of bss variables, adjusting the section's raw |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
591 data size as necessary. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
592 dst = dst_save |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
593 + RVA_TO_SECTION_OFFSET (PTR_TO_RVA (bss_start), dst_section); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
594 COPY_PROC_CHUNK ("Dumping bss data...", bss_start, bss_size); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
595 ROUND_UP_DST (dst_nt_header->OptionalHeader.FileAlignment); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
596 dst_section->PointerToRawData = PTR_TO_OFFSET (dst_save, p_outfile); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
597 /* Determine new size of raw data area. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
598 dst = max (dst, dst_save + dst_section->SizeOfRawData); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
599 dst_section->SizeOfRawData = dst - dst_save; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
600 dst_section->Characteristics &= ~IMAGE_SCN_CNT_UNINITIALIZED_DATA; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
601 dst_section->Characteristics |= IMAGE_SCN_CNT_INITIALIZED_DATA; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
602 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
603 if (section == bss_section_static) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
604 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
605 /* Dump contents of static bss variables, adjusting the |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
606 section's raw data size as necessary. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
607 dst = dst_save |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
608 + RVA_TO_SECTION_OFFSET (PTR_TO_RVA (bss_start_static), dst_section); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
609 COPY_PROC_CHUNK ("Dumping static bss data...", bss_start_static, bss_size_static); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
610 ROUND_UP_DST (dst_nt_header->OptionalHeader.FileAlignment); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
611 dst_section->PointerToRawData = PTR_TO_OFFSET (dst_save, p_outfile); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
612 /* Determine new size of raw data area. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
613 dst = max (dst, dst_save + dst_section->SizeOfRawData); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
614 dst_section->SizeOfRawData = dst - dst_save; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
615 dst_section->Characteristics &= ~IMAGE_SCN_CNT_UNINITIALIZED_DATA; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
616 dst_section->Characteristics |= IMAGE_SCN_CNT_INITIALIZED_DATA; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
617 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
618 if (section == heap_section) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
619 { |
31104 | 620 DWORD heap_start = (DWORD) get_heap_start (); |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
621 DWORD heap_size = get_committed_heap_size (); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
622 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
623 /* Dump the used portion of the predump heap, adjusting the |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
624 section's size to the appropriate size. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
625 dst = dst_save |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
626 + RVA_TO_SECTION_OFFSET (PTR_TO_RVA (heap_start), dst_section); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
627 COPY_PROC_CHUNK ("Dumping heap...", heap_start, heap_size); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
628 ROUND_UP_DST (dst_nt_header->OptionalHeader.FileAlignment); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
629 dst_section->PointerToRawData = PTR_TO_OFFSET (dst_save, p_outfile); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
630 /* Determine new size of raw data area. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
631 dst = max (dst, dst_save + dst_section->SizeOfRawData); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
632 dst_section->SizeOfRawData = dst - dst_save; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
633 /* Reduce the size of the heap section to fit (must be last |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
634 section). */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
635 dst_nt_header->OptionalHeader.SizeOfImage -= |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
636 dst_section->Misc.VirtualSize |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
637 - ROUND_UP (dst_section->SizeOfRawData, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
638 dst_nt_header->OptionalHeader.SectionAlignment); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
639 dst_section->Misc.VirtualSize = |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
640 ROUND_UP (dst_section->SizeOfRawData, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
641 dst_nt_header->OptionalHeader.SectionAlignment); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
642 dst_section->Characteristics &= ~IMAGE_SCN_CNT_UNINITIALIZED_DATA; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
643 dst_section->Characteristics |= IMAGE_SCN_CNT_INITIALIZED_DATA; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
644 } |
12245 | 645 |
24237
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
646 /* Align the section's raw data area. */ |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
647 ROUND_UP_DST (dst_nt_header->OptionalHeader.FileAlignment); |
16e5582ed876
(ROUND_UP_DST_AND_ZERO): New macro.
Andrew Innes <andrewi@gnu.org>
parents:
24102
diff
changeset
|
648 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
649 section++; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
650 dst_section++; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
651 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
652 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
653 /* Copy remainder of source image. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
654 do |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
655 section--; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
656 while (section->PointerToRawData == 0); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
657 offset = ROUND_UP (section->PointerToRawData + section->SizeOfRawData, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
658 nt_header->OptionalHeader.FileAlignment); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
659 COPY_CHUNK |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
660 ("Copying remainder of executable...", |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
661 OFFSET_TO_PTR (offset, p_infile), |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
662 p_infile->size - offset); |
12245 | 663 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
664 /* Final size for new image. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
665 p_outfile->size = DST_TO_OFFSET (); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
666 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
667 /* Now patch up remaining file-relative offsets. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
668 section = IMAGE_FIRST_SECTION (nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
669 dst_section = IMAGE_FIRST_SECTION (dst_nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
670 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
671 #define ADJUST_OFFSET(var) \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
672 do { \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
673 if ((var) != 0) \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
674 (var) = relocate_offset ((var), nt_header, dst_nt_header); \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
675 } while (0) |
12245 | 676 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
677 dst_nt_header->OptionalHeader.SizeOfInitializedData = 0; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
678 dst_nt_header->OptionalHeader.SizeOfUninitializedData = 0; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
679 for (i = 0; i < dst_nt_header->FileHeader.NumberOfSections; i++) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
680 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
681 /* Recompute data sizes for completeness. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
682 if (dst_section[i].Characteristics & IMAGE_SCN_CNT_INITIALIZED_DATA) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
683 dst_nt_header->OptionalHeader.SizeOfInitializedData += |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
684 ROUND_UP (dst_section[i].Misc.VirtualSize, dst_nt_header->OptionalHeader.FileAlignment); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
685 else if (dst_section[i].Characteristics & IMAGE_SCN_CNT_UNINITIALIZED_DATA) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
686 dst_nt_header->OptionalHeader.SizeOfUninitializedData += |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
687 ROUND_UP (dst_section[i].Misc.VirtualSize, dst_nt_header->OptionalHeader.FileAlignment); |
12245 | 688 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
689 ADJUST_OFFSET (dst_section[i].PointerToLinenumbers); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
690 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
691 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
692 ADJUST_OFFSET (dst_nt_header->FileHeader.PointerToSymbolTable); |
12245 | 693 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
694 /* Update offsets in debug directory entries. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
695 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
696 IMAGE_DATA_DIRECTORY debug_dir = |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
697 dst_nt_header->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_DEBUG]; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
698 PIMAGE_DEBUG_DIRECTORY debug_entry; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
699 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
700 section = rva_to_section (debug_dir.VirtualAddress, dst_nt_header); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
701 if (section) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
702 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
703 debug_entry = (PIMAGE_DEBUG_DIRECTORY) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
704 (RVA_TO_OFFSET (debug_dir.VirtualAddress, section) + p_outfile->file_base); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
705 debug_dir.Size /= sizeof (IMAGE_DEBUG_DIRECTORY); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
706 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
707 for (i = 0; i < debug_dir.Size; i++, debug_entry++) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
708 ADJUST_OFFSET (debug_entry->PointerToRawData); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
709 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
710 } |
12245 | 711 } |
712 | |
713 | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
714 /* Dump out .data and .bss sections into a new executable. */ |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
715 void |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
716 unexec (char *new_name, char *old_name, void *start_data, void *start_bss, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
717 void *entry_address) |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
718 { |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
719 file_data in_file, out_file; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
720 char out_filename[MAX_PATH], in_filename[MAX_PATH]; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
721 unsigned long size; |
31104 | 722 char *p; |
723 char *q; | |
724 | |
725 /* Ignore old_name, and get our actual location from the OS. */ | |
726 if (!GetModuleFileName (NULL, in_filename, MAX_PATH)) | |
727 abort (); | |
728 dostounix_filename (in_filename); | |
729 strcpy (out_filename, in_filename); | |
730 | |
731 /* Change the base of the output filename to match the requested name. */ | |
732 if ((p = strrchr (out_filename, '/')) == NULL) | |
733 abort (); | |
734 /* The filenames have already been expanded, and will be in Unix | |
735 format, so it is safe to expect an absolute name. */ | |
736 if ((q = strrchr (new_name, '/')) == NULL) | |
737 abort (); | |
738 strcpy (p, q); | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
739 |
31104 | 740 /* Make sure that the output filename has the ".exe" extension...patch |
741 it up if not. */ | |
742 p = out_filename + strlen (out_filename) - 4; | |
743 if (strcmp (p, ".exe")) | |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
744 strcat (out_filename, ".exe"); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
745 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
746 printf ("Dumping from %s\n", in_filename); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
747 printf (" to %s\n", out_filename); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
748 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
749 /* We need to round off our heap to NT's page size. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
750 round_heap (get_page_size ()); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
751 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
752 /* Open the undumped executable file. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
753 if (!open_input_file (&in_file, in_filename)) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
754 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
755 printf ("Failed to open %s (%d)...bailing.\n", |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
756 in_filename, GetLastError ()); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
757 exit (1); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
758 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
759 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
760 /* Get the interesting section info, like start and size of .bss... */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
761 get_section_info (&in_file); |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
762 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
763 /* The size of the dumped executable is the size of the original |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
764 executable plus the size of the heap and the size of the .bss section. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
765 size = in_file.size + |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
766 get_committed_heap_size () + |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
767 extra_bss_size + |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
768 extra_bss_size_static; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
769 if (!open_output_file (&out_file, out_filename, size)) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
770 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
771 printf ("Failed to open %s (%d)...bailing.\n", |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
772 out_filename, GetLastError ()); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
773 exit (1); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
774 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
775 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
776 /* Set the flag (before dumping). */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
777 using_dynamic_heap = TRUE; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
778 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
779 copy_executable_and_dump_data (&in_file, &out_file); |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
780 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
781 /* Patch up header fields; profiler is picky about this. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
782 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
783 PIMAGE_DOS_HEADER dos_header; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
784 PIMAGE_NT_HEADERS nt_header; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
785 HANDLE hImagehelp = LoadLibrary ("imagehlp.dll"); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
786 DWORD headersum; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
787 DWORD checksum; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
788 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
789 dos_header = (PIMAGE_DOS_HEADER) out_file.file_base; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
790 nt_header = (PIMAGE_NT_HEADERS) ((char *) dos_header + dos_header->e_lfanew); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
791 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
792 nt_header->OptionalHeader.CheckSum = 0; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
793 // nt_header->FileHeader.TimeDateStamp = time (NULL); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
794 // dos_header->e_cp = size / 512; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
795 // nt_header->OptionalHeader.SizeOfImage = size; |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
796 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
797 pfnCheckSumMappedFile = (void *) GetProcAddress (hImagehelp, "CheckSumMappedFile"); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
798 if (pfnCheckSumMappedFile) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
799 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
800 // nt_header->FileHeader.TimeDateStamp = time (NULL); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
801 pfnCheckSumMappedFile (out_file.file_base, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
802 out_file.size, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
803 &headersum, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
804 &checksum); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
805 nt_header->OptionalHeader.CheckSum = checksum; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
806 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
807 FreeLibrary (hImagehelp); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
808 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
809 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
810 close_file_data (&in_file); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
811 close_file_data (&out_file); |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
812 } |
12245 | 813 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
814 /* eof */ |