Mercurial > emacs
annotate src/unexec.c @ 24206:d3649b38bb37
(w32_wnd_proc): Fix bug introduced by previous change;
the lwindow, rwindow and apps keys could not be used as function
keys, because they were being passed to TranslateMessage which
ignores them. Also, key was being changed to SPC.
author | Andrew Innes <andrewi@gnu.org> |
---|---|
date | Wed, 27 Jan 1999 21:53:27 +0000 |
parents | 1f418e353dd7 |
children | 2411aacca614 |
rev | line source |
---|---|
7307 | 1 /* Copyright (C) 1985,86,87,88,92,93,94 Free Software Foundation, Inc. |
172 | 2 |
3 This file is part of GNU Emacs. | |
4 | |
5 GNU Emacs is free software; you can redistribute it and/or modify | |
6 it under the terms of the GNU General Public License as published by | |
4973
4e5081dcfc25
[! HPUX]: Don't declare sbrk at all, so as not to conflict with headers.
Roland McGrath <roland@gnu.org>
parents:
4696
diff
changeset
|
7 the Free Software Foundation; either version 2, or (at your option) |
172 | 8 any later version. |
9 | |
10 GNU Emacs is distributed in the hope that it will be useful, | |
11 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 GNU General Public License for more details. | |
14 | |
15 You should have received a copy of the GNU General Public License | |
16 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
17 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
18 Boston, MA 02111-1307, USA. */ |
172 | 19 |
20 | |
21 /* | |
22 * unexec.c - Convert a running program into an a.out file. | |
23 * | |
24 * Author: Spencer W. Thomas | |
25 * Computer Science Dept. | |
26 * University of Utah | |
27 * Date: Tue Mar 2 1982 | |
28 * Modified heavily since then. | |
29 * | |
30 * Synopsis: | |
31 * unexec (new_name, a_name, data_start, bss_start, entry_address) | |
32 * char *new_name, *a_name; | |
33 * unsigned data_start, bss_start, entry_address; | |
34 * | |
35 * Takes a snapshot of the program and makes an a.out format file in the | |
36 * file named by the string argument new_name. | |
37 * If a_name is non-NULL, the symbol table will be taken from the given file. | |
38 * On some machines, an existing a_name file is required. | |
39 * | |
40 * The boundaries within the a.out file may be adjusted with the data_start | |
41 * and bss_start arguments. Either or both may be given as 0 for defaults. | |
42 * | |
43 * Data_start gives the boundary between the text segment and the data | |
44 * segment of the program. The text segment can contain shared, read-only | |
45 * program code and literal data, while the data segment is always unshared | |
46 * and unprotected. Data_start gives the lowest unprotected address. | |
47 * The value you specify may be rounded down to a suitable boundary | |
48 * as required by the machine you are using. | |
49 * | |
50 * Specifying zero for data_start means the boundary between text and data | |
51 * should not be the same as when the program was loaded. | |
52 * If NO_REMAP is defined, the argument data_start is ignored and the | |
53 * segment boundaries are never changed. | |
54 * | |
55 * Bss_start indicates how much of the data segment is to be saved in the | |
56 * a.out file and restored when the program is executed. It gives the lowest | |
57 * unsaved address, and is rounded up to a page boundary. The default when 0 | |
58 * is given assumes that the entire data segment is to be stored, including | |
59 * the previous data and bss as well as any additional storage allocated with | |
60 * break (2). | |
61 * | |
62 * The new file is set up to start at entry_address. | |
63 * | |
64 * If you make improvements I'd like to get them too. | |
65 * harpo!utah-cs!thomas, thomas@Utah-20 | |
66 * | |
67 */ | |
68 | |
69 /* Modified to support SysVr3 shared libraries by James Van Artsdalen | |
70 * of Dell Computer Corporation. james@bigtex.cactus.org. | |
71 */ | |
72 | |
73 /* There are several compilation parameters affecting unexec: | |
74 | |
75 * COFF | |
76 | |
77 Define this if your system uses COFF for executables. | |
485 | 78 |
79 * COFF_ENCAPSULATE | |
80 | |
81 Define this if you are using the GNU coff encapsulated a.out format. | |
82 This is closer to a.out than COFF. You should *not* define COFF if | |
83 you define COFF_ENCAPSULATE | |
84 | |
172 | 85 Otherwise we assume you use Berkeley format. |
86 | |
87 * NO_REMAP | |
88 | |
89 Define this if you do not want to try to save Emacs's pure data areas | |
90 as part of the text segment. | |
91 | |
92 Saving them as text is good because it allows users to share more. | |
93 | |
94 However, on machines that locate the text area far from the data area, | |
95 the boundary cannot feasibly be moved. Such machines require | |
96 NO_REMAP. | |
97 | |
98 Also, remapping can cause trouble with the built-in startup routine | |
99 /lib/crt0.o, which defines `environ' as an initialized variable. | |
100 Dumping `environ' as pure does not work! So, to use remapping, | |
101 you must write a startup routine for your machine in Emacs's crt0.c. | |
102 If NO_REMAP is defined, Emacs uses the system's crt0.o. | |
103 | |
104 * SECTION_ALIGNMENT | |
105 | |
106 Some machines that use COFF executables require that each section | |
107 start on a certain boundary *in the COFF file*. Such machines should | |
108 define SECTION_ALIGNMENT to a mask of the low-order bits that must be | |
109 zero on such a boundary. This mask is used to control padding between | |
110 segments in the COFF file. | |
111 | |
112 If SECTION_ALIGNMENT is not defined, the segments are written | |
113 consecutively with no attempt at alignment. This is right for | |
114 unmodified system V. | |
115 | |
116 * SEGMENT_MASK | |
117 | |
118 Some machines require that the beginnings and ends of segments | |
119 *in core* be on certain boundaries. For most machines, a page | |
120 boundary is sufficient. That is the default. When a larger | |
121 boundary is needed, define SEGMENT_MASK to a mask of | |
122 the bits that must be zero on such a boundary. | |
123 | |
124 * A_TEXT_OFFSET(HDR) | |
125 | |
126 Some machines count the a.out header as part of the size of the text | |
127 segment (a_text); they may actually load the header into core as the | |
128 first data in the text segment. Some have additional padding between | |
129 the header and the real text of the program that is counted in a_text. | |
130 | |
131 For these machines, define A_TEXT_OFFSET(HDR) to examine the header | |
132 structure HDR and return the number of bytes to add to `a_text' | |
133 before writing it (above and beyond the number of bytes of actual | |
134 program text). HDR's standard fields are already correct, except that | |
135 this adjustment to the `a_text' field has not yet been made; | |
136 thus, the amount of offset can depend on the data in the file. | |
137 | |
138 * A_TEXT_SEEK(HDR) | |
139 | |
140 If defined, this macro specifies the number of bytes to seek into the | |
7921
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
141 a.out file before starting to write the text segment. |
172 | 142 |
143 * EXEC_MAGIC | |
144 | |
145 For machines using COFF, this macro, if defined, is a value stored | |
146 into the magic number field of the output file. | |
147 | |
148 * ADJUST_EXEC_HEADER | |
149 | |
150 This macro can be used to generate statements to adjust or | |
151 initialize nonstandard fields in the file header | |
152 | |
153 * ADDR_CORRECT(ADDR) | |
154 | |
155 Macro to correct an int which is the bit pattern of a pointer to a byte | |
156 into an int which is the number of a byte. | |
157 | |
158 This macro has a default definition which is usually right. | |
159 This default definition is a no-op on most machines (where a | |
160 pointer looks like an int) but not on all machines. | |
161 | |
162 */ | |
163 | |
164 #ifndef emacs | |
165 #define PERROR(arg) perror (arg); return -1 | |
166 #else | |
167 #define IN_UNEXEC | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4319
diff
changeset
|
168 #include <config.h> |
172 | 169 #define PERROR(file) report_error (file, new) |
170 #endif | |
171 | |
172 #ifndef CANNOT_DUMP /* all rest of file! */ | |
173 | |
485 | 174 #ifdef COFF_ENCAPSULATE |
175 int need_coff_header = 1; | |
176 #include <coff-encap/a.out.encap.h> /* The location might be a poor assumption */ | |
177 #else | |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
178 #ifdef MSDOS |
14975
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
179 #if __DJGPP__ > 1 |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
180 #include <fcntl.h> /* for O_RDONLY, O_RDWR */ |
15732
c24b00e705ba
(copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents:
14975
diff
changeset
|
181 #include <crt0.h> /* for _crt0_startup_flags and its bits */ |
c24b00e705ba
(copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents:
14975
diff
changeset
|
182 static int save_djgpp_startup_flags; |
14975
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
183 #endif |
7626
7ae305576201
[MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
184 #include <coff.h> |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
185 #define filehdr external_filehdr |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
186 #define scnhdr external_scnhdr |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
187 #define syment external_syment |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
188 #define auxent external_auxent |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
189 #define n_numaux e_numaux |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
190 #define n_type e_type |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
191 struct aouthdr |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
192 { |
7626
7ae305576201
[MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
193 unsigned short magic; /* type of file */ |
7ae305576201
[MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
194 unsigned short vstamp; /* version stamp */ |
7ae305576201
[MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
195 unsigned long tsize; /* text size in bytes, padded to FW bdry*/ |
7ae305576201
[MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
196 unsigned long dsize; /* initialized data " " */ |
7ae305576201
[MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
197 unsigned long bsize; /* uninitialized data " " */ |
7ae305576201
[MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
198 unsigned long entry; /* entry pt. */ |
7ae305576201
[MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
199 unsigned long text_start;/* base of text used for this file */ |
7ae305576201
[MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
200 unsigned long data_start;/* base of data used for this file */ |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
201 }; |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
202 |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
203 |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
204 #else /* not MSDOS */ |
172 | 205 #include <a.out.h> |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
206 #endif /* not MSDOS */ |
485 | 207 #endif |
208 | |
9699 | 209 /* Define getpagesize if the system does not. |
210 Note that this may depend on symbols defined in a.out.h. */ | |
172 | 211 #include "getpagesize.h" |
212 | |
213 #ifndef makedev /* Try to detect types.h already loaded */ | |
214 #include <sys/types.h> | |
485 | 215 #endif /* makedev */ |
172 | 216 #include <stdio.h> |
217 #include <sys/stat.h> | |
218 #include <errno.h> | |
219 | |
7921
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
220 #include <sys/file.h> /* Must be after sys/types.h for USG and BSD4_1*/ |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
221 |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
222 #ifdef USG5 |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
223 #include <fcntl.h> |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
224 #endif |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
225 |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
226 #ifndef O_RDONLY |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
227 #define O_RDONLY 0 |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
228 #endif |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
229 #ifndef O_RDWR |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
230 #define O_RDWR 2 |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
231 #endif |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
232 |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
233 |
172 | 234 extern char *start_of_text (); /* Start of text */ |
235 extern char *start_of_data (); /* Start of initialized data */ | |
236 | |
237 #ifdef COFF | |
238 static long block_copy_start; /* Old executable start point */ | |
239 static struct filehdr f_hdr; /* File header */ | |
240 static struct aouthdr f_ohdr; /* Optional file header (a.out) */ | |
241 long bias; /* Bias to add for growth */ | |
242 long lnnoptr; /* Pointer to line-number info within file */ | |
243 #define SYMS_START block_copy_start | |
244 | |
245 static long text_scnptr; | |
246 static long data_scnptr; | |
247 | |
22647
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
248 static long coff_offset; |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
249 |
172 | 250 #else /* not COFF */ |
251 | |
3770
07ba80692381
* unexec.c [HPUX] (sbrk): This returns a void *.
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
252 #ifdef HPUX |
07ba80692381
* unexec.c [HPUX] (sbrk): This returns a void *.
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
253 extern void *sbrk (); |
07ba80692381
* unexec.c [HPUX] (sbrk): This returns a void *.
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
254 #else |
4973
4e5081dcfc25
[! HPUX]: Don't declare sbrk at all, so as not to conflict with headers.
Roland McGrath <roland@gnu.org>
parents:
4696
diff
changeset
|
255 #if 0 |
4e5081dcfc25
[! HPUX]: Don't declare sbrk at all, so as not to conflict with headers.
Roland McGrath <roland@gnu.org>
parents:
4696
diff
changeset
|
256 /* Some systems with __STDC__ compilers still declare this `char *' in some |
4e5081dcfc25
[! HPUX]: Don't declare sbrk at all, so as not to conflict with headers.
Roland McGrath <roland@gnu.org>
parents:
4696
diff
changeset
|
257 header file, and our declaration conflicts. The return value is always |
4e5081dcfc25
[! HPUX]: Don't declare sbrk at all, so as not to conflict with headers.
Roland McGrath <roland@gnu.org>
parents:
4696
diff
changeset
|
258 cast, so it should be harmless to leave it undefined. Hopefully |
4e5081dcfc25
[! HPUX]: Don't declare sbrk at all, so as not to conflict with headers.
Roland McGrath <roland@gnu.org>
parents:
4696
diff
changeset
|
259 machines with different size pointers and ints declare sbrk in a header |
4e5081dcfc25
[! HPUX]: Don't declare sbrk at all, so as not to conflict with headers.
Roland McGrath <roland@gnu.org>
parents:
4696
diff
changeset
|
260 file. */ |
620 | 261 #ifdef __STDC__ |
262 extern void *sbrk (); | |
263 #else | |
172 | 264 extern char *sbrk (); |
3770
07ba80692381
* unexec.c [HPUX] (sbrk): This returns a void *.
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
265 #endif /* __STDC__ */ |
4973
4e5081dcfc25
[! HPUX]: Don't declare sbrk at all, so as not to conflict with headers.
Roland McGrath <roland@gnu.org>
parents:
4696
diff
changeset
|
266 #endif |
3770
07ba80692381
* unexec.c [HPUX] (sbrk): This returns a void *.
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
267 #endif /* HPUX */ |
172 | 268 |
269 #define SYMS_START ((long) N_SYMOFF (ohdr)) | |
270 | |
271 /* Some machines override the structure name for an a.out header. */ | |
272 #ifndef EXEC_HDR_TYPE | |
273 #define EXEC_HDR_TYPE struct exec | |
274 #endif | |
275 | |
276 #ifdef HPUX | |
277 #ifdef HP9000S200_ID | |
278 #define MY_ID HP9000S200_ID | |
279 #else | |
280 #include <model.h> | |
281 #define MY_ID MYSYS | |
282 #endif /* no HP9000S200_ID */ | |
283 static MAGIC OLDMAGIC = {MY_ID, SHARE_MAGIC}; | |
284 static MAGIC NEWMAGIC = {MY_ID, DEMAND_MAGIC}; | |
285 #define N_TXTOFF(x) TEXT_OFFSET(x) | |
286 #define N_SYMOFF(x) LESYM_OFFSET(x) | |
287 static EXEC_HDR_TYPE hdr, ohdr; | |
288 | |
289 #else /* not HPUX */ | |
290 | |
2917
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
2125
diff
changeset
|
291 #if defined (USG) && !defined (IBMAIX) && !defined (IRIS) && !defined (COFF_ENCAPSULATE) && !defined (LINUX) |
172 | 292 static struct bhdr hdr, ohdr; |
293 #define a_magic fmagic | |
294 #define a_text tsize | |
295 #define a_data dsize | |
296 #define a_bss bsize | |
297 #define a_syms ssize | |
298 #define a_trsize rtsize | |
299 #define a_drsize rdsize | |
300 #define a_entry entry | |
301 #define N_BADMAG(x) \ | |
302 (((x).fmagic)!=OMAGIC && ((x).fmagic)!=NMAGIC &&\ | |
303 ((x).fmagic)!=FMAGIC && ((x).fmagic)!=IMAGIC) | |
304 #define NEWMAGIC FMAGIC | |
305 #else /* IRIS or IBMAIX or not USG */ | |
306 static EXEC_HDR_TYPE hdr, ohdr; | |
307 #define NEWMAGIC ZMAGIC | |
308 #endif /* IRIS or IBMAIX not USG */ | |
309 #endif /* not HPUX */ | |
310 | |
311 static int unexec_text_start; | |
312 static int unexec_data_start; | |
313 | |
485 | 314 #ifdef COFF_ENCAPSULATE |
315 /* coffheader is defined in the GNU a.out.encap.h file. */ | |
316 struct coffheader coffheader; | |
317 #endif | |
318 | |
172 | 319 #endif /* not COFF */ |
320 | |
321 static int pagemask; | |
322 | |
323 /* Correct an int which is the bit pattern of a pointer to a byte | |
324 into an int which is the number of a byte. | |
325 This is a no-op on ordinary machines, but not on all. */ | |
326 | |
327 #ifndef ADDR_CORRECT /* Let m-*.h files override this definition */ | |
328 #define ADDR_CORRECT(x) ((char *)(x) - (char*)0) | |
329 #endif | |
330 | |
331 #ifdef emacs | |
332 | |
7921
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
333 #include "lisp.h" |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
334 |
172 | 335 static |
336 report_error (file, fd) | |
337 char *file; | |
338 int fd; | |
339 { | |
340 if (fd) | |
341 close (fd); | |
7921
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
342 report_file_error ("Cannot unexec", Fcons (build_string (file), Qnil)); |
172 | 343 } |
344 #endif /* emacs */ | |
345 | |
346 #define ERROR0(msg) report_error_1 (new, msg, 0, 0); return -1 | |
347 #define ERROR1(msg,x) report_error_1 (new, msg, x, 0); return -1 | |
348 #define ERROR2(msg,x,y) report_error_1 (new, msg, x, y); return -1 | |
349 | |
350 static | |
351 report_error_1 (fd, msg, a1, a2) | |
352 int fd; | |
353 char *msg; | |
354 int a1, a2; | |
355 { | |
356 close (fd); | |
357 #ifdef emacs | |
358 error (msg, a1, a2); | |
359 #else | |
360 fprintf (stderr, msg, a1, a2); | |
361 fprintf (stderr, "\n"); | |
362 #endif | |
363 } | |
364 | |
365 static int make_hdr (); | |
366 static int copy_text_and_data (); | |
367 static int copy_sym (); | |
368 static void mark_x (); | |
369 | |
370 /* **************************************************************** | |
371 * unexec | |
372 * | |
373 * driving logic. | |
374 */ | |
375 unexec (new_name, a_name, data_start, bss_start, entry_address) | |
376 char *new_name, *a_name; | |
377 unsigned data_start, bss_start, entry_address; | |
378 { | |
379 int new, a_out = -1; | |
380 | |
7921
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
381 if (a_name && (a_out = open (a_name, O_RDONLY)) < 0) |
172 | 382 { |
383 PERROR (a_name); | |
384 } | |
385 if ((new = creat (new_name, 0666)) < 0) | |
386 { | |
387 PERROR (new_name); | |
388 } | |
389 | |
390 if (make_hdr (new, a_out, data_start, bss_start, entry_address, a_name, new_name) < 0 | |
391 || copy_text_and_data (new, a_out) < 0 | |
392 || copy_sym (new, a_out, a_name, new_name) < 0 | |
393 #ifdef COFF | |
394 #ifndef COFF_BSD_SYMBOLS | |
395 || adjust_lnnoptrs (new, a_out, new_name) < 0 | |
396 #endif | |
397 #endif | |
398 ) | |
399 { | |
400 close (new); | |
401 /* unlink (new_name); /* Failed, unlink new a.out */ | |
402 return -1; | |
403 } | |
404 | |
405 close (new); | |
406 if (a_out >= 0) | |
407 close (a_out); | |
408 mark_x (new_name); | |
409 return 0; | |
410 } | |
411 | |
412 /* **************************************************************** | |
413 * make_hdr | |
414 * | |
415 * Make the header in the new a.out from the header in core. | |
416 * Modify the text and data sizes. | |
417 */ | |
418 static int | |
419 make_hdr (new, a_out, data_start, bss_start, entry_address, a_name, new_name) | |
420 int new, a_out; | |
421 unsigned data_start, bss_start, entry_address; | |
422 char *a_name; | |
423 char *new_name; | |
424 { | |
425 int tem; | |
426 #ifdef COFF | |
427 auto struct scnhdr f_thdr; /* Text section header */ | |
428 auto struct scnhdr f_dhdr; /* Data section header */ | |
429 auto struct scnhdr f_bhdr; /* Bss section header */ | |
430 auto struct scnhdr scntemp; /* Temporary section header */ | |
431 register int scns; | |
432 #endif /* COFF */ | |
433 #ifdef USG_SHARED_LIBRARIES | |
434 extern unsigned int bss_end; | |
435 #else | |
436 unsigned int bss_end; | |
437 #endif | |
438 | |
439 pagemask = getpagesize () - 1; | |
440 | |
441 /* Adjust text/data boundary. */ | |
442 #ifdef NO_REMAP | |
443 data_start = (int) start_of_data (); | |
444 #else /* not NO_REMAP */ | |
445 if (!data_start) | |
446 data_start = (int) start_of_data (); | |
447 #endif /* not NO_REMAP */ | |
448 data_start = ADDR_CORRECT (data_start); | |
449 | |
450 #ifdef SEGMENT_MASK | |
451 data_start = data_start & ~SEGMENT_MASK; /* (Down) to segment boundary. */ | |
452 #else | |
453 data_start = data_start & ~pagemask; /* (Down) to page boundary. */ | |
454 #endif | |
455 | |
456 bss_end = ADDR_CORRECT (sbrk (0)) + pagemask; | |
457 bss_end &= ~ pagemask; | |
458 | |
459 /* Adjust data/bss boundary. */ | |
460 if (bss_start != 0) | |
461 { | |
462 bss_start = (ADDR_CORRECT (bss_start) + pagemask); | |
463 /* (Up) to page bdry. */ | |
464 bss_start &= ~ pagemask; | |
465 if (bss_start > bss_end) | |
466 { | |
467 ERROR1 ("unexec: Specified bss_start (%u) is past end of program", | |
468 bss_start); | |
469 } | |
470 } | |
471 else | |
472 bss_start = bss_end; | |
473 | |
474 if (data_start > bss_start) /* Can't have negative data size. */ | |
475 { | |
476 ERROR2 ("unexec: data_start (%u) can't be greater than bss_start (%u)", | |
477 data_start, bss_start); | |
478 } | |
479 | |
480 #ifdef COFF | |
22647
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
481 coff_offset = 0L; /* stays zero, except in DJGPP */ |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
482 |
172 | 483 /* Salvage as much info from the existing file as possible */ |
484 if (a_out >= 0) | |
485 { | |
22647
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
486 #ifdef MSDOS |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
487 #if __DJGPP__ > 1 |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
488 /* Support the coff-go32-exe format with a prepended stub, since |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
489 this is what GCC 2.8.0 and later generates by default in DJGPP. */ |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
490 unsigned short mz_header[3]; |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
491 |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
492 if (read (a_out, &mz_header, sizeof (mz_header)) != sizeof (mz_header)) |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
493 { |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
494 PERROR (a_name); |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
495 } |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
496 if (mz_header[0] == 0x5a4d || mz_header[0] == 0x4d5a) /* "MZ" or "ZM" */ |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
497 { |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
498 coff_offset = (long)mz_header[2] * 512L; |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
499 if (mz_header[1]) |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
500 coff_offset += (long)mz_header[1] - 512L; |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
501 lseek (a_out, coff_offset, 0); |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
502 } |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
503 else |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
504 lseek (a_out, 0L, 0); |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
505 #endif /* __DJGPP__ > 1 */ |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
506 #endif /* MSDOS */ |
172 | 507 if (read (a_out, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr)) |
508 { | |
509 PERROR (a_name); | |
510 } | |
511 block_copy_start += sizeof (f_hdr); | |
512 if (f_hdr.f_opthdr > 0) | |
513 { | |
514 if (read (a_out, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr)) | |
515 { | |
516 PERROR (a_name); | |
517 } | |
518 block_copy_start += sizeof (f_ohdr); | |
519 } | |
520 /* Loop through section headers, copying them in */ | |
22647
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
521 lseek (a_out, coff_offset + sizeof (f_hdr) + f_hdr.f_opthdr, 0); |
172 | 522 for (scns = f_hdr.f_nscns; scns > 0; scns--) { |
523 if (read (a_out, &scntemp, sizeof (scntemp)) != sizeof (scntemp)) | |
524 { | |
525 PERROR (a_name); | |
526 } | |
527 if (scntemp.s_scnptr > 0L) | |
528 { | |
529 if (block_copy_start < scntemp.s_scnptr + scntemp.s_size) | |
530 block_copy_start = scntemp.s_scnptr + scntemp.s_size; | |
531 } | |
532 if (strcmp (scntemp.s_name, ".text") == 0) | |
533 { | |
534 f_thdr = scntemp; | |
535 } | |
536 else if (strcmp (scntemp.s_name, ".data") == 0) | |
537 { | |
538 f_dhdr = scntemp; | |
539 } | |
540 else if (strcmp (scntemp.s_name, ".bss") == 0) | |
541 { | |
542 f_bhdr = scntemp; | |
543 } | |
544 } | |
545 } | |
546 else | |
547 { | |
548 ERROR0 ("can't build a COFF file from scratch yet"); | |
549 } | |
550 | |
551 /* Now we alter the contents of all the f_*hdr variables | |
552 to correspond to what we want to dump. */ | |
553 | |
554 #ifdef USG_SHARED_LIBRARIES | |
555 | |
556 /* The amount of data we're adding to the file is distance from the | |
557 * end of the original .data space to the current end of the .data | |
558 * space. | |
559 */ | |
560 | |
1937
087889e85644
(Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
620
diff
changeset
|
561 bias = bss_start - (f_ohdr.data_start + f_dhdr.s_size); |
172 | 562 |
563 #endif | |
564 | |
565 f_hdr.f_flags |= (F_RELFLG | F_EXEC); | |
566 #ifdef TPIX | |
567 f_hdr.f_nscns = 3; | |
568 #endif | |
569 #ifdef EXEC_MAGIC | |
570 f_ohdr.magic = EXEC_MAGIC; | |
571 #endif | |
572 #ifndef NO_REMAP | |
573 f_ohdr.text_start = (long) start_of_text (); | |
574 f_ohdr.tsize = data_start - f_ohdr.text_start; | |
575 f_ohdr.data_start = data_start; | |
576 #endif /* NO_REMAP */ | |
577 f_ohdr.dsize = bss_start - f_ohdr.data_start; | |
578 f_ohdr.bsize = bss_end - bss_start; | |
579 #ifndef KEEP_OLD_TEXT_SCNPTR | |
580 /* On some machines, the old values are right. | |
581 ??? Maybe on all machines with NO_REMAP. */ | |
582 f_thdr.s_size = f_ohdr.tsize; | |
583 f_thdr.s_scnptr = sizeof (f_hdr) + sizeof (f_ohdr); | |
584 f_thdr.s_scnptr += (f_hdr.f_nscns) * (sizeof (f_thdr)); | |
585 #endif /* KEEP_OLD_TEXT_SCNPTR */ | |
586 #ifdef ADJUST_TEXT_SCNHDR_SIZE | |
587 /* On some machines, `text size' includes all headers. */ | |
588 f_thdr.s_size -= f_thdr.s_scnptr; | |
589 #endif /* ADJUST_TEST_SCNHDR_SIZE */ | |
590 lnnoptr = f_thdr.s_lnnoptr; | |
591 #ifdef SECTION_ALIGNMENT | |
592 /* Some systems require special alignment | |
593 of the sections in the file itself. */ | |
594 f_thdr.s_scnptr | |
595 = (f_thdr.s_scnptr + SECTION_ALIGNMENT) & ~SECTION_ALIGNMENT; | |
596 #endif /* SECTION_ALIGNMENT */ | |
597 #ifdef TPIX | |
598 f_thdr.s_scnptr = 0xd0; | |
599 #endif | |
600 text_scnptr = f_thdr.s_scnptr; | |
601 #ifdef ADJUST_TEXTBASE | |
602 text_scnptr = sizeof (f_hdr) + sizeof (f_ohdr) + (f_hdr.f_nscns) * (sizeof (f_thdr)); | |
603 #endif | |
604 #ifndef KEEP_OLD_PADDR | |
605 f_dhdr.s_paddr = f_ohdr.data_start; | |
606 #endif /* KEEP_OLD_PADDR */ | |
607 f_dhdr.s_vaddr = f_ohdr.data_start; | |
608 f_dhdr.s_size = f_ohdr.dsize; | |
609 f_dhdr.s_scnptr = f_thdr.s_scnptr + f_thdr.s_size; | |
610 #ifdef SECTION_ALIGNMENT | |
611 /* Some systems require special alignment | |
612 of the sections in the file itself. */ | |
613 f_dhdr.s_scnptr | |
614 = (f_dhdr.s_scnptr + SECTION_ALIGNMENT) & ~SECTION_ALIGNMENT; | |
615 #endif /* SECTION_ALIGNMENT */ | |
616 #ifdef DATA_SECTION_ALIGNMENT | |
617 /* Some systems require special alignment | |
618 of the data section only. */ | |
619 f_dhdr.s_scnptr | |
620 = (f_dhdr.s_scnptr + DATA_SECTION_ALIGNMENT) & ~DATA_SECTION_ALIGNMENT; | |
621 #endif /* DATA_SECTION_ALIGNMENT */ | |
622 data_scnptr = f_dhdr.s_scnptr; | |
623 #ifndef KEEP_OLD_PADDR | |
624 f_bhdr.s_paddr = f_ohdr.data_start + f_ohdr.dsize; | |
625 #endif /* KEEP_OLD_PADDR */ | |
626 f_bhdr.s_vaddr = f_ohdr.data_start + f_ohdr.dsize; | |
627 f_bhdr.s_size = f_ohdr.bsize; | |
628 f_bhdr.s_scnptr = 0L; | |
629 #ifndef USG_SHARED_LIBRARIES | |
630 bias = f_dhdr.s_scnptr + f_dhdr.s_size - block_copy_start; | |
631 #endif | |
632 | |
633 if (f_hdr.f_symptr > 0L) | |
634 { | |
635 f_hdr.f_symptr += bias; | |
636 } | |
637 | |
638 if (f_thdr.s_lnnoptr > 0L) | |
639 { | |
640 f_thdr.s_lnnoptr += bias; | |
641 } | |
642 | |
643 #ifdef ADJUST_EXEC_HEADER | |
644 ADJUST_EXEC_HEADER; | |
645 #endif /* ADJUST_EXEC_HEADER */ | |
646 | |
647 if (write (new, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr)) | |
648 { | |
649 PERROR (new_name); | |
650 } | |
651 | |
652 if (write (new, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr)) | |
653 { | |
654 PERROR (new_name); | |
655 } | |
656 | |
657 #ifndef USG_SHARED_LIBRARIES | |
658 | |
659 if (write (new, &f_thdr, sizeof (f_thdr)) != sizeof (f_thdr)) | |
660 { | |
661 PERROR (new_name); | |
662 } | |
663 | |
664 if (write (new, &f_dhdr, sizeof (f_dhdr)) != sizeof (f_dhdr)) | |
665 { | |
666 PERROR (new_name); | |
667 } | |
668 | |
669 if (write (new, &f_bhdr, sizeof (f_bhdr)) != sizeof (f_bhdr)) | |
670 { | |
671 PERROR (new_name); | |
672 } | |
673 | |
674 #else /* USG_SHARED_LIBRARIES */ | |
675 | |
676 /* The purpose of this code is to write out the new file's section | |
677 * header table. | |
678 * | |
679 * Scan through the original file's sections. If the encountered | |
680 * section is one we know (.text, .data or .bss), write out the | |
681 * correct header. If it is a section we do not know (such as | |
682 * .lib), adjust the address of where the section data is in the | |
683 * file, and write out the header. | |
684 * | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2917
diff
changeset
|
685 * If any section precedes .text or .data in the file, this code |
172 | 686 * will not adjust the file pointer for that section correctly. |
687 */ | |
688 | |
7931
359834d749db
(make_hdr): Handle case of no "additional header".
Richard M. Stallman <rms@gnu.org>
parents:
7921
diff
changeset
|
689 /* This used to use sizeof (f_ohdr) instead of .f_opthdr. |
359834d749db
(make_hdr): Handle case of no "additional header".
Richard M. Stallman <rms@gnu.org>
parents:
7921
diff
changeset
|
690 .f_opthdr is said to be right when there is no optional header. */ |
359834d749db
(make_hdr): Handle case of no "additional header".
Richard M. Stallman <rms@gnu.org>
parents:
7921
diff
changeset
|
691 lseek (a_out, sizeof (f_hdr) + f_hdr.f_opthdr, 0); |
172 | 692 |
693 for (scns = f_hdr.f_nscns; scns > 0; scns--) | |
694 { | |
695 if (read (a_out, &scntemp, sizeof (scntemp)) != sizeof (scntemp)) | |
696 PERROR (a_name); | |
697 | |
698 if (!strcmp (scntemp.s_name, f_thdr.s_name)) /* .text */ | |
699 { | |
700 if (write (new, &f_thdr, sizeof (f_thdr)) != sizeof (f_thdr)) | |
701 PERROR (new_name); | |
702 } | |
703 else if (!strcmp (scntemp.s_name, f_dhdr.s_name)) /* .data */ | |
704 { | |
705 if (write (new, &f_dhdr, sizeof (f_dhdr)) != sizeof (f_dhdr)) | |
706 PERROR (new_name); | |
707 } | |
708 else if (!strcmp (scntemp.s_name, f_bhdr.s_name)) /* .bss */ | |
709 { | |
710 if (write (new, &f_bhdr, sizeof (f_bhdr)) != sizeof (f_bhdr)) | |
711 PERROR (new_name); | |
712 } | |
713 else | |
714 { | |
715 if (scntemp.s_scnptr) | |
716 scntemp.s_scnptr += bias; | |
717 if (write (new, &scntemp, sizeof (scntemp)) != sizeof (scntemp)) | |
718 PERROR (new_name); | |
719 } | |
720 } | |
721 #endif /* USG_SHARED_LIBRARIES */ | |
722 | |
723 return (0); | |
724 | |
725 #else /* if not COFF */ | |
726 | |
727 /* Get symbol table info from header of a.out file if given one. */ | |
728 if (a_out >= 0) | |
729 { | |
485 | 730 #ifdef COFF_ENCAPSULATE |
731 if (read (a_out, &coffheader, sizeof coffheader) != sizeof coffheader) | |
732 { | |
733 PERROR(a_name); | |
734 } | |
735 if (coffheader.f_magic != COFF_MAGIC) | |
736 { | |
737 ERROR1("%s doesn't have legal coff magic number\n", a_name); | |
738 } | |
739 #endif | |
172 | 740 if (read (a_out, &ohdr, sizeof hdr) != sizeof hdr) |
741 { | |
742 PERROR (a_name); | |
743 } | |
744 | |
745 if (N_BADMAG (ohdr)) | |
746 { | |
747 ERROR1 ("invalid magic number in %s", a_name); | |
748 } | |
749 hdr = ohdr; | |
750 } | |
751 else | |
752 { | |
485 | 753 #ifdef COFF_ENCAPSULATE |
754 /* We probably could without too much trouble. The code is in gld | |
755 * but I don't have that much time or incentive. | |
756 */ | |
757 ERROR0 ("can't build a COFF file from scratch yet"); | |
758 #else | |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
759 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */ |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
760 bzero ((void *)&hdr, sizeof hdr); |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
761 #else |
4319
43a327b94579
(make_hdr): Use & in call to bzero.
Richard M. Stallman <rms@gnu.org>
parents:
3770
diff
changeset
|
762 bzero (&hdr, sizeof hdr); |
485 | 763 #endif |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
764 #endif |
172 | 765 } |
766 | |
767 unexec_text_start = (long) start_of_text (); | |
768 unexec_data_start = data_start; | |
769 | |
770 /* Machine-dependent fixup for header, or maybe for unexec_text_start */ | |
771 #ifdef ADJUST_EXEC_HEADER | |
772 ADJUST_EXEC_HEADER; | |
773 #endif /* ADJUST_EXEC_HEADER */ | |
774 | |
775 hdr.a_trsize = 0; | |
776 hdr.a_drsize = 0; | |
777 if (entry_address != 0) | |
778 hdr.a_entry = entry_address; | |
779 | |
780 hdr.a_bss = bss_end - bss_start; | |
781 hdr.a_data = bss_start - data_start; | |
782 #ifdef NO_REMAP | |
783 hdr.a_text = ohdr.a_text; | |
784 #else /* not NO_REMAP */ | |
785 hdr.a_text = data_start - unexec_text_start; | |
786 | |
787 #ifdef A_TEXT_OFFSET | |
788 hdr.a_text += A_TEXT_OFFSET (ohdr); | |
789 #endif | |
790 | |
791 #endif /* not NO_REMAP */ | |
792 | |
485 | 793 #ifdef COFF_ENCAPSULATE |
794 /* We are encapsulating BSD format within COFF format. */ | |
795 { | |
796 struct coffscn *tp, *dp, *bp; | |
797 tp = &coffheader.scns[0]; | |
798 dp = &coffheader.scns[1]; | |
799 bp = &coffheader.scns[2]; | |
800 tp->s_size = hdr.a_text + sizeof(struct exec); | |
801 dp->s_paddr = data_start; | |
802 dp->s_vaddr = data_start; | |
803 dp->s_size = hdr.a_data; | |
804 bp->s_paddr = dp->s_vaddr + dp->s_size; | |
805 bp->s_vaddr = bp->s_paddr; | |
806 bp->s_size = hdr.a_bss; | |
807 coffheader.tsize = tp->s_size; | |
808 coffheader.dsize = dp->s_size; | |
809 coffheader.bsize = bp->s_size; | |
810 coffheader.text_start = tp->s_vaddr; | |
811 coffheader.data_start = dp->s_vaddr; | |
812 } | |
813 if (write (new, &coffheader, sizeof coffheader) != sizeof coffheader) | |
814 { | |
815 PERROR(new_name); | |
816 } | |
817 #endif /* COFF_ENCAPSULATE */ | |
818 | |
172 | 819 if (write (new, &hdr, sizeof hdr) != sizeof hdr) |
820 { | |
821 PERROR (new_name); | |
822 } | |
823 | |
9351
e3303c64b684
(make_hdr): Undo June 16 change.
Richard M. Stallman <rms@gnu.org>
parents:
9038
diff
changeset
|
824 #if 0 /* This #ifndef caused a bug on Linux when using QMAGIC. */ |
7921
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
825 /* This adjustment was done above only #ifndef NO_REMAP, |
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
826 so only undo it now #ifndef NO_REMAP. */ |
9351
e3303c64b684
(make_hdr): Undo June 16 change.
Richard M. Stallman <rms@gnu.org>
parents:
9038
diff
changeset
|
827 /* #ifndef NO_REMAP */ |
e3303c64b684
(make_hdr): Undo June 16 change.
Richard M. Stallman <rms@gnu.org>
parents:
9038
diff
changeset
|
828 #endif |
172 | 829 #ifdef A_TEXT_OFFSET |
830 hdr.a_text -= A_TEXT_OFFSET (ohdr); | |
831 #endif | |
832 | |
833 return 0; | |
834 | |
835 #endif /* not COFF */ | |
836 } | |
837 | |
838 /* **************************************************************** | |
839 * copy_text_and_data | |
840 * | |
841 * Copy the text and data segments from memory to the new a.out | |
842 */ | |
843 static int | |
844 copy_text_and_data (new, a_out) | |
845 int new, a_out; | |
846 { | |
847 register char *end; | |
848 register char *ptr; | |
849 | |
850 #ifdef COFF | |
851 | |
852 #ifdef USG_SHARED_LIBRARIES | |
853 | |
854 int scns; | |
855 struct scnhdr scntemp; /* Temporary section header */ | |
856 | |
857 /* The purpose of this code is to write out the new file's section | |
858 * contents. | |
859 * | |
860 * Step through the section table. If we know the section (.text, | |
861 * .data) do the appropriate thing. Otherwise, if the section has | |
862 * no allocated space in the file (.bss), do nothing. Otherwise, | |
863 * the section has space allocated in the file, and is not a section | |
864 * we know. So just copy it. | |
865 */ | |
866 | |
867 lseek (a_out, sizeof (struct filehdr) + sizeof (struct aouthdr), 0); | |
868 | |
869 for (scns = f_hdr.f_nscns; scns > 0; scns--) | |
870 { | |
871 if (read (a_out, &scntemp, sizeof (scntemp)) != sizeof (scntemp)) | |
872 PERROR ("temacs"); | |
873 | |
874 if (!strcmp (scntemp.s_name, ".text")) | |
875 { | |
876 lseek (new, (long) text_scnptr, 0); | |
877 ptr = (char *) f_ohdr.text_start; | |
878 end = ptr + f_ohdr.tsize; | |
879 write_segment (new, ptr, end); | |
880 } | |
881 else if (!strcmp (scntemp.s_name, ".data")) | |
882 { | |
883 lseek (new, (long) data_scnptr, 0); | |
884 ptr = (char *) f_ohdr.data_start; | |
885 end = ptr + f_ohdr.dsize; | |
886 write_segment (new, ptr, end); | |
887 } | |
888 else if (!scntemp.s_scnptr) | |
889 ; /* do nothing - no data for this section */ | |
890 else | |
891 { | |
892 char page[BUFSIZ]; | |
893 int size, n; | |
894 long old_a_out_ptr = lseek (a_out, 0, 1); | |
895 | |
896 lseek (a_out, scntemp.s_scnptr, 0); | |
897 for (size = scntemp.s_size; size > 0; size -= sizeof (page)) | |
898 { | |
899 n = size > sizeof (page) ? sizeof (page) : size; | |
900 if (read (a_out, page, n) != n || write (new, page, n) != n) | |
2125
0920d8d995d0
* unexec.c (copy_text_and_data): Error message tweaked.
Jim Blandy <jimb@redhat.com>
parents:
1937
diff
changeset
|
901 PERROR ("emacs"); |
172 | 902 } |
903 lseek (a_out, old_a_out_ptr, 0); | |
904 } | |
905 } | |
906 | |
907 #else /* COFF, but not USG_SHARED_LIBRARIES */ | |
908 | |
14975
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
909 #ifdef MSDOS |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
910 #if __DJGPP__ >= 2 |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
911 /* Dump the original table of exception handlers, not the one |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
912 where our exception hooks are registered. */ |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
913 __djgpp_exception_toggle (); |
15732
c24b00e705ba
(copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents:
14975
diff
changeset
|
914 |
c24b00e705ba
(copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents:
14975
diff
changeset
|
915 /* Switch off startup flags that might have been set at runtime |
c24b00e705ba
(copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents:
14975
diff
changeset
|
916 and which might change the way that dumped Emacs works. */ |
c24b00e705ba
(copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents:
14975
diff
changeset
|
917 save_djgpp_startup_flags = _crt0_startup_flags; |
c24b00e705ba
(copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents:
14975
diff
changeset
|
918 _crt0_startup_flags &= ~(_CRT0_FLAG_NO_LFN | _CRT0_FLAG_NEARPTR); |
14975
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
919 #endif |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
920 #endif |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
921 |
172 | 922 lseek (new, (long) text_scnptr, 0); |
923 ptr = (char *) f_ohdr.text_start; | |
924 #ifdef HEADER_INCL_IN_TEXT | |
925 /* For Gould UTX/32, text starts after headers */ | |
926 ptr = (char *) (ptr + text_scnptr); | |
927 #endif /* HEADER_INCL_IN_TEXT */ | |
928 end = ptr + f_ohdr.tsize; | |
929 write_segment (new, ptr, end); | |
930 | |
931 lseek (new, (long) data_scnptr, 0); | |
932 ptr = (char *) f_ohdr.data_start; | |
933 end = ptr + f_ohdr.dsize; | |
934 write_segment (new, ptr, end); | |
935 | |
14975
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
936 #ifdef MSDOS |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
937 #if __DJGPP__ >= 2 |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
938 /* Restore our exception hooks. */ |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
939 __djgpp_exception_toggle (); |
15732
c24b00e705ba
(copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents:
14975
diff
changeset
|
940 |
c24b00e705ba
(copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents:
14975
diff
changeset
|
941 /* Restore the startup flags. */ |
c24b00e705ba
(copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents:
14975
diff
changeset
|
942 _crt0_startup_flags = save_djgpp_startup_flags; |
14975
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
943 #endif |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
944 #endif |
7b91ceb19771
[DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
945 |
172 | 946 #endif /* USG_SHARED_LIBRARIES */ |
947 | |
948 #else /* if not COFF */ | |
949 | |
950 /* Some machines count the header as part of the text segment. | |
951 That is to say, the header appears in core | |
9699 | 952 just before the address that start_of_text returns. |
172 | 953 For them, N_TXTOFF is the place where the header goes. |
954 We must adjust the seek to the place after the header. | |
955 Note that at this point hdr.a_text does *not* count | |
956 the extra A_TEXT_OFFSET bytes, only the actual bytes of code. */ | |
957 | |
958 #ifdef A_TEXT_SEEK | |
959 lseek (new, (long) A_TEXT_SEEK (hdr), 0); | |
960 #else | |
961 lseek (new, (long) N_TXTOFF (hdr), 0); | |
962 #endif /* no A_TEXT_SEEK */ | |
963 | |
9017
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
964 #ifdef RISCiX |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
965 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
966 /* Acorn's RISC-iX has a wacky way of initialising the position of the heap. |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
967 * There is a little table in crt0.o that is filled at link time with |
9699 | 968 * the min and current brk positions, among other things. When start |
9017
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
969 * runs, it copies the table to where these parameters live during |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
970 * execution. This data is in text space, so it cannot be modified here |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
971 * before saving the executable, so the data is written manually. In |
14036 | 972 * addition, the table does not have a label, and the nearest accessible |
973 * label (mcount) is not prefixed with a '_', thus making it inaccessible | |
9017
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
974 * from within C programs. To overcome this, emacs's executable is passed |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
975 * through the command 'nm %s | fgrep mcount' into a pipe, and the |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
976 * resultant output is then used to find the address of 'mcount'. As far as |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
977 * is possible to determine, in RISC-iX releases prior to 1.2, the negative |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
978 * offset of the table from mcount is 0x2c, whereas from 1.2 onwards it is |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
979 * 0x30. bss_end has been rounded up to page boundary. This solution is |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
980 * based on suggestions made by Kevin Welton and Steve Hunt of Acorn, and |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
981 * avoids the need for a custom version of crt0.o for emacs which has its |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
982 * table in data space. |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
983 */ |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
984 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
985 { |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
986 char command[1024]; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
987 char errbuf[1024]; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
988 char address_text[32]; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
989 int proforma[4]; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
990 FILE *pfile; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
991 char *temp_ptr; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
992 char c; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
993 int mcount_address, mcount_offset, count; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
994 extern char *_execname; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
995 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
996 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
997 /* The use of _execname is incompatible with RISCiX 1.1 */ |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
998 sprintf (command, "nm %s | fgrep mcount", _execname); |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
999 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1000 if ( (pfile = popen(command, "r")) == NULL) |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1001 { |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1002 sprintf (errbuf, "Could not open pipe"); |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1003 PERROR (errbuf); |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1004 } |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1005 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1006 count=0; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1007 while ( ((c=getc(pfile)) != EOF) && (c != ' ') && (count < 31)) |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1008 address_text[count++]=c; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1009 address_text[count]=0; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1010 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1011 if ((count == 0) || pclose(pfile) != NULL) |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1012 { |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1013 sprintf (errbuf, "Failed to execute the command '%s'\n", command); |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1014 PERROR (errbuf); |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1015 } |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1016 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1017 sscanf(address_text, "%x", &mcount_address); |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1018 ptr = (char *) unexec_text_start; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1019 mcount_offset = (char *)mcount_address - ptr; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1020 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1021 #ifdef RISCiX_1_1 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1022 #define EDATA_OFFSET 0x2c |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1023 #else |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1024 #define EDATA_OFFSET 0x30 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1025 #endif |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1026 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1027 end = ptr + mcount_offset - EDATA_OFFSET; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1028 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1029 write_segment (new, ptr, end); |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1030 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1031 proforma[0] = bss_end; /* becomes _edata */ |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1032 proforma[1] = bss_end; /* becomes _end */ |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1033 proforma[2] = bss_end; /* becomes _minbrk */ |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1034 proforma[3] = bss_end; /* becomes _curbrk */ |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1035 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1036 write (new, proforma, 16); |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1037 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1038 temp_ptr = ptr; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1039 ptr = end + 16; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1040 end = temp_ptr + hdr.a_text; |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1041 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1042 write_segment (new, ptr, end); |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1043 } |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1044 |
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1045 #else /* !RISCiX */ |
172 | 1046 ptr = (char *) unexec_text_start; |
1047 end = ptr + hdr.a_text; | |
1048 write_segment (new, ptr, end); | |
9017
de17ae9463e3
(copy_text_and_data): Add RISCiX changes.
Richard M. Stallman <rms@gnu.org>
parents:
7931
diff
changeset
|
1049 #endif /* RISCiX */ |
172 | 1050 |
1051 ptr = (char *) unexec_data_start; | |
1052 end = ptr + hdr.a_data; | |
1053 /* This lseek is certainly incorrect when A_TEXT_OFFSET | |
1054 and I believe it is a no-op otherwise. | |
1055 Let's see if its absence ever fails. */ | |
1056 /* lseek (new, (long) N_TXTOFF (hdr) + hdr.a_text, 0); */ | |
1057 write_segment (new, ptr, end); | |
1058 | |
1059 #endif /* not COFF */ | |
1060 | |
1061 return 0; | |
1062 } | |
1063 | |
1064 write_segment (new, ptr, end) | |
1065 int new; | |
1066 register char *ptr, *end; | |
1067 { | |
1068 register int i, nwrite, ret; | |
1069 char buf[80]; | |
1070 extern int errno; | |
13152
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1071 /* This is the normal amount to write at once. |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1072 It is the size of block that NFS uses. */ |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1073 int writesize = 1 << 13; |
13107
fab67884f69a
(write_segment): Use pagesize as unit of writing instead of 128.
Richard M. Stallman <rms@gnu.org>
parents:
9699
diff
changeset
|
1074 int pagesize = getpagesize (); |
13152
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1075 char zeros[1 << 13]; |
172 | 1076 |
13152
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1077 bzero (zeros, sizeof (zeros)); |
172 | 1078 |
1079 for (i = 0; ptr < end;) | |
1080 { | |
13152
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1081 /* Distance to next multiple of writesize. */ |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1082 nwrite = (((int) ptr + writesize) & -writesize) - (int) ptr; |
172 | 1083 /* But not beyond specified end. */ |
1084 if (nwrite > end - ptr) nwrite = end - ptr; | |
1085 ret = write (new, ptr, nwrite); | |
1086 /* If write gets a page fault, it means we reached | |
1087 a gap between the old text segment and the old data segment. | |
1088 This gap has probably been remapped into part of the text segment. | |
1089 So write zeros for it. */ | |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1090 if (ret == -1 |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1091 #ifdef EFAULT |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1092 && errno == EFAULT |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1093 #endif |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1094 ) |
13152
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1095 { |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1096 /* Write only a page of zeros at once, |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1097 so that we we don't overshoot the start |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1098 of the valid memory in the old data segment. */ |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1099 if (nwrite > pagesize) |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1100 nwrite = pagesize; |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1101 write (new, zeros, nwrite); |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1102 } |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1103 #if 0 /* Now that we have can ask `write' to write more than a page, |
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1104 it is legit for write do less than the whole amount specified. */ |
172 | 1105 else if (nwrite != ret) |
1106 { | |
1107 sprintf (buf, | |
1108 "unexec write failure: addr 0x%x, fileno %d, size 0x%x, wrote 0x%x, errno %d", | |
1109 ptr, new, nwrite, ret, errno); | |
1110 PERROR (buf); | |
1111 } | |
13152
a7e0445bd152
(write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents:
13107
diff
changeset
|
1112 #endif |
172 | 1113 i += nwrite; |
1114 ptr += nwrite; | |
1115 } | |
1116 } | |
1117 | |
1118 /* **************************************************************** | |
1119 * copy_sym | |
1120 * | |
1121 * Copy the relocation information and symbol table from the a.out to the new | |
1122 */ | |
1123 static int | |
1124 copy_sym (new, a_out, a_name, new_name) | |
1125 int new, a_out; | |
1126 char *a_name, *new_name; | |
1127 { | |
1128 char page[1024]; | |
1129 int n; | |
1130 | |
1131 if (a_out < 0) | |
1132 return 0; | |
1133 | |
1134 #ifdef COFF | |
1135 if (SYMS_START == 0L) | |
1136 return 0; | |
1137 #endif /* COFF */ | |
1138 | |
1139 #ifdef COFF | |
1140 if (lnnoptr) /* if there is line number info */ | |
22647
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
1141 lseek (a_out, coff_offset + lnnoptr, 0); /* start copying from there */ |
172 | 1142 else |
22647
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
1143 lseek (a_out, coff_offset + SYMS_START, 0); /* Position a.out to symtab. */ |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
1144 #else /* not COFF */ |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
1145 lseek (a_out, SYMS_START, 0); /* Position a.out to symtab. */ |
1f418e353dd7
[COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents:
15732
diff
changeset
|
1146 #endif /* not COFF */ |
172 | 1147 |
1148 while ((n = read (a_out, page, sizeof page)) > 0) | |
1149 { | |
1150 if (write (new, page, n) != n) | |
1151 { | |
1152 PERROR (new_name); | |
1153 } | |
1154 } | |
1155 if (n < 0) | |
1156 { | |
1157 PERROR (a_name); | |
1158 } | |
1159 return 0; | |
1160 } | |
1161 | |
1162 /* **************************************************************** | |
1163 * mark_x | |
1164 * | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2917
diff
changeset
|
1165 * After successfully building the new a.out, mark it executable |
172 | 1166 */ |
1167 static void | |
1168 mark_x (name) | |
1169 char *name; | |
1170 { | |
1171 struct stat sbuf; | |
1172 int um; | |
1173 int new = 0; /* for PERROR */ | |
1174 | |
1175 um = umask (777); | |
1176 umask (um); | |
1177 if (stat (name, &sbuf) == -1) | |
1178 { | |
1179 PERROR (name); | |
1180 } | |
1181 sbuf.st_mode |= 0111 & ~um; | |
1182 if (chmod (name, sbuf.st_mode) == -1) | |
1183 PERROR (name); | |
1184 } | |
1185 | |
1186 #ifdef COFF | |
1187 #ifndef COFF_BSD_SYMBOLS | |
1188 | |
1189 /* | |
1190 * If the COFF file contains a symbol table and a line number section, | |
1191 * then any auxiliary entries that have values for x_lnnoptr must | |
1192 * be adjusted by the amount that the line number section has moved | |
1193 * in the file (bias computed in make_hdr). The #@$%&* designers of | |
1194 * the auxiliary entry structures used the absolute file offsets for | |
1195 * the line number entry rather than an offset from the start of the | |
1196 * line number section! | |
1197 * | |
1198 * When I figure out how to scan through the symbol table and pick out | |
1199 * the auxiliary entries that need adjustment, this routine will | |
1200 * be fixed. As it is now, all such entries are wrong and sdb | |
1201 * will complain. Fred Fish, UniSoft Systems Inc. | |
1202 */ | |
1203 | |
1204 /* This function is probably very slow. Instead of reopening the new | |
1205 file for input and output it should copy from the old to the new | |
1206 using the two descriptors already open (WRITEDESC and READDESC). | |
1207 Instead of reading one small structure at a time it should use | |
1208 a reasonable size buffer. But I don't have time to work on such | |
1209 things, so I am installing it as submitted to me. -- RMS. */ | |
1210 | |
1211 adjust_lnnoptrs (writedesc, readdesc, new_name) | |
1212 int writedesc; | |
1213 int readdesc; | |
1214 char *new_name; | |
1215 { | |
1216 register int nsyms; | |
1217 register int new; | |
579 | 1218 #if defined (amdahl_uts) || defined (pfa) |
172 | 1219 SYMENT symentry; |
1220 AUXENT auxentry; | |
1221 #else | |
1222 struct syment symentry; | |
1223 union auxent auxentry; | |
1224 #endif | |
1225 | |
1226 if (!lnnoptr || !f_hdr.f_symptr) | |
1227 return 0; | |
1228 | |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1229 #ifdef MSDOS |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1230 if ((new = writedesc) < 0) |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1231 #else |
7921
b3a5b629fe26
Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents:
7626
diff
changeset
|
1232 if ((new = open (new_name, O_RDWR)) < 0) |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1233 #endif |
172 | 1234 { |
1235 PERROR (new_name); | |
1236 return -1; | |
1237 } | |
1238 | |
1239 lseek (new, f_hdr.f_symptr, 0); | |
1240 for (nsyms = 0; nsyms < f_hdr.f_nsyms; nsyms++) | |
1241 { | |
1242 read (new, &symentry, SYMESZ); | |
1243 if (symentry.n_numaux) | |
1244 { | |
1245 read (new, &auxentry, AUXESZ); | |
1246 nsyms++; | |
1937
087889e85644
(Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
620
diff
changeset
|
1247 if (ISFCN (symentry.n_type) || symentry.n_type == 0x2400) |
087889e85644
(Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
620
diff
changeset
|
1248 { |
087889e85644
(Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
620
diff
changeset
|
1249 auxentry.x_sym.x_fcnary.x_fcn.x_lnnoptr += bias; |
087889e85644
(Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
620
diff
changeset
|
1250 lseek (new, -AUXESZ, 1); |
087889e85644
(Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
620
diff
changeset
|
1251 write (new, &auxentry, AUXESZ); |
087889e85644
(Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
620
diff
changeset
|
1252 } |
172 | 1253 } |
1254 } | |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1255 #ifndef MSDOS |
172 | 1256 close (new); |
5500
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1257 #endif |
6f6637309b38
[MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents:
4973
diff
changeset
|
1258 return 0; |
172 | 1259 } |
1260 | |
1261 #endif /* COFF_BSD_SYMBOLS */ | |
1262 | |
1263 #endif /* COFF */ | |
1264 | |
1265 #endif /* not CANNOT_DUMP */ |