Mercurial > emacs
annotate src/unexw32.c @ 29473:80835e075d87
(display_line): Set row's and iterator's
starts_in_middle_of_char_p and ends_in_middle_of_char_p flags.
Set cursor even if row ends in the middle of a character.
(dump_glyph_row): Print values of new flags.
(redisplay_window) <cursor movement in unchanged window>: When
point has been moved forward, and PT is at the end of the cursor
row, don't place the cursor in the next row if the cursor row ends
in the middle of a character or at ZV.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 06 Jun 2000 20:02:39 +0000 |
parents | a67730c51617 |
children | 79c890cce460 |
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; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
70 PUCHAR 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; |
12245 | 75 PUCHAR bss_start = 0; |
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; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
80 PUCHAR bss_start_static = 0; |
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). */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
287 static DWORD |
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) \ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
334 ((char *)(ptr) - (pfile_data)->file_base) |
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. */ |
341 static void | |
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 | |
484 static 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 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
620 DWORD heap_start = get_heap_start (); |
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; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
722 char *ptr; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
723 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
724 /* Make sure that the input and output filenames have the |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
725 ".exe" extension...patch them up if they don't. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
726 strcpy (in_filename, old_name); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
727 ptr = in_filename + strlen (in_filename) - 4; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
728 if (strcmp (ptr, ".exe")) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
729 strcat (in_filename, ".exe"); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
730 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
731 strcpy (out_filename, new_name); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
732 ptr = out_filename + strlen (out_filename) - 4; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
733 if (strcmp (ptr, ".exe")) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
734 strcat (out_filename, ".exe"); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
735 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
736 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
|
737 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
|
738 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
739 /* 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
|
740 round_heap (get_page_size ()); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
741 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
742 /* Open the undumped executable file. */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
743 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
|
744 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
745 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
|
746 in_filename, GetLastError ()); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
747 exit (1); |
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 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
750 /* 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
|
751 get_section_info (&in_file); |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
752 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
753 /* 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
|
754 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
|
755 size = in_file.size + |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
756 get_committed_heap_size () + |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
757 extra_bss_size + |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
758 extra_bss_size_static; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
759 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
|
760 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
761 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
|
762 out_filename, GetLastError ()); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
763 exit (1); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
764 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
765 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
766 /* Set the flag (before dumping). */ |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
767 using_dynamic_heap = TRUE; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
768 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
769 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
|
770 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
771 /* 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
|
772 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
773 PIMAGE_DOS_HEADER dos_header; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
774 PIMAGE_NT_HEADERS nt_header; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
775 HANDLE hImagehelp = LoadLibrary ("imagehlp.dll"); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
776 DWORD headersum; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
777 DWORD checksum; |
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 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
|
780 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
|
781 |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
782 nt_header->OptionalHeader.CheckSum = 0; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
783 // 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
|
784 // 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
|
785 // nt_header->OptionalHeader.SizeOfImage = size; |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
786 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
787 pfnCheckSumMappedFile = (void *) GetProcAddress (hImagehelp, "CheckSumMappedFile"); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
788 if (pfnCheckSumMappedFile) |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
789 { |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
790 // 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
|
791 pfnCheckSumMappedFile (out_file.file_base, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
792 out_file.size, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
793 &headersum, |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
794 &checksum); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
795 nt_header->OptionalHeader.CheckSum = checksum; |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
796 } |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
797 FreeLibrary (hImagehelp); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
798 } |
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 close_file_data (&in_file); |
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
801 close_file_data (&out_file); |
21604
104277bc1444
(my_begbss_static, my_endbss_static): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
802 } |
12245 | 803 |
24102
1086aa5db591
Major rewrite to support cleaner method of dumping; a
Andrew Innes <andrewi@gnu.org>
parents:
23948
diff
changeset
|
804 /* eof */ |