annotate src/unexaix.c @ 18647:72b27986e71d

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