annotate src/unexcoff.c @ 110290:9262b6c460dc

gnus-start.el (gnus-get-unread-articles): Set the number of unread articles of every unchecked group to t, which means unknown since the server has never been opened.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Thu, 09 Sep 2010 06:16:12 +0000
parents adb097c7df58
children 87dd0fd298be 99084f50aa8e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
75227
e90d04cd455a Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents: 68651
diff changeset
1 /* Copyright (C) 1985, 1986, 1987, 1988, 1992, 1993, 1994, 2001, 2002, 2003,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 105669
diff changeset
2 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4 This file is part of GNU Emacs.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91702
diff changeset
6 GNU Emacs is free software: you can redistribute it and/or modify
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91702
diff changeset
8 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91702
diff changeset
9 (at your option) any later version.
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 GNU General Public License for more details.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91702
diff changeset
17 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 /*
109628
8e2c7c31861b Rename src/unexec.c => src/unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109570
diff changeset
21 * unexcoff.c - Convert a running program into an a.out or COFF file.
8e2c7c31861b Rename src/unexec.c => src/unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109570
diff changeset
22 *
8e2c7c31861b Rename src/unexec.c => src/unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109570
diff changeset
23 * ==================================================================
8e2c7c31861b Rename src/unexec.c => src/unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109570
diff changeset
24 * Note: This file is currently used only by the MSDOS (a.k.a. DJGPP)
8e2c7c31861b Rename src/unexec.c => src/unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109570
diff changeset
25 * build of Emacs. If you are not interested in the MSDOS build, you
8e2c7c31861b Rename src/unexec.c => src/unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109570
diff changeset
26 * are looking at the wrong version of unexec!
8e2c7c31861b Rename src/unexec.c => src/unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109570
diff changeset
27 * ==================================================================
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 * Author: Spencer W. Thomas
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 * Computer Science Dept.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 * University of Utah
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 * Date: Tue Mar 2 1982
109628
8e2c7c31861b Rename src/unexec.c => src/unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109570
diff changeset
33 * Originally under the name unexec.c.
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 * Modified heavily since then.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 * Synopsis:
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 * unexec (new_name, a_name, data_start, bss_start, entry_address)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 * char *new_name, *a_name;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 * unsigned data_start, bss_start, entry_address;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 * Takes a snapshot of the program and makes an a.out format file in the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 * file named by the string argument new_name.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 * If a_name is non-NULL, the symbol table will be taken from the given file.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 * On some machines, an existing a_name file is required.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 * The boundaries within the a.out file may be adjusted with the data_start
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 * and bss_start arguments. Either or both may be given as 0 for defaults.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 * Data_start gives the boundary between the text segment and the data
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 * segment of the program. The text segment can contain shared, read-only
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 * program code and literal data, while the data segment is always unshared
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 * and unprotected. Data_start gives the lowest unprotected address.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 * The value you specify may be rounded down to a suitable boundary
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 * as required by the machine you are using.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 * Specifying zero for data_start means the boundary between text and data
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 * should not be the same as when the program was loaded.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 * Bss_start indicates how much of the data segment is to be saved in the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 * a.out file and restored when the program is executed. It gives the lowest
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 * unsaved address, and is rounded up to a page boundary. The default when 0
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 * is given assumes that the entire data segment is to be stored, including
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 * the previous data and bss as well as any additional storage allocated with
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 * break (2).
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 * The new file is set up to start at entry_address.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 * If you make improvements I'd like to get them too.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 * harpo!utah-cs!thomas, thomas@Utah-20
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 /* Modified to support SysVr3 shared libraries by James Van Artsdalen
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 * of Dell Computer Corporation. james@bigtex.cactus.org.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 4319
diff changeset
77 #include <config.h>
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 #define PERROR(file) report_error (file, new)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 #ifndef CANNOT_DUMP /* all rest of file! */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81
96926
baf6162e41d4 Remove code depending on !COFF and USG, the file is
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96732
diff changeset
82 #ifdef HAVE_COFF_H
29650
2411aacca614 (toplevel) [COFF]: Include coff.h.
Gerd Moellmann <gerd@gnu.org>
parents: 22647
diff changeset
83 #include <coff.h>
5500
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
84 #ifdef MSDOS
14975
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
85 #include <fcntl.h> /* for O_RDONLY, O_RDWR */
15732
c24b00e705ba (copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents: 14975
diff changeset
86 #include <crt0.h> /* for _crt0_startup_flags and its bits */
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
87 #include <sys/exceptn.h>
15732
c24b00e705ba (copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents: 14975
diff changeset
88 static int save_djgpp_startup_flags;
5500
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
89 #define filehdr external_filehdr
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
90 #define scnhdr external_scnhdr
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
91 #define syment external_syment
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
92 #define auxent external_auxent
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
93 #define n_numaux e_numaux
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
94 #define n_type e_type
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
95 struct aouthdr
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
96 {
7626
7ae305576201 [MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
97 unsigned short magic; /* type of file */
7ae305576201 [MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
98 unsigned short vstamp; /* version stamp */
7ae305576201 [MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
99 unsigned long tsize; /* text size in bytes, padded to FW bdry*/
7ae305576201 [MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
100 unsigned long dsize; /* initialized data " " */
7ae305576201 [MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
101 unsigned long bsize; /* uninitialized data " " */
7ae305576201 [MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
102 unsigned long entry; /* entry pt. */
7ae305576201 [MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
103 unsigned long text_start;/* base of text used for this file */
7ae305576201 [MSDOS]: Don't include files from the dos extender
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
104 unsigned long data_start;/* base of data used for this file */
5500
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
105 };
29668
1e6eeead2f1d (toplevel): Fix last change, so as not to deprive MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 29650
diff changeset
106 #endif /* not MSDOS */
96926
baf6162e41d4 Remove code depending on !COFF and USG, the file is
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96732
diff changeset
107 #else /* not HAVE_COFF_H */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 #include <a.out.h>
96926
baf6162e41d4 Remove code depending on !COFF and USG, the file is
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96732
diff changeset
109 #endif /* not HAVE_COFF_H */
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
110
9699
0b471201bbd4 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 9351
diff changeset
111 /* Define getpagesize if the system does not.
0b471201bbd4 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 9351
diff changeset
112 Note that this may depend on symbols defined in a.out.h. */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 #include "getpagesize.h"
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 #ifndef makedev /* Try to detect types.h already loaded */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 #include <sys/types.h>
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 172
diff changeset
117 #endif /* makedev */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 #include <stdio.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 #include <sys/stat.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 #include <errno.h>
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121
96926
baf6162e41d4 Remove code depending on !COFF and USG, the file is
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96732
diff changeset
122 #include <sys/file.h>
7921
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
123
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
124 #ifndef O_RDONLY
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
125 #define O_RDONLY 0
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
126 #endif
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
127 #ifndef O_RDWR
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
128 #define O_RDWR 2
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
129 #endif
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
130
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
131
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
132 extern char *start_of_data (void); /* Start of initialized data */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 static long block_copy_start; /* Old executable start point */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 static struct filehdr f_hdr; /* File header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 static struct aouthdr f_ohdr; /* Optional file header (a.out) */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 long bias; /* Bias to add for growth */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 long lnnoptr; /* Pointer to line-number info within file */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 #define SYMS_START block_copy_start
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 static long text_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 static long data_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143
22647
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
144 static long coff_offset;
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
145
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 static int pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 /* Correct an int which is the bit pattern of a pointer to a byte
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 into an int which is the number of a byte.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 This is a no-op on ordinary machines, but not on all. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 #define ADDR_CORRECT(x) ((char *)(x) - (char*)0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105426
diff changeset
154 #include <setjmp.h>
7921
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
155 #include "lisp.h"
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
156
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
157 static void
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
158 report_error (const char *file, int fd)
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 if (fd)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 close (fd);
7921
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
162 report_file_error ("Cannot unexec", Fcons (build_string (file), Qnil));
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 #define ERROR0(msg) report_error_1 (new, msg, 0, 0); return -1
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 #define ERROR1(msg,x) report_error_1 (new, msg, x, 0); return -1
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 #define ERROR2(msg,x,y) report_error_1 (new, msg, x, y); return -1
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
169 static void
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
170 report_error_1 (int fd, const char *msg, int a1, int a2)
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 close (fd);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 error (msg, a1, a2);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
176 static int make_hdr (int, int, unsigned, unsigned, unsigned,
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
177 const char *, const char *);
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
178 static int copy_text_and_data (int, int);
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
179 static int copy_sym (int, int, const char *, const char *);
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
180 static void mark_x (const char *);
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 * make_hdr
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 * Make the header in the new a.out from the header in core.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 * Modify the text and data sizes.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 static int
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
189 make_hdr (int new, int a_out, unsigned data_start, unsigned bss_start,
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
190 unsigned entry_address, const char *a_name, const char *new_name)
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 auto struct scnhdr f_thdr; /* Text section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 auto struct scnhdr f_dhdr; /* Data section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 auto struct scnhdr f_bhdr; /* Bss section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 auto struct scnhdr scntemp; /* Temporary section header */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196 register int scns;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 unsigned int bss_end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199 pagemask = getpagesize () - 1;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 /* Adjust text/data boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 data_start = (int) start_of_data ();
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 data_start = ADDR_CORRECT (data_start);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 data_start = data_start & ~pagemask; /* (Down) to page boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 bss_end = ADDR_CORRECT (sbrk (0)) + pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 bss_end &= ~ pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 /* Adjust data/bss boundary. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 if (bss_start != 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 bss_start = (ADDR_CORRECT (bss_start) + pagemask);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 /* (Up) to page bdry. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 bss_start &= ~ pagemask;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 if (bss_start > bss_end)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 ERROR1 ("unexec: Specified bss_start (%u) is past end of program",
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 bss_start);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 bss_start = bss_end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 if (data_start > bss_start) /* Can't have negative data size. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 ERROR2 ("unexec: data_start (%u) can't be greater than bss_start (%u)",
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 data_start, bss_start);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229
22647
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
230 coff_offset = 0L; /* stays zero, except in DJGPP */
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
231
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 /* Salvage as much info from the existing file as possible */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 if (a_out >= 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 {
22647
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
235 #ifdef MSDOS
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
236 /* Support the coff-go32-exe format with a prepended stub, since
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
237 this is what GCC 2.8.0 and later generates by default in DJGPP. */
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
238 unsigned short mz_header[3];
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
239
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
240 if (read (a_out, &mz_header, sizeof (mz_header)) != sizeof (mz_header))
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
241 {
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
242 PERROR (a_name);
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
243 }
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
244 if (mz_header[0] == 0x5a4d || mz_header[0] == 0x4d5a) /* "MZ" or "ZM" */
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
245 {
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
246 coff_offset = (long)mz_header[2] * 512L;
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
247 if (mz_header[1])
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
248 coff_offset += (long)mz_header[1] - 512L;
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
249 lseek (a_out, coff_offset, 0);
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
250 }
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
251 else
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
252 lseek (a_out, 0L, 0);
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
253 #endif /* MSDOS */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 if (read (a_out, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 block_copy_start += sizeof (f_hdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 if (f_hdr.f_opthdr > 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 if (read (a_out, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 block_copy_start += sizeof (f_ohdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 /* Loop through section headers, copying them in */
22647
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
268 lseek (a_out, coff_offset + sizeof (f_hdr) + f_hdr.f_opthdr, 0);
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 for (scns = f_hdr.f_nscns; scns > 0; scns--) {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 if (read (a_out, &scntemp, sizeof (scntemp)) != sizeof (scntemp))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 if (scntemp.s_scnptr > 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 if (block_copy_start < scntemp.s_scnptr + scntemp.s_size)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 block_copy_start = scntemp.s_scnptr + scntemp.s_size;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 if (strcmp (scntemp.s_name, ".text") == 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 f_thdr = scntemp;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 else if (strcmp (scntemp.s_name, ".data") == 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 f_dhdr = scntemp;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 else if (strcmp (scntemp.s_name, ".bss") == 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 f_bhdr = scntemp;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 else
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 ERROR0 ("can't build a COFF file from scratch yet");
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 /* Now we alter the contents of all the f_*hdr variables
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 to correspond to what we want to dump. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 f_hdr.f_flags |= (F_RELFLG | F_EXEC);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 f_ohdr.dsize = bss_start - f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 f_ohdr.bsize = bss_end - bss_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 f_thdr.s_size = f_ohdr.tsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 f_thdr.s_scnptr = sizeof (f_hdr) + sizeof (f_ohdr);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 f_thdr.s_scnptr += (f_hdr.f_nscns) * (sizeof (f_thdr));
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 lnnoptr = f_thdr.s_lnnoptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 text_scnptr = f_thdr.s_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 f_dhdr.s_paddr = f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 f_dhdr.s_vaddr = f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 f_dhdr.s_size = f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 f_dhdr.s_scnptr = f_thdr.s_scnptr + f_thdr.s_size;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 data_scnptr = f_dhdr.s_scnptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 f_bhdr.s_paddr = f_ohdr.data_start + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 f_bhdr.s_vaddr = f_ohdr.data_start + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 f_bhdr.s_size = f_ohdr.bsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 f_bhdr.s_scnptr = 0L;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 bias = f_dhdr.s_scnptr + f_dhdr.s_size - block_copy_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 if (f_hdr.f_symptr > 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 f_hdr.f_symptr += bias;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 if (f_thdr.s_lnnoptr > 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 f_thdr.s_lnnoptr += bias;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 if (write (new, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 if (write (new, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 if (write (new, &f_thdr, sizeof (f_thdr)) != sizeof (f_thdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 if (write (new, &f_dhdr, sizeof (f_dhdr)) != sizeof (f_dhdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 if (write (new, &f_bhdr, sizeof (f_bhdr)) != sizeof (f_bhdr))
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 return (0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
359 void
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
360 write_segment (int new, const char *ptr, const char *end)
60728
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
361 {
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
362 register int i, nwrite, ret;
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
363 /* This is the normal amount to write at once.
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
364 It is the size of block that NFS uses. */
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
365 int writesize = 1 << 13;
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
366 int pagesize = getpagesize ();
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
367 char zeros[1 << 13];
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
368
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 107737
diff changeset
369 memset (zeros, 0, sizeof (zeros));
60728
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
370
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
371 for (i = 0; ptr < end;)
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
372 {
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
373 /* Distance to next multiple of writesize. */
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
374 nwrite = (((int) ptr + writesize) & -writesize) - (int) ptr;
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
375 /* But not beyond specified end. */
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
376 if (nwrite > end - ptr) nwrite = end - ptr;
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
377 ret = write (new, ptr, nwrite);
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
378 /* If write gets a page fault, it means we reached
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
379 a gap between the old text segment and the old data segment.
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
380 This gap has probably been remapped into part of the text segment.
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
381 So write zeros for it. */
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
382 if (ret == -1
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
383 #ifdef EFAULT
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
384 && errno == EFAULT
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
385 #endif
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
386 )
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
387 {
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
388 /* Write only a page of zeros at once,
105426
d0a6d64c3cfc Fix typos in comments.
Juanma Barranquero <lekktu@gmail.com>
parents: 100951
diff changeset
389 so that we don't overshoot the start
60728
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
390 of the valid memory in the old data segment. */
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
391 if (nwrite > pagesize)
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
392 nwrite = pagesize;
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
393 write (new, zeros, nwrite);
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
394 }
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
395 i += nwrite;
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
396 ptr += nwrite;
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
397 }
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
398 }
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 * copy_text_and_data
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 * Copy the text and data segments from memory to the new a.out
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 static int
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
405 copy_text_and_data (int new, int a_out)
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 register char *end;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 register char *ptr;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409
14975
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
410 #ifdef MSDOS
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
411 /* Dump the original table of exception handlers, not the one
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
412 where our exception hooks are registered. */
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
413 __djgpp_exception_toggle ();
15732
c24b00e705ba (copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents: 14975
diff changeset
414
c24b00e705ba (copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents: 14975
diff changeset
415 /* Switch off startup flags that might have been set at runtime
c24b00e705ba (copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents: 14975
diff changeset
416 and which might change the way that dumped Emacs works. */
c24b00e705ba (copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents: 14975
diff changeset
417 save_djgpp_startup_flags = _crt0_startup_flags;
c24b00e705ba (copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents: 14975
diff changeset
418 _crt0_startup_flags &= ~(_CRT0_FLAG_NO_LFN | _CRT0_FLAG_NEARPTR);
14975
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
419 #endif
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
420
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 lseek (new, (long) text_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 ptr = (char *) f_ohdr.text_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 end = ptr + f_ohdr.tsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426 lseek (new, (long) data_scnptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 ptr = (char *) f_ohdr.data_start;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 end = ptr + f_ohdr.dsize;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 write_segment (new, ptr, end);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430
14975
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
431 #ifdef MSDOS
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
432 /* Restore our exception hooks. */
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
433 __djgpp_exception_toggle ();
15732
c24b00e705ba (copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents: 14975
diff changeset
434
c24b00e705ba (copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents: 14975
diff changeset
435 /* Restore the startup flags. */
c24b00e705ba (copy_text_and_data) [DJGPP >= 2]: Switch off two bits
Karl Heuer <kwzh@gnu.org>
parents: 14975
diff changeset
436 _crt0_startup_flags = save_djgpp_startup_flags;
14975
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
437 #endif
7b91ceb19771 [DJGPP v2]: Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
438
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 * copy_sym
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 * Copy the relocation information and symbol table from the a.out to the new
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 static int
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
449 copy_sym (int new, int a_out, const char *a_name, const char *new_name)
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451 char page[1024];
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 int n;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454 if (a_out < 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 if (SYMS_START == 0L)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 if (lnnoptr) /* if there is line number info */
22647
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
461 lseek (a_out, coff_offset + lnnoptr, 0); /* start copying from there */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462 else
22647
1f418e353dd7 [COFF]: New variable coff_offset.
Richard M. Stallman <rms@gnu.org>
parents: 15732
diff changeset
463 lseek (a_out, coff_offset + SYMS_START, 0); /* Position a.out to symtab. */
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 while ((n = read (a_out, page, sizeof page)) > 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 if (write (new, page, n) != n)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 if (n < 0)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 PERROR (a_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 /* ****************************************************************
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 * mark_x
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481 *
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
482 * After successfully building the new a.out, mark it executable
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 static void
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
485 mark_x (const char *name)
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 struct stat sbuf;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 int um;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 int new = 0; /* for PERROR */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 um = umask (777);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 umask (um);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 if (stat (name, &sbuf) == -1)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 PERROR (name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 sbuf.st_mode |= 0111 & ~um;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 if (chmod (name, sbuf.st_mode) == -1)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 PERROR (name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 /*
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 * If the COFF file contains a symbol table and a line number section,
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 * then any auxiliary entries that have values for x_lnnoptr must
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 * be adjusted by the amount that the line number section has moved
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 * in the file (bias computed in make_hdr). The #@$%&* designers of
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 * the auxiliary entry structures used the absolute file offsets for
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 * the line number entry rather than an offset from the start of the
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 * line number section!
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 *
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 * When I figure out how to scan through the symbol table and pick out
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 * the auxiliary entries that need adjustment, this routine will
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 * be fixed. As it is now, all such entries are wrong and sdb
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 * will complain. Fred Fish, UniSoft Systems Inc.
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 /* This function is probably very slow. Instead of reopening the new
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 file for input and output it should copy from the old to the new
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 using the two descriptors already open (WRITEDESC and READDESC).
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 Instead of reading one small structure at a time it should use
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 a reasonable size buffer. But I don't have time to work on such
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 things, so I am installing it as submitted to me. -- RMS. */
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
525 int
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
526 adjust_lnnoptrs (int writedesc, int readdesc, const char *new_name)
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 register int nsyms;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 register int new;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 struct syment symentry;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 union auxent auxentry;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 if (!lnnoptr || !f_hdr.f_symptr)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 return 0;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535
5500
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
536 #ifdef MSDOS
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
537 if ((new = writedesc) < 0)
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
538 #else
7921
b3a5b629fe26 Include <sys/file.h> and [USG5] <fcntl.h> to define O_* macros.
Roland McGrath <roland@gnu.org>
parents: 7626
diff changeset
539 if ((new = open (new_name, O_RDWR)) < 0)
5500
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
540 #endif
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 PERROR (new_name);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 return -1;
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 lseek (new, f_hdr.f_symptr, 0);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 for (nsyms = 0; nsyms < f_hdr.f_nsyms; nsyms++)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 read (new, &symentry, SYMESZ);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 if (symentry.n_numaux)
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 {
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 read (new, &auxentry, AUXESZ);
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 nsyms++;
1937
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
554 if (ISFCN (symentry.n_type) || symentry.n_type == 0x2400)
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
555 {
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
556 auxentry.x_sym.x_fcnary.x_fcn.x_lnnoptr += bias;
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
557 lseek (new, -AUXESZ, 1);
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
558 write (new, &auxentry, AUXESZ);
087889e85644 (Fforward_comment): New function.
Richard M. Stallman <rms@gnu.org>
parents: 620
diff changeset
559 }
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 }
5500
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
562 #ifndef MSDOS
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 close (new);
5500
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
564 #endif
6f6637309b38 [MSDOS]: Don't #include <a.out.h>, but use other headers.
Richard M. Stallman <rms@gnu.org>
parents: 4973
diff changeset
565 return 0;
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 }
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567
60728
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
568 /* ****************************************************************
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
569 * unexec
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
570 *
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
571 * driving logic.
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
572 */
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
573 int
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
574 unexec (const char *new_name, const char *a_name,
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
575 unsigned data_start, unsigned bss_start, unsigned entry_address)
60728
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
576 {
109910
adb097c7df58 Clean up unexcoff.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109762
diff changeset
577 int new = -1, a_out = -1;
60728
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
578
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
579 if (a_name && (a_out = open (a_name, O_RDONLY)) < 0)
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
580 {
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
581 PERROR (a_name);
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
582 }
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
583 if ((new = creat (new_name, 0666)) < 0)
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
584 {
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
585 PERROR (new_name);
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
586 }
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
587
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
588 if (make_hdr (new, a_out, data_start, bss_start, entry_address, a_name, new_name) < 0
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
589 || copy_text_and_data (new, a_out) < 0
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
590 || copy_sym (new, a_out, a_name, new_name) < 0
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
591 || adjust_lnnoptrs (new, a_out, new_name) < 0
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
592 )
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
593 {
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
594 close (new);
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
595 return -1;
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
596 }
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
597
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
598 close (new);
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
599 if (a_out >= 0)
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
600 close (a_out);
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
601 mark_x (new_name);
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
602 return 0;
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
603 }
1e22d789c8c7 (write_segment, unexec): Move these functions to avoid forward
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
604
172
bd964fa17294 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 #endif /* not CANNOT_DUMP */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51093
diff changeset
606
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51093
diff changeset
607 /* arch-tag: 62409b69-e27a-4a7c-9413-0210d6b54e7f
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51093
diff changeset
608 (do not change this comment) */