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