Mercurial > emacs
annotate src/unexaix.c @ 16575:3c85d35d84a2 libc-961114 libc-961115 libc-961116 libc-961117 libc-961118 libc-961119
Bunch of updates. See ChangeLog.
author | Per Bothner <bothner@cygnus.com> |
---|---|
date | Thu, 14 Nov 1996 02:06:05 +0000 |
parents | 0c751a0e86cd |
children | 908d510e7e8a |
rev | line source |
---|---|
560 | 1 /* Modified by Andrew.Vignaux@comp.vuw.ac.nz to get it to work :-) */ |
2 | |
3 /* Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc. | |
4 | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
5 This file is part of GNU Emacs. |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
6 |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
7 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:
12244
diff
changeset
|
8 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:
12244
diff
changeset
|
9 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:
12244
diff
changeset
|
10 any later version. |
560 | 11 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
12 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:
12244
diff
changeset
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
15 GNU General Public License for more details. |
560 | 16 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
17 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:
12244
diff
changeset
|
18 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:
12244
diff
changeset
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
20 Boston, MA 02111-1307, USA. |
560 | 21 |
22 In other words, you are welcome to use, share and improve this program. | |
23 You are forbidden to forbid anyone else to use, share and improve | |
24 what you give them. Help stamp out software-hoarding! */ | |
25 | |
117
08356dc1077c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
110
diff
changeset
|
26 |
560 | 27 /* |
28 * unexec.c - Convert a running program into an a.out file. | |
29 * | |
30 * Author: Spencer W. Thomas | |
31 * Computer Science Dept. | |
32 * University of Utah | |
33 * Date: Tue Mar 2 1982 | |
34 * Modified heavily since then. | |
35 * | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
36 * Updated for AIX 4.1.3 by Bill_Mann @ PraxisInt.com, Feb 1996 |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
37 * As of AIX 4.1, text, data, and bss are pre-relocated by the binder in |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
38 * such a way that the file can be mapped with code in one segment and |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
39 * data/bss in another segment, without reading or copying the file, by |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
40 * the AIX exec loader. Padding sections are omitted, nevertheless |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
41 * small amounts of 'padding' still occurs between sections in the file. |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
42 * As modified, this code handles both 3.2 and 4.1 conventions. |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
43 * |
560 | 44 * Synopsis: |
45 * unexec (new_name, a_name, data_start, bss_start, entry_address) | |
46 * char *new_name, *a_name; | |
47 * unsigned data_start, bss_start, entry_address; | |
48 * | |
49 * Takes a snapshot of the program and makes an a.out format file in the | |
50 * file named by the string argument new_name. | |
51 * If a_name is non-NULL, the symbol table will be taken from the given file. | |
52 * On some machines, an existing a_name file is required. | |
53 * | |
54 * The boundaries within the a.out file may be adjusted with the data_start | |
55 * and bss_start arguments. Either or both may be given as 0 for defaults. | |
56 * | |
57 * Data_start gives the boundary between the text segment and the data | |
58 * segment of the program. The text segment can contain shared, read-only | |
59 * program code and literal data, while the data segment is always unshared | |
60 * and unprotected. Data_start gives the lowest unprotected address. | |
61 * The value you specify may be rounded down to a suitable boundary | |
62 * as required by the machine you are using. | |
63 * | |
64 * Specifying zero for data_start means the boundary between text and data | |
65 * should not be the same as when the program was loaded. | |
66 * If NO_REMAP is defined, the argument data_start is ignored and the | |
67 * segment boundaries are never changed. | |
68 * | |
69 * Bss_start indicates how much of the data segment is to be saved in the | |
70 * a.out file and restored when the program is executed. It gives the lowest | |
71 * unsaved address, and is rounded up to a page boundary. The default when 0 | |
72 * is given assumes that the entire data segment is to be stored, including | |
73 * the previous data and bss as well as any additional storage allocated with | |
74 * break (2). | |
75 * | |
76 * The new file is set up to start at entry_address. | |
77 * | |
78 * If you make improvements I'd like to get them too. | |
79 * harpo!utah-cs!thomas, thomas@Utah-20 | |
80 * | |
81 */ | |
82 | |
83 /* There are several compilation parameters affecting unexec: | |
84 | |
85 * COFF | |
117
08356dc1077c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
110
diff
changeset
|
86 |
560 | 87 Define this if your system uses COFF for executables. |
88 Otherwise we assume you use Berkeley format. | |
89 | |
90 * NO_REMAP | |
91 | |
92 Define this if you do not want to try to save Emacs's pure data areas | |
93 as part of the text segment. | |
94 | |
95 Saving them as text is good because it allows users to share more. | |
96 | |
97 However, on machines that locate the text area far from the data area, | |
98 the boundary cannot feasibly be moved. Such machines require | |
99 NO_REMAP. | |
100 | |
101 Also, remapping can cause trouble with the built-in startup routine | |
102 /lib/crt0.o, which defines `environ' as an initialized variable. | |
103 Dumping `environ' as pure does not work! So, to use remapping, | |
104 you must write a startup routine for your machine in Emacs's crt0.c. | |
105 If NO_REMAP is defined, Emacs uses the system's crt0.o. | |
106 | |
107 * SECTION_ALIGNMENT | |
108 | |
109 Some machines that use COFF executables require that each section | |
110 start on a certain boundary *in the COFF file*. Such machines should | |
111 define SECTION_ALIGNMENT to a mask of the low-order bits that must be | |
112 zero on such a boundary. This mask is used to control padding between | |
113 segments in the COFF file. | |
114 | |
115 If SECTION_ALIGNMENT is not defined, the segments are written | |
116 consecutively with no attempt at alignment. This is right for | |
117 unmodified system V. | |
118 | |
119 * SEGMENT_MASK | |
117
08356dc1077c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
110
diff
changeset
|
120 |
560 | 121 Some machines require that the beginnings and ends of segments |
122 *in core* be on certain boundaries. For most machines, a page | |
123 boundary is sufficient. That is the default. When a larger | |
124 boundary is needed, define SEGMENT_MASK to a mask of | |
125 the bits that must be zero on such a boundary. | |
126 | |
127 * A_TEXT_OFFSET(HDR) | |
128 | |
129 Some machines count the a.out header as part of the size of the text | |
130 segment (a_text); they may actually load the header into core as the | |
131 first data in the text segment. Some have additional padding between | |
132 the header and the real text of the program that is counted in a_text. | |
133 | |
134 For these machines, define A_TEXT_OFFSET(HDR) to examine the header | |
135 structure HDR and return the number of bytes to add to `a_text' | |
136 before writing it (above and beyond the number of bytes of actual | |
137 program text). HDR's standard fields are already correct, except that | |
138 this adjustment to the `a_text' field has not yet been made; | |
139 thus, the amount of offset can depend on the data in the file. | |
140 | |
141 * A_TEXT_SEEK(HDR) | |
117
08356dc1077c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
110
diff
changeset
|
142 |
560 | 143 If defined, this macro specifies the number of bytes to seek into the |
144 a.out file before starting to write the text segment.a | |
145 | |
146 * EXEC_MAGIC | |
147 | |
148 For machines using COFF, this macro, if defined, is a value stored | |
149 into the magic number field of the output file. | |
150 | |
151 * ADJUST_EXEC_HEADER | |
152 | |
153 This macro can be used to generate statements to adjust or | |
154 initialize nonstandard fields in the file header | |
155 | |
156 * ADDR_CORRECT(ADDR) | |
157 | |
158 Macro to correct an int which is the bit pattern of a pointer to a byte | |
159 into an int which is the number of a byte. | |
160 | |
161 This macro has a default definition which is usually right. | |
162 This default definition is a no-op on most machines (where a | |
163 pointer looks like an int) but not on all machines. | |
164 | |
117
08356dc1077c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
110
diff
changeset
|
165 */ |
08356dc1077c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
110
diff
changeset
|
166 |
560 | 167 #define XCOFF |
168 #define COFF | |
169 #define NO_REMAP | |
110 | 170 |
560 | 171 #ifndef emacs |
172 #define PERROR(arg) perror (arg); return -1 | |
173 #else | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
3591
diff
changeset
|
174 #include <config.h> |
560 | 175 #define PERROR(file) report_error (file, new) |
176 #endif | |
110 | 177 |
560 | 178 #include <a.out.h> |
179 /* Define getpagesize () if the system does not. | |
180 Note that this may depend on symbols defined in a.out.h | |
181 */ | |
182 #include "getpagesize.h" | |
110 | 183 |
560 | 184 #ifndef makedev /* Try to detect types.h already loaded */ |
185 #include <sys/types.h> | |
186 #endif | |
187 #include <stdio.h> | |
188 #include <sys/stat.h> | |
189 #include <errno.h> | |
110 | 190 |
560 | 191 extern char *start_of_text (); /* Start of text */ |
192 extern char *start_of_data (); /* Start of initialized data */ | |
110 | 193 |
560 | 194 extern int _data; |
195 extern int _edata; | |
196 extern int _text; | |
197 extern int _etext; | |
198 extern int _end; | |
199 #ifdef COFF | |
200 #ifndef USG | |
201 #ifndef STRIDE | |
202 #ifndef UMAX | |
203 #ifndef sun386 | |
204 /* I have a suspicion that these are turned off on all systems | |
205 and can be deleted. Try it in version 19. */ | |
206 #include <filehdr.h> | |
207 #include <aouthdr.h> | |
208 #include <scnhdr.h> | |
209 #include <syms.h> | |
210 #endif /* not sun386 */ | |
211 #endif /* not UMAX */ | |
212 #endif /* Not STRIDE */ | |
213 #endif /* not USG */ | |
214 static struct filehdr f_hdr; /* File header */ | |
215 static struct aouthdr f_ohdr; /* Optional file header (a.out) */ | |
216 long bias; /* Bias to add for growth */ | |
217 long lnnoptr; /* Pointer to line-number info within file */ | |
110 | 218 |
560 | 219 static long text_scnptr; |
220 static long data_scnptr; | |
221 #ifdef XCOFF | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
222 #define ALIGN(val, pwr) (((val) + ((1L<<(pwr))-1)) & ~((1L<<(pwr))-1)) |
560 | 223 static long load_scnptr; |
224 static long orig_load_scnptr; | |
225 static long orig_data_scnptr; | |
226 #endif | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
227 static ulong data_st; /* start of data area written out */ |
110 | 228 |
560 | 229 #ifndef MAX_SECTIONS |
230 #define MAX_SECTIONS 10 | |
231 #endif | |
110 | 232 |
560 | 233 #endif /* COFF */ |
234 | |
235 static int pagemask; | |
110 | 236 |
560 | 237 /* Correct an int which is the bit pattern of a pointer to a byte |
238 into an int which is the number of a byte. | |
239 This is a no-op on ordinary machines, but not on all. */ | |
240 | |
241 #ifndef ADDR_CORRECT /* Let m-*.h files override this definition */ | |
242 #define ADDR_CORRECT(x) ((char *)(x) - (char*)0) | |
243 #endif | |
244 | |
245 #ifdef emacs | |
8956
390019f3ab08
(report_error): Include reason in error message.
Karl Heuer <kwzh@gnu.org>
parents:
7867
diff
changeset
|
246 #include "lisp.h" |
110 | 247 |
560 | 248 static |
249 report_error (file, fd) | |
250 char *file; | |
251 int fd; | |
252 { | |
253 if (fd) | |
254 close (fd); | |
8956
390019f3ab08
(report_error): Include reason in error message.
Karl Heuer <kwzh@gnu.org>
parents:
7867
diff
changeset
|
255 report_file_error ("Cannot unexec", Fcons (build_string (file), Qnil)); |
560 | 256 } |
257 #endif /* emacs */ | |
110 | 258 |
560 | 259 #define ERROR0(msg) report_error_1 (new, msg, 0, 0); return -1 |
260 #define ERROR1(msg,x) report_error_1 (new, msg, x, 0); return -1 | |
261 #define ERROR2(msg,x,y) report_error_1 (new, msg, x, y); return -1 | |
110 | 262 |
560 | 263 static |
264 report_error_1 (fd, msg, a1, a2) | |
265 int fd; | |
266 char *msg; | |
267 int a1, a2; | |
110 | 268 { |
560 | 269 close (fd); |
270 #ifdef emacs | |
271 error (msg, a1, a2); | |
272 #else | |
273 fprintf (stderr, msg, a1, a2); | |
274 fprintf (stderr, "\n"); | |
275 #endif | |
276 } | |
110 | 277 |
560 | 278 static int make_hdr (); |
279 static void mark_x (); | |
280 static int copy_text_and_data (); | |
281 static int copy_sym (); | |
282 | |
283 /* **************************************************************** | |
284 * unexec | |
285 * | |
286 * driving logic. | |
287 */ | |
288 unexec (new_name, a_name, data_start, bss_start, entry_address) | |
289 char *new_name, *a_name; | |
290 unsigned data_start, bss_start, entry_address; | |
291 { | |
292 int new, a_out = -1; | |
293 | |
294 if (a_name && (a_out = open (a_name, 0)) < 0) | |
110 | 295 { |
560 | 296 PERROR (a_name); |
297 } | |
298 if ((new = creat (new_name, 0666)) < 0) | |
299 { | |
300 PERROR (new_name); | |
110 | 301 } |
560 | 302 if (make_hdr (new,a_out,data_start,bss_start,entry_address,a_name,new_name) < 0 |
303 || copy_text_and_data (new) < 0 | |
304 || copy_sym (new, a_out, a_name, new_name) < 0 | |
305 #ifdef COFF | |
306 || adjust_lnnoptrs (new, a_out, new_name) < 0 | |
307 #endif | |
308 #ifdef XCOFF | |
309 || unrelocate_symbols (new, a_out, a_name, new_name) < 0 | |
310 #endif | |
311 ) | |
110 | 312 { |
560 | 313 close (new); |
314 /* unlink (new_name); /* Failed, unlink new a.out */ | |
315 return -1; | |
110 | 316 } |
317 | |
560 | 318 close (new); |
319 if (a_out >= 0) | |
320 close (a_out); | |
321 mark_x (new_name); | |
322 return 0; | |
323 } | |
324 | |
325 /* **************************************************************** | |
326 * make_hdr | |
327 * | |
328 * Make the header in the new a.out from the header in core. | |
329 * Modify the text and data sizes. | |
330 */ | |
331 static int | |
332 make_hdr (new, a_out, data_start, bss_start, entry_address, a_name, new_name) | |
333 int new, a_out; | |
334 unsigned data_start, bss_start, entry_address; | |
335 char *a_name; | |
336 char *new_name; | |
337 { | |
338 register int scns; | |
339 unsigned int bss_end; | |
110 | 340 |
560 | 341 struct scnhdr section[MAX_SECTIONS]; |
342 struct scnhdr * f_thdr; /* Text section header */ | |
343 struct scnhdr * f_dhdr; /* Data section header */ | |
344 struct scnhdr * f_bhdr; /* Bss section header */ | |
345 struct scnhdr * f_lhdr; /* Loader section header */ | |
346 struct scnhdr * f_tchdr; /* Typechk section header */ | |
347 struct scnhdr * f_dbhdr; /* Debug section header */ | |
348 struct scnhdr * f_xhdr; /* Except section header */ | |
349 | |
350 load_scnptr = orig_load_scnptr = lnnoptr = 0; | |
351 pagemask = getpagesize () - 1; | |
352 | |
353 /* Adjust text/data boundary. */ | |
354 #ifdef NO_REMAP | |
355 data_start = (long) start_of_data (); | |
356 #endif /* NO_REMAP */ | |
357 data_start = ADDR_CORRECT (data_start); | |
358 | |
359 #ifdef SEGMENT_MASK | |
360 data_start = data_start & ~SEGMENT_MASK; /* (Down) to segment boundary. */ | |
361 #else | |
362 data_start = data_start & ~pagemask; /* (Down) to page boundary. */ | |
363 #endif | |
364 | |
365 | |
366 bss_end = ADDR_CORRECT (sbrk (0)) + pagemask; | |
367 bss_end &= ~ pagemask; | |
368 /* Adjust data/bss boundary. */ | |
369 if (bss_start != 0) | |
110 | 370 { |
560 | 371 bss_start = (ADDR_CORRECT (bss_start) + pagemask); |
372 /* (Up) to page bdry. */ | |
373 bss_start &= ~ pagemask; | |
374 if (bss_start > bss_end) | |
375 { | |
376 ERROR1 ("unexec: Specified bss_start (%u) is past end of program", | |
377 bss_start); | |
378 } | |
110 | 379 } |
560 | 380 else |
381 bss_start = bss_end; | |
110 | 382 |
560 | 383 if (data_start > bss_start) /* Can't have negative data size. */ |
110 | 384 { |
560 | 385 ERROR2 ("unexec: data_start (%u) can't be greater than bss_start (%u)", |
386 data_start, bss_start); | |
110 | 387 } |
388 | |
560 | 389 #ifdef COFF |
390 /* Salvage as much info from the existing file as possible */ | |
391 f_thdr = NULL; f_dhdr = NULL; f_bhdr = NULL; | |
392 f_lhdr = NULL; f_tchdr = NULL; f_dbhdr = NULL; f_xhdr = NULL; | |
393 if (a_out >= 0) | |
110 | 394 { |
560 | 395 if (read (a_out, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr)) |
396 { | |
397 PERROR (a_name); | |
398 } | |
399 if (f_hdr.f_opthdr > 0) | |
400 { | |
401 if (read (a_out, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr)) | |
402 { | |
403 PERROR (a_name); | |
404 } | |
405 } | |
406 if (f_hdr.f_nscns > MAX_SECTIONS) | |
407 { | |
408 ERROR0 ("unexec: too many section headers -- increase MAX_SECTIONS"); | |
409 } | |
410 /* Loop through section headers */ | |
411 for (scns = 0; scns < f_hdr.f_nscns; scns++) { | |
412 struct scnhdr *s = §ion[scns]; | |
413 if (read (a_out, s, sizeof (*s)) != sizeof (*s)) | |
414 { | |
415 PERROR (a_name); | |
416 } | |
110 | 417 |
560 | 418 #define CHECK_SCNHDR(ptr, name, flags) \ |
419 if (strcmp(s->s_name, name) == 0) { \ | |
420 if (s->s_flags != flags) { \ | |
9181
b27c4cad21fb
(CHECK_SCNHDR, write_segment): Fix format/arg mismatch.
Karl Heuer <kwzh@gnu.org>
parents:
9037
diff
changeset
|
421 fprintf(stderr, "unexec: %lx flags where %x expected in %s section.\n", \ |
b27c4cad21fb
(CHECK_SCNHDR, write_segment): Fix format/arg mismatch.
Karl Heuer <kwzh@gnu.org>
parents:
9037
diff
changeset
|
422 (unsigned long)s->s_flags, flags, name); \ |
560 | 423 } \ |
424 if (ptr) { \ | |
425 fprintf(stderr, "unexec: duplicate section header for section %s.\n", \ | |
426 name); \ | |
427 } \ | |
428 ptr = s; \ | |
429 } | |
430 CHECK_SCNHDR(f_thdr, _TEXT, STYP_TEXT); | |
431 CHECK_SCNHDR(f_dhdr, _DATA, STYP_DATA); | |
432 CHECK_SCNHDR(f_bhdr, _BSS, STYP_BSS); | |
433 CHECK_SCNHDR(f_lhdr, _LOADER, STYP_LOADER); | |
434 CHECK_SCNHDR(f_dbhdr, _DEBUG, STYP_DEBUG); | |
435 CHECK_SCNHDR(f_tchdr, _TYPCHK, STYP_TYPCHK); | |
436 CHECK_SCNHDR(f_xhdr, _EXCEPT, STYP_EXCEPT); | |
437 } | |
438 | |
439 if (f_thdr == 0) | |
440 { | |
441 ERROR1 ("unexec: couldn't find \"%s\" section", _TEXT); | |
442 } | |
443 if (f_dhdr == 0) | |
444 { | |
445 ERROR1 ("unexec: couldn't find \"%s\" section", _DATA); | |
446 } | |
447 if (f_bhdr == 0) | |
110 | 448 { |
560 | 449 ERROR1 ("unexec: couldn't find \"%s\" section", _BSS); |
450 } | |
451 } | |
452 else | |
453 { | |
454 ERROR0 ("can't build a COFF file from scratch yet"); | |
455 } | |
456 orig_data_scnptr = f_dhdr->s_scnptr; | |
457 orig_load_scnptr = f_lhdr ? f_lhdr->s_scnptr : 0; | |
110 | 458 |
560 | 459 /* Now we alter the contents of all the f_*hdr variables |
460 to correspond to what we want to dump. */ | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
461 |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
462 /* Indicate that the reloc information is no longer valid for ld (bind); |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
463 we only update it enough to fake out the exec-time loader. */ |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
464 f_hdr.f_flags |= (F_RELFLG | F_EXEC); |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
465 |
560 | 466 #ifdef EXEC_MAGIC |
467 f_ohdr.magic = EXEC_MAGIC; | |
468 #endif | |
469 #ifndef NO_REMAP | |
470 f_ohdr.tsize = data_start - f_ohdr.text_start; | |
471 f_ohdr.text_start = (long) start_of_text (); | |
472 #endif | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
473 data_st = f_ohdr.data_start ? f_ohdr.data_start : (ulong) &_data; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
474 f_ohdr.dsize = bss_start - data_st; |
560 | 475 f_ohdr.bsize = bss_end - bss_start; |
110 | 476 |
560 | 477 f_dhdr->s_size = f_ohdr.dsize; |
478 f_bhdr->s_size = f_ohdr.bsize; | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
479 f_bhdr->s_paddr = f_ohdr.data_start + f_ohdr.dsize; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
480 f_bhdr->s_vaddr = f_ohdr.data_start + f_ohdr.dsize; |
560 | 481 |
482 /* fix scnptr's */ | |
483 { | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
484 ulong ptr = section[0].s_scnptr; |
560 | 485 |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
486 bias = -1; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
487 for (scns = 0; scns < f_hdr.f_nscns; scns++) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
488 { |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
489 struct scnhdr *s = §ion[scns]; |
110 | 490 |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
491 if (s->s_flags & STYP_PAD) /* .pad sections omitted in AIX 4.1 */ |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
492 { |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
493 /* |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
494 * the text_start should probably be o_algntext but that doesn't |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
495 * seem to change |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
496 */ |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
497 if (f_ohdr.text_start != 0) /* && scns != 0 */ |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
498 { |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
499 s->s_size = 512 - (ptr % 512); |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
500 if (s->s_size == 512) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
501 s->s_size = 0; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
502 } |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
503 s->s_scnptr = ptr; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
504 } |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
505 else if (s->s_flags & STYP_DATA) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
506 s->s_scnptr = ptr; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
507 else if (!(s->s_flags & (STYP_TEXT | STYP_BSS))) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
508 { |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
509 if (bias == -1) /* if first section after bss */ |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
510 bias = ptr - s->s_scnptr; |
110 | 511 |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
512 s->s_scnptr += bias; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
513 ptr = s->s_scnptr; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
514 } |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
515 |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
516 ptr = ptr + s->s_size; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
517 } |
560 | 518 } |
519 | |
520 /* fix other pointers */ | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
521 for (scns = 0; scns < f_hdr.f_nscns; scns++) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
522 { |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
523 struct scnhdr *s = §ion[scns]; |
560 | 524 |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
525 if (s->s_relptr != 0) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
526 { |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
527 s->s_relptr += bias; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
528 } |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
529 if (s->s_lnnoptr != 0) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
530 { |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
531 if (lnnoptr == 0) lnnoptr = s->s_lnnoptr; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
532 s->s_lnnoptr += bias; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
533 } |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
534 } |
110 | 535 |
560 | 536 if (f_hdr.f_symptr > 0L) |
537 { | |
538 f_hdr.f_symptr += bias; | |
539 } | |
110 | 540 |
560 | 541 text_scnptr = f_thdr->s_scnptr; |
542 data_scnptr = f_dhdr->s_scnptr; | |
543 load_scnptr = f_lhdr ? f_lhdr->s_scnptr : 0; | |
110 | 544 |
560 | 545 #ifdef ADJUST_EXEC_HEADER |
546 ADJUST_EXEC_HEADER | |
547 #endif /* ADJUST_EXEC_HEADER */ | |
548 | |
549 if (write (new, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr)) | |
550 { | |
551 PERROR (new_name); | |
552 } | |
553 | |
554 if (f_hdr.f_opthdr > 0) | |
555 { | |
556 if (write (new, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr)) | |
110 | 557 { |
560 | 558 PERROR (new_name); |
110 | 559 } |
560 } | |
561 | |
560 | 562 for (scns = 0; scns < f_hdr.f_nscns; scns++) { |
563 struct scnhdr *s = §ion[scns]; | |
564 if (write (new, s, sizeof (*s)) != sizeof (*s)) | |
565 { | |
566 PERROR (new_name); | |
567 } | |
568 } | |
569 | |
570 return (0); | |
571 | |
572 #endif /* COFF */ | |
573 } | |
574 | |
575 /* **************************************************************** | |
576 | |
577 * | |
578 * Copy the text and data segments from memory to the new a.out | |
579 */ | |
580 static int | |
581 copy_text_and_data (new) | |
582 int new; | |
583 { | |
584 register char *end; | |
585 register char *ptr; | |
586 | |
587 lseek (new, (long) text_scnptr, 0); | |
588 ptr = start_of_text () + text_scnptr; | |
589 end = ptr + f_ohdr.tsize; | |
590 write_segment (new, ptr, end); | |
591 | |
592 lseek (new, (long) data_scnptr, 0); | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
593 ptr = (char *) data_st; |
560 | 594 end = ptr + f_ohdr.dsize; |
595 write_segment (new, ptr, end); | |
596 | |
597 return 0; | |
110 | 598 } |
599 | |
14787
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
600 #define UnexBlockSz (1<<12) /* read/write block size */ |
560 | 601 write_segment (new, ptr, end) |
602 int new; | |
603 register char *ptr, *end; | |
604 { | |
605 register int i, nwrite, ret; | |
606 char buf[80]; | |
607 extern int errno; | |
14787
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
608 char zeros[UnexBlockSz]; |
110 | 609 |
560 | 610 for (i = 0; ptr < end;) |
611 { | |
14787
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
612 /* distance to next block. */ |
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
613 nwrite = (((int) ptr + UnexBlockSz) & -UnexBlockSz) - (int) ptr; |
560 | 614 /* But not beyond specified end. */ |
615 if (nwrite > end - ptr) nwrite = end - ptr; | |
616 ret = write (new, ptr, nwrite); | |
617 /* If write gets a page fault, it means we reached | |
618 a gap between the old text segment and the old data segment. | |
619 This gap has probably been remapped into part of the text segment. | |
620 So write zeros for it. */ | |
621 if (ret == -1 && errno == EFAULT) | |
622 { | |
14787
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
623 bzero (zeros, nwrite); |
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
624 write (new, zeros, nwrite); |
560 | 625 } |
626 else if (nwrite != ret) | |
627 { | |
628 sprintf (buf, | |
9181
b27c4cad21fb
(CHECK_SCNHDR, write_segment): Fix format/arg mismatch.
Karl Heuer <kwzh@gnu.org>
parents:
9037
diff
changeset
|
629 "unexec write failure: addr 0x%lx, fileno %d, size 0x%x, wrote 0x%x, errno %d", |
b27c4cad21fb
(CHECK_SCNHDR, write_segment): Fix format/arg mismatch.
Karl Heuer <kwzh@gnu.org>
parents:
9037
diff
changeset
|
630 (unsigned long)ptr, new, nwrite, ret, errno); |
560 | 631 PERROR (buf); |
632 } | |
633 i += nwrite; | |
634 ptr += nwrite; | |
635 } | |
636 } | |
637 | |
638 /* **************************************************************** | |
639 * copy_sym | |
640 * | |
641 * Copy the relocation information and symbol table from the a.out to the new | |
642 */ | |
643 static int | |
644 copy_sym (new, a_out, a_name, new_name) | |
645 int new, a_out; | |
646 char *a_name, *new_name; | |
110 | 647 { |
14787
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
648 char page[UnexBlockSz]; |
560 | 649 int n; |
650 | |
651 if (a_out < 0) | |
652 return 0; | |
653 | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
654 if (orig_load_scnptr == 0L) |
560 | 655 return 0; |
656 | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
657 if (lnnoptr && lnnoptr < orig_load_scnptr) /* if there is line number info */ |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
658 lseek (a_out, lnnoptr, 0); /* start copying from there */ |
560 | 659 else |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
660 lseek (a_out, orig_load_scnptr, 0); /* Position a.out to symtab. */ |
560 | 661 |
662 while ((n = read (a_out, page, sizeof page)) > 0) | |
663 { | |
664 if (write (new, page, n) != n) | |
665 { | |
666 PERROR (new_name); | |
667 } | |
668 } | |
669 if (n < 0) | |
670 { | |
671 PERROR (a_name); | |
672 } | |
673 return 0; | |
674 } | |
675 | |
676 /* **************************************************************** | |
677 * mark_x | |
678 * | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
560
diff
changeset
|
679 * After successfully building the new a.out, mark it executable |
560 | 680 */ |
681 static void | |
682 mark_x (name) | |
683 char *name; | |
684 { | |
685 struct stat sbuf; | |
686 int um; | |
687 int new = 0; /* for PERROR */ | |
110 | 688 |
560 | 689 um = umask (777); |
690 umask (um); | |
691 if (stat (name, &sbuf) == -1) | |
692 { | |
693 PERROR (name); | |
694 } | |
695 sbuf.st_mode |= 0111 & ~um; | |
696 if (chmod (name, sbuf.st_mode) == -1) | |
697 PERROR (name); | |
698 } | |
699 | |
700 /* | |
701 * If the COFF file contains a symbol table and a line number section, | |
702 * then any auxiliary entries that have values for x_lnnoptr must | |
703 * be adjusted by the amount that the line number section has moved | |
704 * in the file (bias computed in make_hdr). The #@$%&* designers of | |
705 * the auxiliary entry structures used the absolute file offsets for | |
706 * the line number entry rather than an offset from the start of the | |
707 * line number section! | |
708 * | |
709 * When I figure out how to scan through the symbol table and pick out | |
710 * the auxiliary entries that need adjustment, this routine will | |
711 * be fixed. As it is now, all such entries are wrong and sdb | |
712 * will complain. Fred Fish, UniSoft Systems Inc. | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
713 * |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
714 * I believe this is now fixed correctly. Bill Mann |
560 | 715 */ |
716 | |
717 #ifdef COFF | |
718 | |
719 /* This function is probably very slow. Instead of reopening the new | |
720 file for input and output it should copy from the old to the new | |
721 using the two descriptors already open (WRITEDESC and READDESC). | |
722 Instead of reading one small structure at a time it should use | |
723 a reasonable size buffer. But I don't have time to work on such | |
724 things, so I am installing it as submitted to me. -- RMS. */ | |
725 | |
726 adjust_lnnoptrs (writedesc, readdesc, new_name) | |
727 int writedesc; | |
728 int readdesc; | |
729 char *new_name; | |
730 { | |
731 register int nsyms; | |
7867
087c9b909feb
(adjust_lnnoptrs): Handle multiple aux symbols.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
732 register int naux; |
560 | 733 register int new; |
734 #ifdef amdahl_uts | |
735 SYMENT symentry; | |
736 AUXENT auxentry; | |
737 #else | |
738 struct syment symentry; | |
739 union auxent auxentry; | |
740 #endif | |
110 | 741 |
560 | 742 if (!lnnoptr || !f_hdr.f_symptr) |
743 return 0; | |
744 | |
745 if ((new = open (new_name, 2)) < 0) | |
746 { | |
747 PERROR (new_name); | |
748 return -1; | |
749 } | |
750 | |
751 lseek (new, f_hdr.f_symptr, 0); | |
752 for (nsyms = 0; nsyms < f_hdr.f_nsyms; nsyms++) | |
753 { | |
754 read (new, &symentry, SYMESZ); | |
14787
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
755 if (symentry.n_sclass == C_BINCL || symentry.n_sclass == C_EINCL) |
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
756 { |
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
757 symentry.n_value += bias; |
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
758 lseek (new, -SYMESZ, 1); |
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
759 write (new, &symentry, SYMESZ); |
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
760 } |
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
761 |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
762 for (naux = symentry.n_numaux; naux-- != 0; ) |
560 | 763 { |
764 read (new, &auxentry, AUXESZ); | |
765 nsyms++; | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
766 if (naux != 0 /* skip csect auxentry (last entry) */ |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
767 && (symentry.n_sclass == C_EXT || symentry.n_sclass == C_HIDEXT)) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
768 { |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
769 auxentry.x_sym.x_fcnary.x_fcn.x_lnnoptr += bias; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
770 lseek (new, -AUXESZ, 1); |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
771 write (new, &auxentry, AUXESZ); |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
772 } |
560 | 773 } |
774 } | |
775 close (new); | |
776 } | |
777 | |
778 #endif /* COFF */ | |
779 | |
780 #ifdef XCOFF | |
781 | |
782 /* It is probably a false economy to optimise this routine (it used to | |
783 read one LDREL and do do two lseeks per iteration) but the wrath of | |
784 RMS (see above :-) would be too much to bear */ | |
785 | |
786 unrelocate_symbols (new, a_out, a_name, new_name) | |
787 int new, a_out; | |
788 char *a_name, *new_name; | |
789 { | |
790 register int i; | |
791 register int l; | |
792 register LDREL *ldrel; | |
793 LDHDR ldhdr; | |
794 LDREL ldrel_buf [20]; | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
795 ulong t_reloc = (ulong) &_text - f_ohdr.text_start; |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
796 ulong d_reloc = (ulong) &_data - ALIGN(f_ohdr.data_start, 2); |
560 | 797 int * p; |
798 | |
799 if (load_scnptr == 0) | |
800 return 0; | |
801 | |
802 lseek (a_out, orig_load_scnptr, 0); | |
803 if (read (a_out, &ldhdr, sizeof (ldhdr)) != sizeof (ldhdr)) | |
804 { | |
805 PERROR (new_name); | |
806 } | |
807 | |
808 #define SYMNDX_TEXT 0 | |
809 #define SYMNDX_DATA 1 | |
810 #define SYMNDX_BSS 2 | |
811 l = 0; | |
812 for (i = 0; i < ldhdr.l_nreloc; i++, l--, ldrel++) | |
813 { | |
814 if (l == 0) { | |
815 lseek (a_out, | |
816 orig_load_scnptr + LDHDRSZ + LDSYMSZ*ldhdr.l_nsyms + LDRELSZ*i, | |
817 0); | |
110 | 818 |
560 | 819 l = ldhdr.l_nreloc - i; |
820 if (l > sizeof (ldrel_buf) / LDRELSZ) | |
821 l = sizeof (ldrel_buf) / LDRELSZ; | |
822 | |
823 if (read (a_out, ldrel_buf, l * LDRELSZ) != l * LDRELSZ) | |
824 { | |
825 PERROR (a_name); | |
826 } | |
827 ldrel = ldrel_buf; | |
828 } | |
829 | |
830 /* move the BSS loader symbols to the DATA segment */ | |
14787
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
831 if (ldrel->l_symndx == SYMNDX_BSS) |
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
832 { |
0c751a0e86cd
(write_segment,copy_sym): Increase blocking from 128 to 4k bytes.
Richard M. Stallman <rms@gnu.org>
parents:
14782
diff
changeset
|
833 ldrel->l_symndx = SYMNDX_DATA; |
560 | 834 |
835 lseek (new, | |
836 load_scnptr + LDHDRSZ + LDSYMSZ*ldhdr.l_nsyms + LDRELSZ*i, | |
837 0); | |
838 | |
839 if (write (new, ldrel, LDRELSZ) != LDRELSZ) | |
840 { | |
841 PERROR (new_name); | |
842 } | |
843 } | |
844 | |
845 if (ldrel->l_rsecnm == f_ohdr.o_sndata) | |
846 { | |
847 int orig_int; | |
848 | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
849 lseek (a_out, |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
850 orig_data_scnptr + (ldrel->l_vaddr - f_ohdr.data_start), 0); |
560 | 851 |
852 if (read (a_out, (void *) &orig_int, sizeof (orig_int)) != sizeof (orig_int)) | |
853 { | |
854 PERROR (a_name); | |
855 } | |
856 | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
857 p = (int *) (ldrel->l_vaddr + d_reloc); |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
858 |
560 | 859 switch (ldrel->l_symndx) { |
860 case SYMNDX_TEXT: | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
861 orig_int = * p - t_reloc; |
560 | 862 break; |
863 | |
864 case SYMNDX_DATA: | |
865 case SYMNDX_BSS: | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
866 orig_int = * p - d_reloc; |
560 | 867 break; |
868 } | |
869 | |
14782
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
870 if (orig_int != * p) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
871 { |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
872 lseek (new, |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
873 data_scnptr + (ldrel->l_vaddr - f_ohdr.data_start), 0); |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
874 if (write (new, (void *) &orig_int, sizeof (orig_int)) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
875 != sizeof (orig_int)) |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
876 { |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
877 PERROR (new_name); |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
878 } |
8988aa71854e
Handle both AIX 3.2 and 4.1 bind output.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
879 } |
560 | 880 } |
881 } | |
110 | 882 } |
560 | 883 #endif /* XCOFF */ |