annotate src/unexec.c @ 32812:c49b460bb280

(xbacktrace): Handle case that $bt->function isn't a symbol.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 24 Oct 2000 10:55:57 +0000
parents a805d5d9bc7e
children b6ca9b64ce9f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7307
cd81dba38a49 Update copyright.
Karl Heuer <kwzh@gnu.org>
parents: 5500
diff changeset
1 /* Copyright (C) 1985,86,87,88,92,93,94 Free Software Foundation, Inc.
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3 This file is part of GNU Emacs.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 GNU Emacs is free software; you can redistribute it and/or modify
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 any later version.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 GNU Emacs is distributed in the hope that it will be useful,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 GNU General Public License for more details.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 You should have received a copy of the GNU General Public License
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 /*
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 * unexec.c - Convert a running program into an a.out file.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 * Author: Spencer W. Thomas
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 * Computer Science Dept.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 * University of Utah
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 * Date: Tue Mar 2 1982
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 * Modified heavily since then.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 * Synopsis:
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 * unexec (new_name, a_name, data_start, bss_start, entry_address)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 * char *new_name, *a_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 * unsigned data_start, bss_start, entry_address;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 * Takes a snapshot of the program and makes an a.out format file in the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 * file named by the string argument new_name.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 * If a_name is non-NULL, the symbol table will be taken from the given file.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 * On some machines, an existing a_name file is required.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 * The boundaries within the a.out file may be adjusted with the data_start
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 * and bss_start arguments. Either or both may be given as 0 for defaults.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 * Data_start gives the boundary between the text segment and the data
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 * segment of the program. The text segment can contain shared, read-only
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 * program code and literal data, while the data segment is always unshared
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 * and unprotected. Data_start gives the lowest unprotected address.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 * The value you specify may be rounded down to a suitable boundary
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 * as required by the machine you are using.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 * Specifying zero for data_start means the boundary between text and data
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 * should not be the same as when the program was loaded.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 * If NO_REMAP is defined, the argument data_start is ignored and the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 * segment boundaries are never changed.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 * Bss_start indicates how much of the data segment is to be saved in the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 * a.out file and restored when the program is executed. It gives the lowest
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 * unsaved address, and is rounded up to a page boundary. The default when 0
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 * is given assumes that the entire data segment is to be stored, including
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 * the previous data and bss as well as any additional storage allocated with
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 * break (2).
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 * The new file is set up to start at entry_address.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 * If you make improvements I'd like to get them too.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 * harpo!utah-cs!thomas, thomas@Utah-20
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 /* Modified to support SysVr3 shared libraries by James Van Artsdalen
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 * of Dell Computer Corporation. james@bigtex.cactus.org.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 /* There are several compilation parameters affecting unexec:
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 * COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 Define this if your system uses COFF for executables.
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
78
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
79 * COFF_ENCAPSULATE
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
80
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
81 Define this if you are using the GNU coff encapsulated a.out format.
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
82 This is closer to a.out than COFF. You should *not* define COFF if
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
83 you define COFF_ENCAPSULATE
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
84
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 Otherwise we assume you use Berkeley format.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 * NO_REMAP
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 Define this if you do not want to try to save Emacs's pure data areas
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 as part of the text segment.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 Saving them as text is good because it allows users to share more.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 However, on machines that locate the text area far from the data area,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 the boundary cannot feasibly be moved. Such machines require
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 NO_REMAP.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 Also, remapping can cause trouble with the built-in startup routine
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 /lib/crt0.o, which defines `environ' as an initialized variable.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 Dumping `environ' as pure does not work! So, to use remapping,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 you must write a startup routine for your machine in Emacs's crt0.c.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 If NO_REMAP is defined, Emacs uses the system's crt0.o.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 * SECTION_ALIGNMENT
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 Some machines that use COFF executables require that each section
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 start on a certain boundary *in the COFF file*. Such machines should
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 define SECTION_ALIGNMENT to a mask of the low-order bits that must be
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 zero on such a boundary. This mask is used to control padding between
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 segments in the COFF file.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 If SECTION_ALIGNMENT is not defined, the segments are written
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 consecutively with no attempt at alignment. This is right for
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 unmodified system V.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 * SEGMENT_MASK
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 Some machines require that the beginnings and ends of segments
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 *in core* be on certain boundaries. For most machines, a page
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 boundary is sufficient. That is the default. When a larger
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 boundary is needed, define SEGMENT_MASK to a mask of
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 the bits that must be zero on such a boundary.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 * A_TEXT_OFFSET(HDR)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 Some machines count the a.out header as part of the size of the text
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 segment (a_text); they may actually load the header into core as the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 first data in the text segment. Some have additional padding between
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 the header and the real text of the program that is counted in a_text.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 For these machines, define A_TEXT_OFFSET(HDR) to examine the header
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 structure HDR and return the number of bytes to add to `a_text'
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 before writing it (above and beyond the number of bytes of actual
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 program text). HDR's standard fields are already correct, except that
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 this adjustment to the `a_text' field has not yet been made;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 thus, the amount of offset can depend on the data in the file.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 * A_TEXT_SEEK(HDR)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 * EXEC_MAGIC
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 For machines using COFF, this macro, if defined, is a value stored
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 into the magic number field of the output file.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 * ADJUST_EXEC_HEADER
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 This macro can be used to generate statements to adjust or
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 initialize nonstandard fields in the file header
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 * ADDR_CORRECT(ADDR)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 Macro to correct an int which is the bit pattern of a pointer to a byte
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 into an int which is the number of a byte.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 This macro has a default definition which is usually right.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 This default definition is a no-op on most machines (where a
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 pointer looks like an int) but not on all machines.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 #ifndef emacs
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 #define PERROR(arg) perror (arg); return -1
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 #define PERROR(file) report_error (file, new)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 #ifndef CANNOT_DUMP /* all rest of file! */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173
29650
2411aacca614 (toplevel) [COFF]: Include coff.h.
Gerd Moellmann <gerd@gnu.org>
parents: 22647
diff changeset
174 #ifdef COFF
2411aacca614 (toplevel) [COFF]: Include coff.h.
Gerd Moellmann <gerd@gnu.org>
parents: 22647
diff changeset
175 #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
176 #ifdef MSDOS
14975
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
177 #if __DJGPP__ > 1
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
178 #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
179 #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
180 static int save_djgpp_startup_flags;
29668
1e6eeead2f1d (toplevel): Fix last change, so as not to deprive MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 29650
diff changeset
181 #endif /* __DJGPP__ > 1 */
5500
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
182 #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
183 #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
184 #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
185 #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
186 #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
187 #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
188 struct aouthdr
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
189 {
7626
7ae305576201 [MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
190 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
191 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
192 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
193 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
194 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
195 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
196 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
197 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
198 };
29668
1e6eeead2f1d (toplevel): Fix last change, so as not to deprive MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 29650
diff changeset
199 #endif /* not MSDOS */
1e6eeead2f1d (toplevel): Fix last change, so as not to deprive MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 29650
diff changeset
200 #else /* not COFF */
1e6eeead2f1d (toplevel): Fix last change, so as not to deprive MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 29650
diff changeset
201 #ifdef COFF_ENCAPSULATE
1e6eeead2f1d (toplevel): Fix last change, so as not to deprive MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 29650
diff changeset
202 int need_coff_header = 1;
1e6eeead2f1d (toplevel): Fix last change, so as not to deprive MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 29650
diff changeset
203 #include <coff-encap/a.out.encap.h> /* The location might be a poor assumption */
1e6eeead2f1d (toplevel): Fix last change, so as not to deprive MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 29650
diff changeset
204 #else /* not COFF_ENCAPSULATE */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 #include <a.out.h>
29668
1e6eeead2f1d (toplevel): Fix last change, so as not to deprive MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 29650
diff changeset
206 #endif /* not COFF_ENCAPSULATE */
29650
2411aacca614 (toplevel) [COFF]: Include coff.h.
Gerd Moellmann <gerd@gnu.org>
parents: 22647
diff changeset
207 #endif /* not COFF */
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
208
9699
0b471201bbd4 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 9351
diff changeset
209 /* Define getpagesize if the system does not.
0b471201bbd4 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 9351
diff changeset
210 Note that this may depend on symbols defined in a.out.h. */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 #include "getpagesize.h"
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 #ifndef makedev /* Try to detect types.h already loaded */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 #include <sys/types.h>
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
215 #endif /* makedev */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 #include <stdio.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 #include <sys/stat.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 #include <errno.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 extern char *start_of_text (); /* Start of text */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 extern char *start_of_data (); /* Start of initialized data */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 static long block_copy_start; /* Old executable start point */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 static struct filehdr f_hdr; /* File header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 static struct aouthdr f_ohdr; /* Optional file header (a.out) */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 long bias; /* Bias to add for growth */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 long lnnoptr; /* Pointer to line-number info within file */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 #define SYMS_START block_copy_start
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 static long text_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 static long data_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 #else /* not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
88a29c720fa7 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 579
diff changeset
261 #ifdef __STDC__
88a29c720fa7 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 579
diff changeset
262 extern void *sbrk ();
88a29c720fa7 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 579
diff changeset
263 #else
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 #define SYMS_START ((long) N_SYMOFF (ohdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 /* Some machines override the structure name for an a.out header. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 #ifndef EXEC_HDR_TYPE
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 #define EXEC_HDR_TYPE struct exec
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 #ifdef HPUX
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 #ifdef HP9000S200_ID
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 #define MY_ID HP9000S200_ID
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 #include <model.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 #define MY_ID MYSYS
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 #endif /* no HP9000S200_ID */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 static MAGIC OLDMAGIC = {MY_ID, SHARE_MAGIC};
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 static MAGIC NEWMAGIC = {MY_ID, DEMAND_MAGIC};
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 #define N_TXTOFF(x) TEXT_OFFSET(x)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 #define N_SYMOFF(x) LESYM_OFFSET(x)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 static EXEC_HDR_TYPE hdr, ohdr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 #else /* not HPUX */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 static struct bhdr hdr, ohdr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 #define a_magic fmagic
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 #define a_text tsize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 #define a_data dsize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 #define a_bss bsize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 #define a_syms ssize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 #define a_trsize rtsize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 #define a_drsize rdsize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 #define a_entry entry
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 #define N_BADMAG(x) \
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 (((x).fmagic)!=OMAGIC && ((x).fmagic)!=NMAGIC &&\
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 ((x).fmagic)!=FMAGIC && ((x).fmagic)!=IMAGIC)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 #define NEWMAGIC FMAGIC
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 #else /* IRIS or IBMAIX or not USG */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 static EXEC_HDR_TYPE hdr, ohdr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 #define NEWMAGIC ZMAGIC
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 #endif /* IRIS or IBMAIX not USG */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 #endif /* not HPUX */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 static int unexec_text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 static int unexec_data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
314 #ifdef COFF_ENCAPSULATE
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
315 /* coffheader is defined in the GNU a.out.encap.h file. */
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
316 struct coffheader coffheader;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
317 #endif
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
318
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 #endif /* not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 static int pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 /* Correct an int which is the bit pattern of a pointer to a byte
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 into an int which is the number of a byte.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 This is a no-op on ordinary machines, but not on all. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 #ifndef ADDR_CORRECT /* Let m-*.h files override this definition */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 #define ADDR_CORRECT(x) ((char *)(x) - (char*)0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 #ifdef emacs
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 static
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 report_error (file, fd)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 char *file;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 int fd;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 if (fd)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344 #endif /* emacs */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 #define ERROR0(msg) report_error_1 (new, msg, 0, 0); return -1
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 #define ERROR1(msg,x) report_error_1 (new, msg, x, 0); return -1
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348 #define ERROR2(msg,x,y) report_error_1 (new, msg, x, y); return -1
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 static
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 report_error_1 (fd, msg, a1, a2)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 int fd;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 char *msg;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 int a1, a2;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356 close (fd);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 #ifdef emacs
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 error (msg, a1, a2);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
359 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 fprintf (stderr, msg, a1, a2);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361 fprintf (stderr, "\n");
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 static int make_hdr ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 static int copy_text_and_data ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 static int copy_sym ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 static void mark_x ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 * unexec
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373 * driving logic.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375 unexec (new_name, a_name, data_start, bss_start, entry_address)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 char *new_name, *a_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
377 unsigned data_start, bss_start, entry_address;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 int new, a_out = -1;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 if ((new = creat (new_name, 0666)) < 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 if (make_hdr (new, a_out, data_start, bss_start, entry_address, a_name, new_name) < 0
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 || copy_text_and_data (new, a_out) < 0
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392 || copy_sym (new, a_out, a_name, new_name) < 0
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 #ifndef COFF_BSD_SYMBOLS
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 || adjust_lnnoptrs (new, a_out, new_name) < 0
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 )
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 close (new);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 /* unlink (new_name); /* Failed, unlink new a.out */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 return -1;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405 close (new);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 if (a_out >= 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 close (a_out);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 mark_x (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 * make_hdr
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 * Make the header in the new a.out from the header in core.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 * Modify the text and data sizes.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 static int
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 make_hdr (new, a_out, data_start, bss_start, entry_address, a_name, new_name)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 int new, a_out;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 unsigned data_start, bss_start, entry_address;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 char *a_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 char *new_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 int tem;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 auto struct scnhdr f_thdr; /* Text section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 auto struct scnhdr f_dhdr; /* Data section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 auto struct scnhdr f_bhdr; /* Bss section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 auto struct scnhdr scntemp; /* Temporary section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 register int scns;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 #endif /* COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 #ifdef USG_SHARED_LIBRARIES
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
434 extern unsigned int bss_end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 unsigned int bss_end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 pagemask = getpagesize () - 1;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 /* Adjust text/data boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442 #ifdef NO_REMAP
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443 data_start = (int) start_of_data ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 #else /* not NO_REMAP */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 if (!data_start)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 data_start = (int) start_of_data ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 #endif /* not NO_REMAP */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 data_start = ADDR_CORRECT (data_start);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450 #ifdef SEGMENT_MASK
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451 data_start = data_start & ~SEGMENT_MASK; /* (Down) to segment boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453 data_start = data_start & ~pagemask; /* (Down) to page boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456 bss_end = ADDR_CORRECT (sbrk (0)) + pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 bss_end &= ~ pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459 /* Adjust data/bss boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 if (bss_start != 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462 bss_start = (ADDR_CORRECT (bss_start) + pagemask);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 /* (Up) to page bdry. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 bss_start &= ~ pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 if (bss_start > bss_end)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 ERROR1 ("unexec: Specified bss_start (%u) is past end of program",
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 bss_start);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 bss_start = bss_end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 if (data_start > bss_start) /* Can't have negative data size. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 ERROR2 ("unexec: data_start (%u) can't be greater than bss_start (%u)",
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 data_start, bss_start);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 /* Salvage as much info from the existing file as possible */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 if (a_out >= 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 if (read (a_out, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 block_copy_start += sizeof (f_hdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 if (f_hdr.f_opthdr > 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 if (read (a_out, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 block_copy_start += sizeof (f_ohdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 for (scns = f_hdr.f_nscns; scns > 0; scns--) {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 if (read (a_out, &scntemp, sizeof (scntemp)) != sizeof (scntemp))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 if (scntemp.s_scnptr > 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 if (block_copy_start < scntemp.s_scnptr + scntemp.s_size)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 block_copy_start = scntemp.s_scnptr + scntemp.s_size;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 if (strcmp (scntemp.s_name, ".text") == 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 f_thdr = scntemp;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 else if (strcmp (scntemp.s_name, ".data") == 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 f_dhdr = scntemp;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 else if (strcmp (scntemp.s_name, ".bss") == 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 f_bhdr = scntemp;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 ERROR0 ("can't build a COFF file from scratch yet");
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 /* Now we alter the contents of all the f_*hdr variables
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 to correspond to what we want to dump. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 #ifdef USG_SHARED_LIBRARIES
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
556 /* The amount of data we're adding to the file is distance from the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557 * end of the original .data space to the current end of the .data
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 * space.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 f_hdr.f_flags |= (F_RELFLG | F_EXEC);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 #ifdef TPIX
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 f_hdr.f_nscns = 3;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 #ifdef EXEC_MAGIC
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 f_ohdr.magic = EXEC_MAGIC;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 #ifndef NO_REMAP
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 f_ohdr.text_start = (long) start_of_text ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574 f_ohdr.tsize = data_start - f_ohdr.text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 f_ohdr.data_start = data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 #endif /* NO_REMAP */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 f_ohdr.dsize = bss_start - f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 f_ohdr.bsize = bss_end - bss_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 #ifndef KEEP_OLD_TEXT_SCNPTR
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 /* On some machines, the old values are right.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 ??? Maybe on all machines with NO_REMAP. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 f_thdr.s_size = f_ohdr.tsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 f_thdr.s_scnptr = sizeof (f_hdr) + sizeof (f_ohdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 f_thdr.s_scnptr += (f_hdr.f_nscns) * (sizeof (f_thdr));
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 #endif /* KEEP_OLD_TEXT_SCNPTR */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 #ifdef ADJUST_TEXT_SCNHDR_SIZE
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 /* On some machines, `text size' includes all headers. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 f_thdr.s_size -= f_thdr.s_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 #endif /* ADJUST_TEST_SCNHDR_SIZE */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 lnnoptr = f_thdr.s_lnnoptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 #ifdef SECTION_ALIGNMENT
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 /* Some systems require special alignment
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 of the sections in the file itself. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 f_thdr.s_scnptr
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 = (f_thdr.s_scnptr + SECTION_ALIGNMENT) & ~SECTION_ALIGNMENT;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 #endif /* SECTION_ALIGNMENT */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 #ifdef TPIX
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 f_thdr.s_scnptr = 0xd0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 text_scnptr = f_thdr.s_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 #ifdef ADJUST_TEXTBASE
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 text_scnptr = sizeof (f_hdr) + sizeof (f_ohdr) + (f_hdr.f_nscns) * (sizeof (f_thdr));
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 #ifndef KEEP_OLD_PADDR
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 f_dhdr.s_paddr = f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 #endif /* KEEP_OLD_PADDR */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 f_dhdr.s_vaddr = f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 f_dhdr.s_size = f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 f_dhdr.s_scnptr = f_thdr.s_scnptr + f_thdr.s_size;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 #ifdef SECTION_ALIGNMENT
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 /* Some systems require special alignment
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 of the sections in the file itself. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613 f_dhdr.s_scnptr
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 = (f_dhdr.s_scnptr + SECTION_ALIGNMENT) & ~SECTION_ALIGNMENT;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 #endif /* SECTION_ALIGNMENT */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 #ifdef DATA_SECTION_ALIGNMENT
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 /* Some systems require special alignment
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 of the data section only. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 f_dhdr.s_scnptr
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 = (f_dhdr.s_scnptr + DATA_SECTION_ALIGNMENT) & ~DATA_SECTION_ALIGNMENT;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 #endif /* DATA_SECTION_ALIGNMENT */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 data_scnptr = f_dhdr.s_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 #ifndef KEEP_OLD_PADDR
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 f_bhdr.s_paddr = f_ohdr.data_start + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 #endif /* KEEP_OLD_PADDR */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 f_bhdr.s_vaddr = f_ohdr.data_start + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 f_bhdr.s_size = f_ohdr.bsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 f_bhdr.s_scnptr = 0L;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 #ifndef USG_SHARED_LIBRARIES
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 bias = f_dhdr.s_scnptr + f_dhdr.s_size - block_copy_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633 if (f_hdr.f_symptr > 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 f_hdr.f_symptr += bias;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638 if (f_thdr.s_lnnoptr > 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 f_thdr.s_lnnoptr += bias;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 #ifdef ADJUST_EXEC_HEADER
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 ADJUST_EXEC_HEADER;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645 #endif /* ADJUST_EXEC_HEADER */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 if (write (new, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652 if (write (new, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 #ifndef USG_SHARED_LIBRARIES
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 if (write (new, &f_thdr, sizeof (f_thdr)) != sizeof (f_thdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 if (write (new, &f_dhdr, sizeof (f_dhdr)) != sizeof (f_dhdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
668
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
669 if (write (new, &f_bhdr, sizeof (f_bhdr)) != sizeof (f_bhdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
670 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
672 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
673
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
674 #else /* USG_SHARED_LIBRARIES */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 /* The purpose of this code is to write out the new file's section
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677 * header table.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679 * Scan through the original file's sections. If the encountered
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 * section is one we know (.text, .data or .bss), write out the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681 * correct header. If it is a section we do not know (such as
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682 * .lib), adjust the address of where the section data is in the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 * file, and write out the header.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 * will not adjust the file pointer for that section correctly.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
687 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
692
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693 for (scns = f_hdr.f_nscns; scns > 0; scns--)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
694 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
695 if (read (a_out, &scntemp, sizeof (scntemp)) != sizeof (scntemp))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
696 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698 if (!strcmp (scntemp.s_name, f_thdr.s_name)) /* .text */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
699 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 if (write (new, &f_thdr, sizeof (f_thdr)) != sizeof (f_thdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703 else if (!strcmp (scntemp.s_name, f_dhdr.s_name)) /* .data */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
705 if (write (new, &f_dhdr, sizeof (f_dhdr)) != sizeof (f_dhdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 else if (!strcmp (scntemp.s_name, f_bhdr.s_name)) /* .bss */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
709 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
710 if (write (new, &f_bhdr, sizeof (f_bhdr)) != sizeof (f_bhdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
715 if (scntemp.s_scnptr)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716 scntemp.s_scnptr += bias;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717 if (write (new, &scntemp, sizeof (scntemp)) != sizeof (scntemp))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
718 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
720 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
721 #endif /* USG_SHARED_LIBRARIES */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
722
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
723 return (0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 #else /* if not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727 /* Get symbol table info from header of a.out file if given one. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728 if (a_out >= 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
729 {
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
730 #ifdef COFF_ENCAPSULATE
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
731 if (read (a_out, &coffheader, sizeof coffheader) != sizeof coffheader)
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
732 {
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
733 PERROR(a_name);
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
734 }
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
735 if (coffheader.f_magic != COFF_MAGIC)
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
736 {
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
737 ERROR1("%s doesn't have legal coff magic number\n", a_name);
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
738 }
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
739 #endif
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
740 if (read (a_out, &ohdr, sizeof hdr) != sizeof hdr)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
741 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
742 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745 if (N_BADMAG (ohdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 ERROR1 ("invalid magic number in %s", a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
748 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 hdr = ohdr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
750 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752 {
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
753 #ifdef COFF_ENCAPSULATE
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
754 /* We probably could without too much trouble. The code is in gld
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
755 * but I don't have that much time or incentive.
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
756 */
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
757 ERROR0 ("can't build a COFF file from scratch yet");
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
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
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 unexec_text_start = (long) start_of_text ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 unexec_data_start = data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770 /* Machine-dependent fixup for header, or maybe for unexec_text_start */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771 #ifdef ADJUST_EXEC_HEADER
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
772 ADJUST_EXEC_HEADER;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773 #endif /* ADJUST_EXEC_HEADER */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
774
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 hdr.a_trsize = 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776 hdr.a_drsize = 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
777 if (entry_address != 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
778 hdr.a_entry = entry_address;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
779
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
780 hdr.a_bss = bss_end - bss_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781 hdr.a_data = bss_start - data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
782 #ifdef NO_REMAP
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
783 hdr.a_text = ohdr.a_text;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
784 #else /* not NO_REMAP */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
785 hdr.a_text = data_start - unexec_text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
786
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
787 #ifdef A_TEXT_OFFSET
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 hdr.a_text += A_TEXT_OFFSET (ohdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
791 #endif /* not NO_REMAP */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
793 #ifdef COFF_ENCAPSULATE
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
794 /* We are encapsulating BSD format within COFF format. */
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
795 {
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
796 struct coffscn *tp, *dp, *bp;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
797 tp = &coffheader.scns[0];
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
798 dp = &coffheader.scns[1];
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
799 bp = &coffheader.scns[2];
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
800 tp->s_size = hdr.a_text + sizeof(struct exec);
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
801 dp->s_paddr = data_start;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
802 dp->s_vaddr = data_start;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
803 dp->s_size = hdr.a_data;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
804 bp->s_paddr = dp->s_vaddr + dp->s_size;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
805 bp->s_vaddr = bp->s_paddr;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
806 bp->s_size = hdr.a_bss;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
807 coffheader.tsize = tp->s_size;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
808 coffheader.dsize = dp->s_size;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
809 coffheader.bsize = bp->s_size;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
810 coffheader.text_start = tp->s_vaddr;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
811 coffheader.data_start = dp->s_vaddr;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
812 }
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
813 if (write (new, &coffheader, sizeof coffheader) != sizeof coffheader)
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
814 {
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
815 PERROR(new_name);
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
816 }
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
817 #endif /* COFF_ENCAPSULATE */
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
818
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
819 if (write (new, &hdr, sizeof hdr) != sizeof hdr)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
820 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
821 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
822 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
829 #ifdef A_TEXT_OFFSET
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
830 hdr.a_text -= A_TEXT_OFFSET (ohdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
831 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
833 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
834
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
835 #endif /* not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
836 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
837
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
838 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
839 * copy_text_and_data
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
840 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
841 * Copy the text and data segments from memory to the new a.out
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
842 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
843 static int
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844 copy_text_and_data (new, a_out)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
845 int new, a_out;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 register char *end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848 register char *ptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
849
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
851
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
852 #ifdef USG_SHARED_LIBRARIES
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
853
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
854 int scns;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
855 struct scnhdr scntemp; /* Temporary section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
856
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
857 /* The purpose of this code is to write out the new file's section
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
858 * contents.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
859 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
860 * Step through the section table. If we know the section (.text,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
861 * .data) do the appropriate thing. Otherwise, if the section has
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
862 * no allocated space in the file (.bss), do nothing. Otherwise,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
863 * the section has space allocated in the file, and is not a section
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864 * we know. So just copy it.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
865 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
866
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
867 lseek (a_out, sizeof (struct filehdr) + sizeof (struct aouthdr), 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
868
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
869 for (scns = f_hdr.f_nscns; scns > 0; scns--)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
870 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
871 if (read (a_out, &scntemp, sizeof (scntemp)) != sizeof (scntemp))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 PERROR ("temacs");
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
873
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
874 if (!strcmp (scntemp.s_name, ".text"))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
875 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
876 lseek (new, (long) text_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877 ptr = (char *) f_ohdr.text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
878 end = ptr + f_ohdr.tsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
880 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
881 else if (!strcmp (scntemp.s_name, ".data"))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883 lseek (new, (long) data_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 ptr = (char *) f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 end = ptr + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 else if (!scntemp.s_scnptr)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 ; /* do nothing - no data for this section */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 char page[BUFSIZ];
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
893 int size, n;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 long old_a_out_ptr = lseek (a_out, 0, 1);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 lseek (a_out, scntemp.s_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 for (size = scntemp.s_size; size > 0; size -= sizeof (page))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 n = size > sizeof (page) ? sizeof (page) : size;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903 lseek (a_out, old_a_out_ptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
904 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
906
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
907 #else /* COFF, but not USG_SHARED_LIBRARIES */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922 lseek (new, (long) text_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923 ptr = (char *) f_ohdr.text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 #ifdef HEADER_INCL_IN_TEXT
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
925 /* For Gould UTX/32, text starts after headers */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
926 ptr = (char *) (ptr + text_scnptr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
927 #endif /* HEADER_INCL_IN_TEXT */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
928 end = ptr + f_ohdr.tsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
931 lseek (new, (long) data_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
932 ptr = (char *) f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
933 end = ptr + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
946 #endif /* USG_SHARED_LIBRARIES */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
947
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
948 #else /* if not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
949
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
950 /* Some machines count the header as part of the text segment.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
951 That is to say, the header appears in core
9699
0b471201bbd4 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 9351
diff changeset
952 just before the address that start_of_text returns.
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
953 For them, N_TXTOFF is the place where the header goes.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
954 We must adjust the seek to the place after the header.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
955 Note that at this point hdr.a_text does *not* count
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
956 the extra A_TEXT_OFFSET bytes, only the actual bytes of code. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
957
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
958 #ifdef A_TEXT_SEEK
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
959 lseek (new, (long) A_TEXT_SEEK (hdr), 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 lseek (new, (long) N_TXTOFF (hdr), 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
962 #endif /* no A_TEXT_SEEK */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
0b471201bbd4 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 9351
diff changeset
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
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13152
diff changeset
972 * addition, the table does not have a label, and the nearest accessible
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13152
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1046 ptr = (char *) unexec_text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1047 end = ptr + hdr.a_text;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1050
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1051 ptr = (char *) unexec_data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1052 end = ptr + hdr.a_data;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1053 /* This lseek is certainly incorrect when A_TEXT_OFFSET
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1054 and I believe it is a no-op otherwise.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1055 Let's see if its absence ever fails. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1056 /* lseek (new, (long) N_TXTOFF (hdr) + hdr.a_text, 0); */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1057 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1058
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1059 #endif /* not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1060
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1061 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1062 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1063
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1064 write_segment (new, ptr, end)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1065 int new;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1066 register char *ptr, *end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1067 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1068 register int i, nwrite, ret;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1069 char buf[80];
31103
a805d5d9bc7e (write_segment) [USE_CRT_DLL]: Remove unnecessary
Andrew Innes <andrewi@gnu.org>
parents: 29668
diff changeset
1070 #ifndef USE_CRT_DLL
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1071 extern int errno;
31103
a805d5d9bc7e (write_segment) [USE_CRT_DLL]: Remove unnecessary
Andrew Innes <andrewi@gnu.org>
parents: 29668
diff changeset
1072 #endif
13152
a7e0445bd152 (write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents: 13107
diff changeset
1073 /* 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
1074 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
1075 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
1076 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
1077 char zeros[1 << 13];
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1078
13152
a7e0445bd152 (write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents: 13107
diff changeset
1079 bzero (zeros, sizeof (zeros));
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1080
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1081 for (i = 0; ptr < end;)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1082 {
13152
a7e0445bd152 (write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents: 13107
diff changeset
1083 /* 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
1084 nwrite = (((int) ptr + writesize) & -writesize) - (int) ptr;
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1085 /* But not beyond specified end. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1086 if (nwrite > end - ptr) nwrite = end - ptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1087 ret = write (new, ptr, nwrite);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088 /* If write gets a page fault, it means we reached
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1089 a gap between the old text segment and the old data segment.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1090 This gap has probably been remapped into part of the text segment.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1091 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
1092 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
1093 #ifdef EFAULT
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
1094 && errno == EFAULT
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
1095 #endif
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
1096 )
13152
a7e0445bd152 (write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents: 13107
diff changeset
1097 {
a7e0445bd152 (write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents: 13107
diff changeset
1098 /* 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
1099 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
1100 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
1101 if (nwrite > pagesize)
a7e0445bd152 (write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents: 13107
diff changeset
1102 nwrite = pagesize;
a7e0445bd152 (write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents: 13107
diff changeset
1103 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
1104 }
a7e0445bd152 (write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents: 13107
diff changeset
1105 #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
1106 it is legit for write do less than the whole amount specified. */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1107 else if (nwrite != ret)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109 sprintf (buf,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1110 "unexec write failure: addr 0x%x, fileno %d, size 0x%x, wrote 0x%x, errno %d",
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1111 ptr, new, nwrite, ret, errno);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1112 PERROR (buf);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1113 }
13152
a7e0445bd152 (write_segment): Write valid data in units of 1<<13,
Richard M. Stallman <rms@gnu.org>
parents: 13107
diff changeset
1114 #endif
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1115 i += nwrite;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1116 ptr += nwrite;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1117 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1118 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1119
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1120 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1121 * copy_sym
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1122 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1123 * Copy the relocation information and symbol table from the a.out to the new
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1124 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1125 static int
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1126 copy_sym (new, a_out, a_name, new_name)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1127 int new, a_out;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1128 char *a_name, *new_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1129 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1130 char page[1024];
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1131 int n;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1132
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1133 if (a_out < 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1134 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1135
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1136 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1137 if (SYMS_START == 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1138 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1139 #endif /* COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1140
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1141 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1142 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
1143 lseek (a_out, coff_offset + lnnoptr, 0); /* start copying from there */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1144 else
22647
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
1145 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
1146 #else /* not COFF */
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
1147 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
1148 #endif /* not COFF */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1149
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1150 while ((n = read (a_out, page, sizeof page)) > 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1151 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1152 if (write (new, page, n) != n)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1153 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1157 if (n < 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1158 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1160 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1161 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1162 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1163
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1164 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1165 * mark_x
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1166 *
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1167 * After successfully building the new a.out, mark it executable
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1168 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1169 static void
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1170 mark_x (name)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1171 char *name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1172 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1173 struct stat sbuf;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1174 int um;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1175 int new = 0; /* for PERROR */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1176
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1177 um = umask (777);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1178 umask (um);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1179 if (stat (name, &sbuf) == -1)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1180 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1181 PERROR (name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1182 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1183 sbuf.st_mode |= 0111 & ~um;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184 if (chmod (name, sbuf.st_mode) == -1)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1185 PERROR (name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1186 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1187
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1188 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1189 #ifndef COFF_BSD_SYMBOLS
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1190
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1191 /*
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1192 * If the COFF file contains a symbol table and a line number section,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1193 * then any auxiliary entries that have values for x_lnnoptr must
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1194 * be adjusted by the amount that the line number section has moved
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1195 * in the file (bias computed in make_hdr). The #@$%&* designers of
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1196 * the auxiliary entry structures used the absolute file offsets for
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1197 * the line number entry rather than an offset from the start of the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1198 * line number section!
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1199 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1200 * When I figure out how to scan through the symbol table and pick out
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1201 * the auxiliary entries that need adjustment, this routine will
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1202 * be fixed. As it is now, all such entries are wrong and sdb
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1203 * will complain. Fred Fish, UniSoft Systems Inc.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1204 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1205
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1206 /* This function is probably very slow. Instead of reopening the new
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1207 file for input and output it should copy from the old to the new
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1208 using the two descriptors already open (WRITEDESC and READDESC).
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1209 Instead of reading one small structure at a time it should use
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1210 a reasonable size buffer. But I don't have time to work on such
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1211 things, so I am installing it as submitted to me. -- RMS. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1212
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1213 adjust_lnnoptrs (writedesc, readdesc, new_name)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1214 int writedesc;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1215 int readdesc;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1216 char *new_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1217 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218 register int nsyms;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 register int new;
579
e2782df984a2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1220 #if defined (amdahl_uts) || defined (pfa)
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1221 SYMENT symentry;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1222 AUXENT auxentry;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1223 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1224 struct syment symentry;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1225 union auxent auxentry;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1226 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1227
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1228 if (!lnnoptr || !f_hdr.f_symptr)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1229 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1230
5500
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
1231 #ifdef MSDOS
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
1232 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
1233 #else
7921
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
1234 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
1235 #endif
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1236 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1237 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1238 return -1;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1239 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1240
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1241 lseek (new, f_hdr.f_symptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1242 for (nsyms = 0; nsyms < f_hdr.f_nsyms; nsyms++)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1243 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1244 read (new, &symentry, SYMESZ);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1245 if (symentry.n_numaux)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1246 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1247 read (new, &auxentry, AUXESZ);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1248 nsyms++;
1937
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
1249 if (ISFCN (symentry.n_type) || symentry.n_type == 0x2400)
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
1250 {
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
1251 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
1252 lseek (new, -AUXESZ, 1);
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
1253 write (new, &auxentry, AUXESZ);
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
1254 }
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1255 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1256 }
5500
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
1257 #ifndef MSDOS
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1258 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
1259 #endif
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
1260 return 0;
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1261 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1262
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1263 #endif /* COFF_BSD_SYMBOLS */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1264
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1265 #endif /* COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1266
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1267 #endif /* not CANNOT_DUMP */