Mercurial > emacs
annotate nt/addsection.c @ 98007:883843ca3292
* verilog-mode.el (verilog-library-extensions): Enable .sv
filename extensions to call verilog-mode.
(verilog-auto, verilog-auto-inst, verilog-faq)
(verilog-submit-bug-report): Update author support URLs.
(verilog-delete-auto, verilog-auto-inout-module)
(verilog-auto-inout-comp, verilog-auto): Add AUTOINOUTCOMP for
creating complemented testbench modules. Suggested by Yishay
Belkind.
(verilog-auto-inst-port, verilog-simplify-range-expression): When
verilog-auto-inst-param-value is set, don't require a
AUTO_TEMPLATE to expand parameter substitutions. Suggested by
Yishay Belkind.
(verilog-auto-inst-param-value): Add safe variable.
(verilog-re-search-forward, verilog-re-search-backward): Fix
returning wrong search results on Emacs 22.1.
(verilog-modi-cache-results, verilog-auto): Fix warning message
about "toggling font-lock-mode."
(verilog-auto): Fix loosing font-lock on errors.
(verilog-auto-inst-param-value, verilog-mode-version)
(verilog-mode-version-date, verilog-read-inst-param-value)
(verilog-auto-inst, verilog-auto-inst-param)
(verilog-auto-inst-port, verilog-simplify-range-expression): Allow
parameters to be replaced with their values, on the expansion of
an AUTOINST with Verilog 2001 style parameter settings. Suggested
by David Rogoff.
* verilog-mode.el (verilog-beg-block-re-ordered, verilog-calc-1):
Better support for the property statement. Sometimes this keyword
introduces a statement which requires an endproperty keyword, and
sometimes it doesn't, dependening on the work before the property
word. If property is prefixed with assert, assume or cover
keyword, then the statement is ended with a ';' Otherwise,
property is like task or specify, and is followed by some number
of statements, which are ended with an endproperty keyword.
(electric-verilog-tab): Support Emacs 22.2 style handling of tab
in a highlighted region: indent each line in region according to
mode. Supply this so it works in XEmacs and older Emacs.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Fri, 05 Sep 2008 22:13:55 +0000 |
parents | 188974bfdea0 |
children | aeceb2460b39 |
rev | line source |
---|---|
24097 | 1 /* Add an uninitialized data section to an executable. |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
2 Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
3 2008 Free Software Foundation, Inc. |
24097 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
24097 | 8 it under the terms of the GNU General Public License as published by |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
10 (at your option) any later version. |
24097 | 11 |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
19 |
24097 | 20 |
21 Andrew Innes <andrewi@harlequin.co.uk> 04-Jan-1999 | |
22 based on code from unexw32.c | |
23 */ | |
24 | |
25 #include <stdlib.h> | |
26 #include <stdio.h> | |
27 #include <fcntl.h> | |
28 #include <time.h> | |
31347
cdc16c6e33be
(_ANONYMOUS_UNION) [__GNUC__]: New define.
Andrew Innes <andrewi@gnu.org>
parents:
31085
diff
changeset
|
29 #ifdef __GNUC__ |
cdc16c6e33be
(_ANONYMOUS_UNION) [__GNUC__]: New define.
Andrew Innes <andrewi@gnu.org>
parents:
31085
diff
changeset
|
30 #define _ANONYMOUS_UNION |
cdc16c6e33be
(_ANONYMOUS_UNION) [__GNUC__]: New define.
Andrew Innes <andrewi@gnu.org>
parents:
31085
diff
changeset
|
31 #define _ANONYMOUS_STRUCT |
cdc16c6e33be
(_ANONYMOUS_UNION) [__GNUC__]: New define.
Andrew Innes <andrewi@gnu.org>
parents:
31085
diff
changeset
|
32 #endif |
24097 | 33 #include <windows.h> |
34 | |
35 /* Include relevant definitions from IMAGEHLP.H, which can be found | |
36 in \\win32sdk\mstools\samples\image\include\imagehlp.h. */ | |
37 | |
38 PIMAGE_NT_HEADERS | |
39 (__stdcall * pfnCheckSumMappedFile) (LPVOID BaseAddress, | |
40 DWORD FileLength, | |
41 LPDWORD HeaderSum, | |
42 LPDWORD CheckSum); | |
43 | |
44 #undef min | |
45 #undef max | |
46 #define min(x, y) (((x) < (y)) ? (x) : (y)) | |
47 #define max(x, y) (((x) > (y)) ? (x) : (y)) | |
48 | |
49 | |
50 /* File handling. */ | |
51 | |
52 typedef struct file_data { | |
53 char *name; | |
54 unsigned long size; | |
55 HANDLE file; | |
56 HANDLE file_mapping; | |
57 unsigned char *file_base; | |
58 } file_data; | |
59 | |
60 int | |
61 open_input_file (file_data *p_file, char *filename) | |
62 { | |
63 HANDLE file; | |
64 HANDLE file_mapping; | |
65 void *file_base; | |
66 unsigned long size, upper_size; | |
67 | |
68 file = CreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL, | |
69 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
70 if (file == INVALID_HANDLE_VALUE) |
24097 | 71 return FALSE; |
72 | |
73 size = GetFileSize (file, &upper_size); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
74 file_mapping = CreateFileMapping (file, NULL, PAGE_READONLY, |
24097 | 75 0, size, NULL); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
76 if (!file_mapping) |
24097 | 77 return FALSE; |
78 | |
79 file_base = MapViewOfFile (file_mapping, FILE_MAP_READ, 0, 0, size); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
80 if (file_base == 0) |
24097 | 81 return FALSE; |
82 | |
83 p_file->name = filename; | |
84 p_file->size = size; | |
85 p_file->file = file; | |
86 p_file->file_mapping = file_mapping; | |
87 p_file->file_base = file_base; | |
88 | |
89 return TRUE; | |
90 } | |
91 | |
92 int | |
93 open_output_file (file_data *p_file, char *filename, unsigned long size) | |
94 { | |
95 HANDLE file; | |
96 HANDLE file_mapping; | |
97 void *file_base; | |
98 | |
99 file = CreateFile (filename, GENERIC_READ | GENERIC_WRITE, 0, NULL, | |
100 CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
101 if (file == INVALID_HANDLE_VALUE) |
24097 | 102 return FALSE; |
103 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
104 file_mapping = CreateFileMapping (file, NULL, PAGE_READWRITE, |
24097 | 105 0, size, NULL); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
106 if (!file_mapping) |
24097 | 107 return FALSE; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
108 |
24097 | 109 file_base = MapViewOfFile (file_mapping, FILE_MAP_WRITE, 0, 0, size); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
110 if (file_base == 0) |
24097 | 111 return FALSE; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
112 |
24097 | 113 p_file->name = filename; |
114 p_file->size = size; | |
115 p_file->file = file; | |
116 p_file->file_mapping = file_mapping; | |
117 p_file->file_base = file_base; | |
118 | |
119 return TRUE; | |
120 } | |
121 | |
122 /* Close the system structures associated with the given file. */ | |
123 void | |
124 close_file_data (file_data *p_file) | |
125 { | |
126 UnmapViewOfFile (p_file->file_base); | |
127 CloseHandle (p_file->file_mapping); | |
128 /* For the case of output files, set final size. */ | |
129 SetFilePointer (p_file->file, p_file->size, NULL, FILE_BEGIN); | |
130 SetEndOfFile (p_file->file); | |
131 CloseHandle (p_file->file); | |
132 } | |
133 | |
134 | |
135 /* Routines to manipulate NT executable file sections. */ | |
136 | |
137 unsigned long | |
138 get_unrounded_section_size (PIMAGE_SECTION_HEADER p_section) | |
139 { | |
140 /* The true section size, before rounding, for an initialized data or | |
141 code section. (Supposedly some linkers swap the meaning of these | |
142 two values.) */ | |
143 return min (p_section->SizeOfRawData, | |
144 p_section->Misc.VirtualSize); | |
145 } | |
146 | |
147 /* Return pointer to section header for named section. */ | |
148 IMAGE_SECTION_HEADER * | |
149 find_section (char * name, IMAGE_NT_HEADERS * nt_header) | |
150 { | |
151 PIMAGE_SECTION_HEADER section; | |
152 int i; | |
153 | |
154 section = IMAGE_FIRST_SECTION (nt_header); | |
155 | |
156 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) | |
157 { | |
158 if (strcmp (section->Name, name) == 0) | |
159 return section; | |
160 section++; | |
161 } | |
162 return NULL; | |
163 } | |
164 | |
165 /* Return pointer to section header for section containing the given | |
166 relative virtual address. */ | |
167 IMAGE_SECTION_HEADER * | |
168 rva_to_section (DWORD rva, IMAGE_NT_HEADERS * nt_header) | |
169 { | |
170 PIMAGE_SECTION_HEADER section; | |
171 int i; | |
172 | |
173 section = IMAGE_FIRST_SECTION (nt_header); | |
174 | |
175 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) | |
176 { | |
177 /* Some linkers (eg. the NT SDK linker I believe) swapped the | |
178 meaning of these two values - or rather, they ignored | |
179 VirtualSize entirely and always set it to zero. This affects | |
180 some very old exes (eg. gzip dated Dec 1993). Since | |
181 w32_executable_type relies on this function to work reliably, | |
182 we need to cope with this. */ | |
183 DWORD real_size = max (section->SizeOfRawData, | |
184 section->Misc.VirtualSize); | |
185 if (rva >= section->VirtualAddress | |
186 && rva < section->VirtualAddress + real_size) | |
187 return section; | |
188 section++; | |
189 } | |
190 return NULL; | |
191 } | |
192 | |
193 /* Return pointer to section header for section containing the given | |
194 offset in its raw data area. */ | |
195 IMAGE_SECTION_HEADER * | |
196 offset_to_section (DWORD offset, IMAGE_NT_HEADERS * nt_header) | |
197 { | |
198 PIMAGE_SECTION_HEADER section; | |
199 int i; | |
200 | |
201 section = IMAGE_FIRST_SECTION (nt_header); | |
202 | |
203 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) | |
204 { | |
205 if (offset >= section->PointerToRawData | |
206 && offset < section->PointerToRawData + section->SizeOfRawData) | |
207 return section; | |
208 section++; | |
209 } | |
210 return NULL; | |
211 } | |
212 | |
213 /* Return offset to an object in dst, given offset in src. We assume | |
214 there is at least one section in both src and dst images, and that | |
215 the some sections may have been added to dst (after sections in src). */ | |
216 static DWORD | |
217 relocate_offset (DWORD offset, | |
218 IMAGE_NT_HEADERS * src_nt_header, | |
219 IMAGE_NT_HEADERS * dst_nt_header) | |
220 { | |
221 PIMAGE_SECTION_HEADER src_section = IMAGE_FIRST_SECTION (src_nt_header); | |
222 PIMAGE_SECTION_HEADER dst_section = IMAGE_FIRST_SECTION (dst_nt_header); | |
223 int i = 0; | |
224 | |
225 while (offset >= src_section->PointerToRawData) | |
226 { | |
227 if (offset < src_section->PointerToRawData + src_section->SizeOfRawData) | |
228 break; | |
229 i++; | |
230 if (i == src_nt_header->FileHeader.NumberOfSections) | |
231 { | |
232 /* Handle offsets after the last section. */ | |
233 dst_section = IMAGE_FIRST_SECTION (dst_nt_header); | |
234 dst_section += dst_nt_header->FileHeader.NumberOfSections - 1; | |
235 while (dst_section->PointerToRawData == 0) | |
236 dst_section--; | |
237 while (src_section->PointerToRawData == 0) | |
238 src_section--; | |
239 return offset | |
240 + (dst_section->PointerToRawData + dst_section->SizeOfRawData) | |
241 - (src_section->PointerToRawData + src_section->SizeOfRawData); | |
242 } | |
243 src_section++; | |
244 dst_section++; | |
245 } | |
246 return offset + | |
247 (dst_section->PointerToRawData - src_section->PointerToRawData); | |
248 } | |
249 | |
250 #define OFFSET_TO_RVA(offset, section) \ | |
251 (section->VirtualAddress + ((DWORD)(offset) - section->PointerToRawData)) | |
252 | |
253 #define RVA_TO_OFFSET(rva, section) \ | |
254 (section->PointerToRawData + ((DWORD)(rva) - section->VirtualAddress)) | |
255 | |
256 #define RVA_TO_SECTION_OFFSET(rva, section) \ | |
257 ((DWORD)(rva) - section->VirtualAddress) | |
258 | |
259 /* Convert address in executing image to RVA. */ | |
260 #define PTR_TO_RVA(ptr) ((DWORD)(ptr) - (DWORD) GetModuleHandle (NULL)) | |
261 | |
262 #define PTR_TO_OFFSET(ptr, pfile_data) \ | |
31085
ab2cd9e121f1
(PTR_TO_OFFSET): Cast ptr to unsigned char*.
Andrew Innes <andrewi@gnu.org>
parents:
24236
diff
changeset
|
263 ((unsigned char *)(ptr) - (pfile_data)->file_base) |
24097 | 264 |
265 #define OFFSET_TO_PTR(offset, pfile_data) \ | |
266 ((pfile_data)->file_base + (DWORD)(offset)) | |
267 | |
268 #define ROUND_UP(p, align) (((DWORD)(p) + (align)-1) & ~((align)-1)) | |
269 #define ROUND_DOWN(p, align) ((DWORD)(p) & ~((align)-1)) | |
270 | |
271 | |
272 static void | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
273 copy_executable_and_add_section (file_data *p_infile, |
24097 | 274 file_data *p_outfile, |
275 char *new_section_name, | |
276 DWORD new_section_size) | |
277 { | |
278 unsigned char *dst; | |
279 PIMAGE_DOS_HEADER dos_header; | |
280 PIMAGE_NT_HEADERS nt_header; | |
281 PIMAGE_NT_HEADERS dst_nt_header; | |
282 PIMAGE_SECTION_HEADER section; | |
283 PIMAGE_SECTION_HEADER dst_section; | |
284 DWORD offset; | |
285 int i; | |
63245
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
286 int be_verbose = GetEnvironmentVariable ("DEBUG_DUMP", NULL, 0) > 0; |
24097 | 287 |
63245
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
288 #define COPY_CHUNK(message, src, size, verbose) \ |
24097 | 289 do { \ |
290 unsigned char *s = (void *)(src); \ | |
291 unsigned long count = (size); \ | |
63245
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
292 if (verbose) \ |
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
293 { \ |
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
294 printf ("%s\n", (message)); \ |
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
295 printf ("\t0x%08x Offset in input file.\n", s - p_infile->file_base); \ |
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
296 printf ("\t0x%08x Offset in output file.\n", dst - p_outfile->file_base); \ |
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
297 printf ("\t0x%08x Size in bytes.\n", count); \ |
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
298 } \ |
24097 | 299 memcpy (dst, s, count); \ |
300 dst += count; \ | |
301 } while (0) | |
302 | |
303 #define DST_TO_OFFSET() PTR_TO_OFFSET (dst, p_outfile) | |
24236
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
304 #define ROUND_UP_DST_AND_ZERO(align) \ |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
305 do { \ |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
306 unsigned char *newdst = p_outfile->file_base \ |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
307 + ROUND_UP (DST_TO_OFFSET (), (align)); \ |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
308 /* Zero the alignment slop; it may actually initialize real data. */ \ |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
309 memset (dst, 0, newdst - dst); \ |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
310 dst = newdst; \ |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
311 } while (0) |
24097 | 312 |
313 /* Copy the source image sequentially, ie. section by section after | |
314 copying the headers and section table, to simplify the process of | |
315 adding an extra section table entry (which might force the raw | |
316 section data to be relocated). | |
317 | |
318 Note that dst is updated implicitly by each COPY_CHUNK. */ | |
319 | |
320 dos_header = (PIMAGE_DOS_HEADER) p_infile->file_base; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
321 nt_header = (PIMAGE_NT_HEADERS) (((unsigned long) dos_header) + |
24097 | 322 dos_header->e_lfanew); |
323 section = IMAGE_FIRST_SECTION (nt_header); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
324 |
24097 | 325 dst = (unsigned char *) p_outfile->file_base; |
326 | |
327 COPY_CHUNK ("Copying DOS header...", dos_header, | |
63245
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
328 (DWORD) nt_header - (DWORD) dos_header, be_verbose); |
24097 | 329 dst_nt_header = (PIMAGE_NT_HEADERS) dst; |
330 COPY_CHUNK ("Copying NT header...", nt_header, | |
63245
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
331 (DWORD) section - (DWORD) nt_header, be_verbose); |
24097 | 332 dst_section = (PIMAGE_SECTION_HEADER) dst; |
333 COPY_CHUNK ("Copying section table...", section, | |
63245
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
334 nt_header->FileHeader.NumberOfSections * sizeof (*section), |
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
335 be_verbose); |
24097 | 336 |
337 /* To improve the efficiency of demand loading, make the file | |
338 alignment match the section alignment (VC++ 6.0 does this by | |
339 default anyway). */ | |
340 dst_nt_header->OptionalHeader.FileAlignment = | |
341 dst_nt_header->OptionalHeader.SectionAlignment; | |
342 | |
343 /* Add an uninitialized data section at the end, of the specified name | |
344 and virtual size. */ | |
345 if (find_section (new_section_name, nt_header) == NULL) | |
346 /* Leave room for extra section table entry; filled in below. */ | |
347 dst += sizeof (*section); | |
348 else | |
349 new_section_name = NULL; | |
350 | |
24236
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
351 /* Align the first section's raw data area, and set the header size |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
352 field accordingly. */ |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
353 ROUND_UP_DST_AND_ZERO (dst_nt_header->OptionalHeader.FileAlignment); |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
354 dst_nt_header->OptionalHeader.SizeOfHeaders = DST_TO_OFFSET (); |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
355 |
24097 | 356 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) |
357 { | |
358 char msg[100]; | |
63245
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
359 /* Windows section names are fixed 8-char strings, only |
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
360 zero-terminated if the name is shorter than 8 characters. */ |
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
361 sprintf (msg, "Copying raw data for %.8s...", section->Name); |
24097 | 362 |
363 /* Update the file-relative offset for this section's raw data (if | |
364 it has any) in case things have been relocated; we will update | |
365 the other offsets below once we know where everything is. */ | |
366 if (dst_section->PointerToRawData) | |
367 dst_section->PointerToRawData = DST_TO_OFFSET (); | |
368 | |
369 /* Can always copy the original raw data. */ | |
370 COPY_CHUNK | |
371 (msg, OFFSET_TO_PTR (section->PointerToRawData, p_infile), | |
63245
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
372 section->SizeOfRawData, be_verbose); |
24097 | 373 |
374 /* Round up the raw data size to the new alignment. */ | |
375 dst_section->SizeOfRawData = | |
376 ROUND_UP (dst_section->SizeOfRawData, | |
377 dst_nt_header->OptionalHeader.FileAlignment); | |
378 | |
24236
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
379 /* Align the next section's raw data area. */ |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
380 ROUND_UP_DST_AND_ZERO (dst_nt_header->OptionalHeader.FileAlignment); |
c83c9b5cc93f
ROUND_UP_DST_AND_ZERO): Renamed from ROUND_UP_DST. Zeroes the
Andrew Innes <andrewi@gnu.org>
parents:
24097
diff
changeset
|
381 |
24097 | 382 section++; |
383 dst_section++; | |
384 } | |
385 | |
386 /* Add the extra section entry (which adds no raw data). */ | |
387 if (new_section_name != NULL) | |
388 { | |
389 dst_nt_header->FileHeader.NumberOfSections++; | |
390 dst_nt_header->OptionalHeader.SizeOfImage += new_section_size; | |
391 strncpy (dst_section->Name, new_section_name, sizeof (dst_section->Name)); | |
392 dst_section->VirtualAddress = | |
393 section[-1].VirtualAddress | |
394 + ROUND_UP (section[-1].Misc.VirtualSize, | |
395 dst_nt_header->OptionalHeader.SectionAlignment); | |
396 dst_section->Misc.VirtualSize = new_section_size; | |
397 dst_section->PointerToRawData = 0; | |
398 dst_section->SizeOfRawData = 0; | |
399 dst_section->Characteristics = | |
400 IMAGE_SCN_CNT_UNINITIALIZED_DATA | |
401 | IMAGE_SCN_MEM_READ | |
402 | IMAGE_SCN_MEM_WRITE; | |
403 } | |
404 | |
405 /* Copy remainder of source image. */ | |
406 section--; | |
407 offset = ROUND_UP (section->PointerToRawData + section->SizeOfRawData, | |
408 nt_header->OptionalHeader.FileAlignment); | |
409 COPY_CHUNK | |
410 ("Copying remainder of executable...", | |
411 OFFSET_TO_PTR (offset, p_infile), | |
63245
c16acb8501d2
(copy_executable_and_add_section): Pass non-zero
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
412 p_infile->size - offset, be_verbose); |
24097 | 413 |
414 /* Final size for new image. */ | |
415 p_outfile->size = DST_TO_OFFSET (); | |
416 | |
417 /* Now patch up remaining file-relative offsets. */ | |
418 section = IMAGE_FIRST_SECTION (nt_header); | |
419 dst_section = IMAGE_FIRST_SECTION (dst_nt_header); | |
420 | |
421 #define ADJUST_OFFSET(var) \ | |
422 do { \ | |
423 if ((var) != 0) \ | |
424 (var) = relocate_offset ((var), nt_header, dst_nt_header); \ | |
425 } while (0) | |
426 | |
427 dst_nt_header->OptionalHeader.SizeOfInitializedData = 0; | |
428 dst_nt_header->OptionalHeader.SizeOfUninitializedData = 0; | |
429 for (i = 0; i < dst_nt_header->FileHeader.NumberOfSections; i++) | |
430 { | |
431 /* Recompute data sizes for completeness. */ | |
432 if (dst_section[i].Characteristics & IMAGE_SCN_CNT_INITIALIZED_DATA) | |
433 dst_nt_header->OptionalHeader.SizeOfInitializedData += | |
434 ROUND_UP (dst_section[i].Misc.VirtualSize, dst_nt_header->OptionalHeader.FileAlignment); | |
435 else if (dst_section[i].Characteristics & IMAGE_SCN_CNT_UNINITIALIZED_DATA) | |
436 dst_nt_header->OptionalHeader.SizeOfUninitializedData += | |
437 ROUND_UP (dst_section[i].Misc.VirtualSize, dst_nt_header->OptionalHeader.FileAlignment); | |
438 | |
439 ADJUST_OFFSET (dst_section[i].PointerToLinenumbers); | |
440 } | |
441 | |
442 ADJUST_OFFSET (dst_nt_header->FileHeader.PointerToSymbolTable); | |
443 | |
444 /* Update offsets in debug directory entries. */ | |
445 { | |
446 IMAGE_DATA_DIRECTORY debug_dir = | |
447 dst_nt_header->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_DEBUG]; | |
448 PIMAGE_DEBUG_DIRECTORY debug_entry; | |
449 | |
450 section = rva_to_section (debug_dir.VirtualAddress, dst_nt_header); | |
451 if (section) | |
452 { | |
453 debug_entry = (PIMAGE_DEBUG_DIRECTORY) | |
454 (RVA_TO_OFFSET (debug_dir.VirtualAddress, section) + p_outfile->file_base); | |
455 debug_dir.Size /= sizeof (IMAGE_DEBUG_DIRECTORY); | |
456 | |
457 for (i = 0; i < debug_dir.Size; i++, debug_entry++) | |
458 ADJUST_OFFSET (debug_entry->PointerToRawData); | |
459 } | |
460 } | |
461 } | |
462 | |
463 | |
464 int | |
465 main (int argc, char **argv) | |
466 { | |
467 file_data in_file, out_file; | |
468 char out_filename[MAX_PATH], in_filename[MAX_PATH]; | |
469 unsigned long size; | |
470 PIMAGE_DOS_HEADER dos_header; | |
471 PIMAGE_NT_HEADERS nt_header; | |
472 | |
473 #define OLD_NAME argv[1] | |
474 #define NEW_NAME argv[2] | |
475 #define SECTION_NAME argv[3] | |
476 #define SECTION_SIZE argv[4] | |
477 | |
478 strcpy (in_filename, OLD_NAME); | |
479 strcpy (out_filename, NEW_NAME); | |
480 | |
481 printf ("Dumping from %s\n", in_filename); | |
482 printf (" to %s\n", out_filename); | |
483 | |
484 /* Open the undumped executable file. */ | |
485 if (!open_input_file (&in_file, in_filename)) | |
486 { | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
487 printf ("Failed to open %s (%d)...bailing.\n", |
24097 | 488 in_filename, GetLastError ()); |
489 exit (1); | |
490 } | |
491 dos_header = (PIMAGE_DOS_HEADER) in_file.file_base; | |
492 nt_header = (PIMAGE_NT_HEADERS) ((char *) dos_header + dos_header->e_lfanew); | |
493 /* Allow for expansion due to increasing file align to section align. | |
494 We can overestimate here, since close_file_data will update the | |
495 size exactly. */ | |
496 size = in_file.size | |
497 + nt_header->OptionalHeader.SectionAlignment | |
498 * nt_header->FileHeader.NumberOfSections; | |
499 if (!open_output_file (&out_file, out_filename, size)) | |
500 { | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
31347
diff
changeset
|
501 printf ("Failed to open %s (%d)...bailing.\n", |
24097 | 502 out_filename, GetLastError ()); |
503 exit (1); | |
504 } | |
505 | |
506 copy_executable_and_add_section (&in_file, &out_file, | |
507 SECTION_NAME, | |
508 atoi (SECTION_SIZE) * 1024 * 1024); | |
509 | |
510 /* Patch up header fields; profiler is picky about this. */ | |
511 { | |
512 HANDLE hImagehelp = LoadLibrary ("imagehlp.dll"); | |
513 DWORD headersum; | |
514 DWORD checksum; | |
515 | |
516 dos_header = (PIMAGE_DOS_HEADER) out_file.file_base; | |
517 nt_header = (PIMAGE_NT_HEADERS) ((char *) dos_header + dos_header->e_lfanew); | |
518 | |
519 nt_header->OptionalHeader.CheckSum = 0; | |
520 // nt_header->FileHeader.TimeDateStamp = time (NULL); | |
521 // dos_header->e_cp = size / 512; | |
522 // nt_header->OptionalHeader.SizeOfImage = size; | |
523 | |
524 pfnCheckSumMappedFile = (void *) GetProcAddress (hImagehelp, "CheckSumMappedFile"); | |
525 if (pfnCheckSumMappedFile) | |
526 { | |
527 // nt_header->FileHeader.TimeDateStamp = time (NULL); | |
528 pfnCheckSumMappedFile (out_file.file_base, | |
529 out_file.size, | |
530 &headersum, | |
531 &checksum); | |
532 nt_header->OptionalHeader.CheckSum = checksum; | |
533 } | |
534 FreeLibrary (hImagehelp); | |
535 } | |
536 | |
537 close_file_data (&in_file); | |
538 close_file_data (&out_file); | |
539 | |
540 return 0; | |
541 } | |
542 | |
543 /* eof */ | |
52401 | 544 |
545 /* arch-tag: 17e2b0aa-8c17-4bd1-b24b-1cda689245fa | |
546 (do not change this comment) */ |