annotate src/unexec.c @ 464:4ddaee1a9029

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 20 Dec 1991 07:15:37 +0000
parents bd964fa17294
children 8c615e453683
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 /* Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 the Free Software Foundation; either version 1, or (at your option)
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18
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 * unexec.c - Convert a running program into an a.out file.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 * Author: Spencer W. Thomas
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 * Computer Science Dept.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 * University of Utah
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 * Date: Tue Mar 2 1982
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 * Modified heavily since then.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 * Synopsis:
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 * unexec (new_name, a_name, data_start, bss_start, entry_address)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 * char *new_name, *a_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 * unsigned data_start, bss_start, entry_address;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 * 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
35 * file named by the string argument new_name.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 * 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
37 * On some machines, an existing a_name file is required.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 * 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
40 * 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
41 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 * Data_start gives the boundary between the text segment and the data
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 * segment of the program. The text segment can contain shared, read-only
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 * program code and literal data, while the data segment is always unshared
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 * and unprotected. Data_start gives the lowest unprotected address.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 * The value you specify may be rounded down to a suitable boundary
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 * as required by the machine you are using.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 * Specifying zero for data_start means the boundary between text and data
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 * should not be the same as when the program was loaded.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 * 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
52 * segment boundaries are never changed.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 * 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
55 * 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
56 * 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
57 * 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
58 * 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
59 * break (2).
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 * The new file is set up to start at entry_address.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 * If you make improvements I'd like to get them too.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 * harpo!utah-cs!thomas, thomas@Utah-20
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 *
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 /* Modified to support SysVr3 shared libraries by James Van Artsdalen
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 * of Dell Computer Corporation. james@bigtex.cactus.org.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 */
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 /* There are several compilation parameters affecting unexec:
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 * COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 Define this if your system uses COFF for executables.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 Otherwise we assume you use Berkeley format.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 * NO_REMAP
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 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
82 as part of the text segment.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 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
85
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 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
87 the boundary cannot feasibly be moved. Such machines require
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 NO_REMAP.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 Also, remapping can cause trouble with the built-in startup routine
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 /lib/crt0.o, which defines `environ' as an initialized variable.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 Dumping `environ' as pure does not work! So, to use remapping,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 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
94 If NO_REMAP is defined, Emacs uses the system's crt0.o.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 * SECTION_ALIGNMENT
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 Some machines that use COFF executables require that each section
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 start on a certain boundary *in the COFF file*. Such machines should
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 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
101 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
102 segments in the COFF file.
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 If SECTION_ALIGNMENT is not defined, the segments are written
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 consecutively with no attempt at alignment. This is right for
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 unmodified system V.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 * SEGMENT_MASK
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 Some machines require that the beginnings and ends of segments
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 *in core* be on certain boundaries. For most machines, a page
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 boundary is sufficient. That is the default. When a larger
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 boundary is needed, define SEGMENT_MASK to a mask of
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 the bits that must be zero on such a boundary.
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 * A_TEXT_OFFSET(HDR)
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 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
119 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
120 first data in the text segment. Some have additional padding between
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 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
122
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 For these machines, define A_TEXT_OFFSET(HDR) to examine the header
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 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
125 before writing it (above and beyond the number of bytes of actual
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 program text). HDR's standard fields are already correct, except that
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 this adjustment to the `a_text' field has not yet been made;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 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
129
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 * A_TEXT_SEEK(HDR)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 If defined, this macro specifies the number of bytes to seek into the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 a.out file before starting to write the text segment.a
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 * EXEC_MAGIC
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 For machines using COFF, this macro, if defined, is a value stored
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 into the magic number field of the output file.
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 * ADJUST_EXEC_HEADER
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 This macro can be used to generate statements to adjust or
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 initialize nonstandard fields in the file header
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 * ADDR_CORRECT(ADDR)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 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
148 into an int which is the number of a byte.
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 has a default definition which is usually right.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 This default definition is a no-op on most machines (where a
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 pointer looks like an int) but not on all machines.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 #ifndef emacs
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 #define PERROR(arg) perror (arg); return -1
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 #define IN_UNEXEC
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 #include "config.h"
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 #define PERROR(file) report_error (file, new)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 #endif
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 CANNOT_DUMP /* all rest of file! */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 #ifndef CANNOT_UNEXEC /* most of rest of file */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 #include <a.out.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 /* Define getpagesize () if the system does not.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 Note that this may depend on symbols defined in a.out.h
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 #include "getpagesize.h"
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 #ifndef makedev /* Try to detect types.h already loaded */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 #include <sys/types.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 #include <stdio.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 #include <sys/stat.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 #include <errno.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 extern char *start_of_text (); /* Start of text */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 extern char *start_of_data (); /* Start of initialized data */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 static long block_copy_start; /* Old executable start point */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 static struct filehdr f_hdr; /* File header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 static struct aouthdr f_ohdr; /* Optional file header (a.out) */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 long bias; /* Bias to add for growth */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 long lnnoptr; /* Pointer to line-number info within file */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 #define SYMS_START block_copy_start
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 static long text_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 static long data_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 #else /* not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 extern char *sbrk ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199 #define SYMS_START ((long) N_SYMOFF (ohdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 /* Some machines override the structure name for an a.out header. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 #ifndef EXEC_HDR_TYPE
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 #define EXEC_HDR_TYPE struct exec
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 #ifdef HPUX
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 #ifdef HP9000S200_ID
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208 #define MY_ID HP9000S200_ID
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 #include <model.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 #define MY_ID MYSYS
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 #endif /* no HP9000S200_ID */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 static MAGIC OLDMAGIC = {MY_ID, SHARE_MAGIC};
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 static MAGIC NEWMAGIC = {MY_ID, DEMAND_MAGIC};
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 #define N_TXTOFF(x) TEXT_OFFSET(x)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 #define N_SYMOFF(x) LESYM_OFFSET(x)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 static EXEC_HDR_TYPE hdr, ohdr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 #else /* not HPUX */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 #if defined (USG) && !defined (IBMAIX) && !defined (IRIS)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 static struct bhdr hdr, ohdr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 #define a_magic fmagic
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 #define a_text tsize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 #define a_data dsize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 #define a_bss bsize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 #define a_syms ssize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 #define a_trsize rtsize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 #define a_drsize rdsize
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 #define a_entry entry
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 #define N_BADMAG(x) \
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 (((x).fmagic)!=OMAGIC && ((x).fmagic)!=NMAGIC &&\
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 ((x).fmagic)!=FMAGIC && ((x).fmagic)!=IMAGIC)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 #define NEWMAGIC FMAGIC
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 #else /* IRIS or IBMAIX or not USG */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236 static EXEC_HDR_TYPE hdr, ohdr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 #define NEWMAGIC ZMAGIC
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 #endif /* IRIS or IBMAIX not USG */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 #endif /* not HPUX */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 static int unexec_text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 static int unexec_data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 #endif /* not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 static int pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 /* 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
249 into an int which is the number of a byte.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 This is a no-op on ordinary machines, but not on all. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 #ifndef ADDR_CORRECT /* Let m-*.h files override this definition */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 #define ADDR_CORRECT(x) ((char *)(x) - (char*)0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 #ifdef emacs
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 static
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 report_error (file, fd)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 char *file;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 int fd;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 if (fd)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 close (fd);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 error ("Failure operating on %s\n", file);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 #endif /* emacs */
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 ERROR0(msg) report_error_1 (new, msg, 0, 0); return -1
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 #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
271 #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
272
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 static
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 report_error_1 (fd, msg, a1, a2)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 int fd;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 char *msg;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 int a1, a2;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 close (fd);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 #ifdef emacs
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 error (msg, a1, a2);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 fprintf (stderr, msg, a1, a2);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 fprintf (stderr, "\n");
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 static int make_hdr ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 static int copy_text_and_data ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 static int copy_sym ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 static void mark_x ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 * unexec
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 * driving logic.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 unexec (new_name, a_name, data_start, bss_start, entry_address)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 char *new_name, *a_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 unsigned data_start, bss_start, entry_address;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 int new, a_out = -1;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 if (a_name && (a_out = open (a_name, 0)) < 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 if ((new = creat (new_name, 0666)) < 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 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
314 || copy_text_and_data (new, a_out) < 0
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 || copy_sym (new, a_out, a_name, new_name) < 0
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 #ifndef COFF_BSD_SYMBOLS
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 || adjust_lnnoptrs (new, a_out, new_name) < 0
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 )
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 close (new);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 /* unlink (new_name); /* Failed, unlink new a.out */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 return -1;
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 close (new);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 if (a_out >= 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 close (a_out);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 mark_x (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 * make_hdr
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 * 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
339 * Modify the text and data sizes.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 static int
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 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
343 int new, a_out;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344 unsigned data_start, bss_start, entry_address;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 char *a_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 char *new_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348 int tem;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 auto struct scnhdr f_thdr; /* Text section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 auto struct scnhdr f_dhdr; /* Data section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 auto struct scnhdr f_bhdr; /* Bss section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 auto struct scnhdr scntemp; /* Temporary section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 register int scns;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 #endif /* COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356 #ifdef USG_SHARED_LIBRARIES
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 extern unsigned int bss_end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
359 unsigned int bss_end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 pagemask = getpagesize () - 1;
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 /* Adjust text/data boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 #ifdef NO_REMAP
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 data_start = (int) start_of_data ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 #else /* not NO_REMAP */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 if (!data_start)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369 data_start = (int) start_of_data ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370 #endif /* not NO_REMAP */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 data_start = ADDR_CORRECT (data_start);
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 #ifdef SEGMENT_MASK
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374 data_start = data_start & ~SEGMENT_MASK; /* (Down) to segment boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 data_start = data_start & ~pagemask; /* (Down) to page boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
377 #endif
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 bss_end = ADDR_CORRECT (sbrk (0)) + pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380 bss_end &= ~ pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
381
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382 /* Adjust data/bss boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 if (bss_start != 0)
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 bss_start = (ADDR_CORRECT (bss_start) + pagemask);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 /* (Up) to page bdry. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 bss_start &= ~ pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 if (bss_start > bss_end)
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 ERROR1 ("unexec: Specified bss_start (%u) is past end of program",
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 bss_start);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 bss_start = bss_end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 if (data_start > bss_start) /* Can't have negative data size. */
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 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
400 data_start, bss_start);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 /* Salvage as much info from the existing file as possible */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405 if (a_out >= 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 if (read (a_out, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 PERROR (a_name);
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 block_copy_start += sizeof (f_hdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 if (f_hdr.f_opthdr > 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 if (read (a_out, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 PERROR (a_name);
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 block_copy_start += sizeof (f_ohdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 /* Loop through section headers, copying them in */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 for (scns = f_hdr.f_nscns; scns > 0; scns--) {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 if (read (a_out, &scntemp, sizeof (scntemp)) != sizeof (scntemp))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426 if (scntemp.s_scnptr > 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 if (block_copy_start < scntemp.s_scnptr + scntemp.s_size)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 block_copy_start = scntemp.s_scnptr + scntemp.s_size;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 if (strcmp (scntemp.s_name, ".text") == 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 f_thdr = scntemp;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
434 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 else if (strcmp (scntemp.s_name, ".data") == 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 f_dhdr = scntemp;
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 else if (strcmp (scntemp.s_name, ".bss") == 0)
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 f_bhdr = scntemp;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 ERROR0 ("can't build a COFF file from scratch yet");
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 }
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 /* Now we alter the contents of all the f_*hdr variables
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451 to correspond to what we want to dump. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453 #ifdef USG_SHARED_LIBRARIES
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455 /* 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
456 * 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
457 * space.
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 bias = bss_end - (f_ohdr.data_start + f_dhdr.s_size);
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 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 f_hdr.f_flags |= (F_RELFLG | F_EXEC);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 #ifdef TPIX
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 f_hdr.f_nscns = 3;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 #ifdef EXEC_MAGIC
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 f_ohdr.magic = EXEC_MAGIC;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 #ifndef NO_REMAP
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 f_ohdr.text_start = (long) start_of_text ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 f_ohdr.tsize = data_start - f_ohdr.text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 f_ohdr.data_start = data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 #endif /* NO_REMAP */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 f_ohdr.dsize = bss_start - f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 f_ohdr.bsize = bss_end - bss_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 #ifndef KEEP_OLD_TEXT_SCNPTR
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 /* On some machines, the old values are right.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 ??? Maybe on all machines with NO_REMAP. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481 f_thdr.s_size = f_ohdr.tsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 f_thdr.s_scnptr = sizeof (f_hdr) + sizeof (f_ohdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 f_thdr.s_scnptr += (f_hdr.f_nscns) * (sizeof (f_thdr));
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 #endif /* KEEP_OLD_TEXT_SCNPTR */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 #ifdef ADJUST_TEXT_SCNHDR_SIZE
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 /* On some machines, `text size' includes all headers. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 f_thdr.s_size -= f_thdr.s_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 #endif /* ADJUST_TEST_SCNHDR_SIZE */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 lnnoptr = f_thdr.s_lnnoptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 #ifdef SECTION_ALIGNMENT
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 /* Some systems require special alignment
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 of the sections in the file itself. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 f_thdr.s_scnptr
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 = (f_thdr.s_scnptr + SECTION_ALIGNMENT) & ~SECTION_ALIGNMENT;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 #endif /* SECTION_ALIGNMENT */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 #ifdef TPIX
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 f_thdr.s_scnptr = 0xd0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 text_scnptr = f_thdr.s_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 #ifdef ADJUST_TEXTBASE
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 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
502 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 #ifndef KEEP_OLD_PADDR
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 f_dhdr.s_paddr = f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 #endif /* KEEP_OLD_PADDR */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 f_dhdr.s_vaddr = f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 f_dhdr.s_size = f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 f_dhdr.s_scnptr = f_thdr.s_scnptr + f_thdr.s_size;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 #ifdef SECTION_ALIGNMENT
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 /* Some systems require special alignment
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 of the sections in the file itself. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 f_dhdr.s_scnptr
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 = (f_dhdr.s_scnptr + SECTION_ALIGNMENT) & ~SECTION_ALIGNMENT;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 #endif /* SECTION_ALIGNMENT */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 #ifdef DATA_SECTION_ALIGNMENT
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 /* Some systems require special alignment
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 of the data section only. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 f_dhdr.s_scnptr
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 = (f_dhdr.s_scnptr + DATA_SECTION_ALIGNMENT) & ~DATA_SECTION_ALIGNMENT;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 #endif /* DATA_SECTION_ALIGNMENT */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 data_scnptr = f_dhdr.s_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 #ifndef KEEP_OLD_PADDR
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 f_bhdr.s_paddr = f_ohdr.data_start + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 #endif /* KEEP_OLD_PADDR */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 f_bhdr.s_vaddr = f_ohdr.data_start + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 f_bhdr.s_size = f_ohdr.bsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 f_bhdr.s_scnptr = 0L;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 #ifndef USG_SHARED_LIBRARIES
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 bias = f_dhdr.s_scnptr + f_dhdr.s_size - block_copy_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 #endif
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 (f_hdr.f_symptr > 0L)
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_hdr.f_symptr += bias;
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 if (f_thdr.s_lnnoptr > 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 f_thdr.s_lnnoptr += bias;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 }
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 #ifdef ADJUST_EXEC_HEADER
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 ADJUST_EXEC_HEADER;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 #endif /* ADJUST_EXEC_HEADER */
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 if (write (new, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr))
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 PERROR (new_name);
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 if (write (new, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 }
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 #ifndef USG_SHARED_LIBRARIES
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 if (write (new, &f_thdr, sizeof (f_thdr)) != sizeof (f_thdr))
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 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 }
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 if (write (new, &f_dhdr, sizeof (f_dhdr)) != sizeof (f_dhdr))
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 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 if (write (new, &f_bhdr, sizeof (f_bhdr)) != sizeof (f_bhdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 #else /* USG_SHARED_LIBRARIES */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 /* 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
576 * header table.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 * Scan through the original file's sections. If the encountered
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 * section is one we know (.text, .data or .bss), write out the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 * 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
581 * .lib), adjust the address of where the section data is in the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 * file, and write out the header.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 * If any section preceeds .text or .data in the file, this code
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 * will not adjust the file pointer for that section correctly.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 lseek (a_out, sizeof (f_hdr) + sizeof (f_ohdr), 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 for (scns = f_hdr.f_nscns; scns > 0; scns--)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 if (read (a_out, &scntemp, sizeof (scntemp)) != sizeof (scntemp))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 if (!strcmp (scntemp.s_name, f_thdr.s_name)) /* .text */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 if (write (new, &f_thdr, sizeof (f_thdr)) != sizeof (f_thdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 else if (!strcmp (scntemp.s_name, f_dhdr.s_name)) /* .data */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 if (write (new, &f_dhdr, sizeof (f_dhdr)) != sizeof (f_dhdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 else if (!strcmp (scntemp.s_name, f_bhdr.s_name)) /* .bss */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 if (write (new, &f_bhdr, sizeof (f_bhdr)) != sizeof (f_bhdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 if (scntemp.s_scnptr)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613 scntemp.s_scnptr += bias;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 if (write (new, &scntemp, sizeof (scntemp)) != sizeof (scntemp))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 #endif /* USG_SHARED_LIBRARIES */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 return (0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 #else /* if not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 /* 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
625 if (a_out >= 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 if (read (a_out, &ohdr, sizeof hdr) != sizeof hdr)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 if (N_BADMAG (ohdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 ERROR1 ("invalid magic number in %s", a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 hdr = ohdr;
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 else
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 bzero (hdr, sizeof hdr);
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 unexec_text_start = (long) start_of_text ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 unexec_data_start = data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 /* Machine-dependent fixup for header, or maybe for unexec_text_start */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 #ifdef ADJUST_EXEC_HEADER
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648 ADJUST_EXEC_HEADER;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 #endif /* ADJUST_EXEC_HEADER */
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 hdr.a_trsize = 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652 hdr.a_drsize = 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 if (entry_address != 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 hdr.a_entry = entry_address;
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 hdr.a_bss = bss_end - bss_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 hdr.a_data = bss_start - data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 #ifdef NO_REMAP
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 hdr.a_text = ohdr.a_text;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 #else /* not NO_REMAP */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661 hdr.a_text = data_start - unexec_text_start;
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 #ifdef A_TEXT_OFFSET
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 hdr.a_text += A_TEXT_OFFSET (ohdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667 #endif /* not NO_REMAP */
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, &hdr, sizeof hdr) != sizeof hdr)
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 #ifdef A_TEXT_OFFSET
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 hdr.a_text -= A_TEXT_OFFSET (ohdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 #endif /* not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684 * copy_text_and_data
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 * 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
687 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688 static int
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
689 copy_text_and_data (new, a_out)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690 int new, a_out;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
691 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
692 register char *end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693 register char *ptr;
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 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
696
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697 #ifdef USG_SHARED_LIBRARIES
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
699 int scns;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 struct scnhdr scntemp; /* Temporary section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 /* 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
703 * contents.
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 * Step through the section table. If we know the section (.text,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 * .data) do the appropriate thing. Otherwise, if the section has
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 * no allocated space in the file (.bss), do nothing. Otherwise,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 * 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
709 * we know. So just copy it.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
710 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712 lseek (a_out, sizeof (struct filehdr) + sizeof (struct aouthdr), 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714 for (scns = f_hdr.f_nscns; scns > 0; scns--)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
715 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716 if (read (a_out, &scntemp, sizeof (scntemp)) != sizeof (scntemp))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717 PERROR ("temacs");
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
718
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719 if (!strcmp (scntemp.s_name, ".text"))
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 lseek (new, (long) text_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
722 ptr = (char *) f_ohdr.text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
723 end = ptr + f_ohdr.tsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726 else if (!strcmp (scntemp.s_name, ".data"))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728 lseek (new, (long) data_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
729 ptr = (char *) f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
730 end = ptr + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
731 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
732 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
733 else if (!scntemp.s_scnptr)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
734 ; /* do nothing - no data for this section */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
735 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
736 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
737 char page[BUFSIZ];
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
738 int size, n;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
739 long old_a_out_ptr = lseek (a_out, 0, 1);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
740
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
741 lseek (a_out, scntemp.s_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
742 for (size = scntemp.s_size; size > 0; size -= sizeof (page))
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 n = size > sizeof (page) ? sizeof (page) : size;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745 if (read (a_out, page, n) != n || write (new, page, n) != n)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746 PERROR ("xemacs");
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
748 lseek (a_out, old_a_out_ptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 }
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
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752 #else /* COFF, but not USG_SHARED_LIBRARIES */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
753
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754 lseek (new, (long) text_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 ptr = (char *) f_ohdr.text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756 #ifdef HEADER_INCL_IN_TEXT
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 /* For Gould UTX/32, text starts after headers */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 ptr = (char *) (ptr + text_scnptr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 #endif /* HEADER_INCL_IN_TEXT */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 end = ptr + f_ohdr.tsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 lseek (new, (long) data_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 ptr = (char *) f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 end = ptr + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 #endif /* USG_SHARED_LIBRARIES */
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 #else /* if not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
772 /* Some machines count the header as part of the text segment.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773 That is to say, the header appears in core
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
774 just before the address that start_of_text () returns.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 For them, N_TXTOFF is the place where the header goes.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776 We must adjust the seek to the place after the header.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
777 Note that at this point hdr.a_text does *not* count
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
778 the extra A_TEXT_OFFSET bytes, only the actual bytes of code. */
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 #ifdef A_TEXT_SEEK
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781 lseek (new, (long) A_TEXT_SEEK (hdr), 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
782 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
783 lseek (new, (long) N_TXTOFF (hdr), 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
784 #endif /* no A_TEXT_SEEK */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
785
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
786 ptr = (char *) unexec_text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
787 end = ptr + hdr.a_text;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790 ptr = (char *) unexec_data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
791 end = ptr + hdr.a_data;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 /* This lseek is certainly incorrect when A_TEXT_OFFSET
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
793 and I believe it is a no-op otherwise.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
794 Let's see if its absence ever fails. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
795 /* lseek (new, (long) N_TXTOFF (hdr) + hdr.a_text, 0); */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
796 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
797
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
798 #endif /* not COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
799
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
800 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
801 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
802
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
803 write_segment (new, ptr, end)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
804 int new;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
805 register char *ptr, *end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
806 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
807 register int i, nwrite, ret;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
808 char buf[80];
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
809 extern int errno;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
810 char zeros[128];
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
811
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
812 bzero (zeros, sizeof zeros);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
813
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
814 for (i = 0; ptr < end;)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
815 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
816 /* distance to next multiple of 128. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
817 nwrite = (((int) ptr + 128) & -128) - (int) ptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
818 /* But not beyond specified end. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
819 if (nwrite > end - ptr) nwrite = end - ptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
820 ret = write (new, ptr, nwrite);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
821 /* If write gets a page fault, it means we reached
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
822 a gap between the old text segment and the old data segment.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
823 This gap has probably been remapped into part of the text segment.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
824 So write zeros for it. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
825 if (ret == -1 && errno == EFAULT)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
826 write (new, zeros, nwrite);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
827 else if (nwrite != ret)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
828 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
829 sprintf (buf,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
830 "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
831 ptr, new, nwrite, ret, errno);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832 PERROR (buf);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
833 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
834 i += nwrite;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
835 ptr += nwrite;
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 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
840 * copy_sym
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
841 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
842 * 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
843 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844 static int
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
845 copy_sym (new, a_out, a_name, new_name)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846 int new, a_out;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 char *a_name, *new_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
849 char page[1024];
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 int n;
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 if (a_out < 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
853 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
854
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
855 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
856 if (SYMS_START == 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
857 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
858 #endif /* COFF */
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 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
861 if (lnnoptr) /* if there is line number info */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
862 lseek (a_out, lnnoptr, 0); /* start copying from there */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
863 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864 #endif /* COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
865 lseek (a_out, SYMS_START, 0); /* Position a.out to symtab. */
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 while ((n = read (a_out, page, sizeof page)) > 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 if (write (new, page, n) != n)
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 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 }
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 (n < 0)
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 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
878 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879 }
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 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 * mark_x
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 * After succesfully building the new a.out, mark it executable
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 static void
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887 mark_x (name)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 char *name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 struct stat sbuf;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 int um;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 int new = 0; /* for PERROR */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
893
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 um = umask (777);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 umask (um);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 if (stat (name, &sbuf) == -1)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 PERROR (name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 sbuf.st_mode |= 0111 & ~um;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901 if (chmod (name, sbuf.st_mode) == -1)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 PERROR (name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903 }
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 #ifdef COFF
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
906 #ifndef COFF_BSD_SYMBOLS
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
907
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
908 /*
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
909 * 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
910 * then any auxiliary entries that have values for x_lnnoptr must
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
911 * be adjusted by the amount that the line number section has moved
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
912 * in the file (bias computed in make_hdr). The #@$%&* designers of
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
913 * the auxiliary entry structures used the absolute file offsets for
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 * 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
915 * line number section!
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
916 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
917 * 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
918 * the auxiliary entries that need adjustment, this routine will
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
919 * 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
920 * will complain. Fred Fish, UniSoft Systems Inc.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
921 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923 /* This function is probably very slow. Instead of reopening the new
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 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
925 using the two descriptors already open (WRITEDESC and READDESC).
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
926 Instead of reading one small structure at a time it should use
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
927 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
928 things, so I am installing it as submitted to me. -- RMS. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930 adjust_lnnoptrs (writedesc, readdesc, new_name)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
931 int writedesc;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
932 int readdesc;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
933 char *new_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
935 register int nsyms;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
936 register int new;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
937 #ifdef amdahl_uts
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
938 SYMENT symentry;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
939 AUXENT auxentry;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
940 #else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
941 struct syment symentry;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
942 union auxent auxentry;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
943 #endif
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
944
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
945 if (!lnnoptr || !f_hdr.f_symptr)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
946 return 0;
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 if ((new = open (new_name, 2)) < 0)
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 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
951 return -1;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
952 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
953
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
954 lseek (new, f_hdr.f_symptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
955 for (nsyms = 0; nsyms < f_hdr.f_nsyms; nsyms++)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
956 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
957 read (new, &symentry, SYMESZ);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
958 if (symentry.n_numaux)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
959 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960 read (new, &auxentry, AUXESZ);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 nsyms++;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
962 if (ISFCN (symentry.n_type)) {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
963 auxentry.x_sym.x_fcnary.x_fcn.x_lnnoptr += bias;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964 lseek (new, -AUXESZ, 1);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
965 write (new, &auxentry, AUXESZ);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
966 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
968 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
969 close (new);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
970 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
971
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
972 #endif /* COFF_BSD_SYMBOLS */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
973
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
974 #endif /* COFF */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
975
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
976 #endif /* not CANNOT_UNEXEC */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
977
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
978 #endif /* not CANNOT_DUMP */