118
|
1 /* Unexec for HP 9000 Series 800 machines.
|
|
2 Bob Desinger <hpsemc!bd@hplabs.hp.com>
|
|
3
|
|
4 Note that the GNU project considers support for HP operation a
|
|
5 peripheral activity which should not be allowed to divert effort
|
|
6 from development of the GNU system. Changes in this code will be
|
|
7 installed when users send them in, but aside from that we don't
|
|
8 plan to think about it, or about whether other Emacs maintenance
|
|
9 might break it.
|
|
10
|
|
11
|
|
12 Unexec creates a copy of the old a.out file, and replaces the old data
|
|
13 area with the current data area. When the new file is executed, the
|
|
14 process will see the same data structures and data values that the
|
|
15 original process had when unexec was called.
|
49600
|
16
|
118
|
17 Unlike other versions of unexec, this one copies symbol table and
|
|
18 debug information to the new a.out file. Thus, the new a.out file
|
|
19 may be debugged with symbolic debuggers.
|
49600
|
20
|
118
|
21 If you fix any bugs in this, I'd like to incorporate your fixes.
|
|
22 Send them to uunet!hpda!hpsemc!jmorris or jmorris%hpsemc@hplabs.HP.COM.
|
49600
|
23
|
118
|
24 CAVEATS:
|
|
25 This routine saves the current value of all static and external
|
|
26 variables. This means that any data structure that needs to be
|
|
27 initialized must be explicitly reset. Variables will not have their
|
|
28 expected default values.
|
49600
|
29
|
118
|
30 Unfortunately, the HP-UX signal handler has internal initialization
|
|
31 flags which are not explicitly reset. Thus, for signals to work in
|
|
32 conjunction with this routine, the following code must executed when
|
|
33 the new process starts up.
|
49600
|
34
|
7619
|
35 void _sigreturn ();
|
118
|
36 ...
|
7619
|
37 sigsetreturn (_sigreturn);
|
118
|
38 */
|
|
39
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
40 #ifdef emacs
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
41 #include <config.h>
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
42 #endif
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
43
|
118
|
44 #include <stdio.h>
|
|
45 #include <fcntl.h>
|
|
46 #include <errno.h>
|
|
47
|
|
48 #include <a.out.h>
|
|
49
|
7625
|
50 #ifdef HPUX_USE_SHLIBS
|
|
51 #include <dl.h>
|
|
52 #endif
|
|
53
|
|
54 /* brk value to restore, stored as a global.
|
|
55 This is really used only if we used shared libraries. */
|
|
56 static long brk_on_dump = 0;
|
49600
|
57
|
7625
|
58 /* Called from main, if we use shared libraries. */
|
|
59 int
|
|
60 run_time_remap (ignored)
|
|
61 char *ignored;
|
|
62 {
|
15527
|
63 brk ((char *) brk_on_dump);
|
7625
|
64 }
|
|
65
|
7740
|
66 #undef roundup
|
7619
|
67 #define roundup(x,n) (((x) + ((n) - 1)) & ~((n) - 1)) /* n is power of 2 */
|
|
68 #define min(x,y) (((x) < (y)) ? (x) : (y))
|
118
|
69
|
|
70
|
|
71 /* Create a new a.out file, same as old but with current data space */
|
|
72
|
7619
|
73 unexec (new_name, old_name, new_end_of_text, dummy1, dummy2)
|
118
|
74 char new_name[]; /* name of the new a.out file to be created */
|
|
75 char old_name[]; /* name of the old a.out file */
|
|
76 char *new_end_of_text; /* ptr to new edata/etext; NOT USED YET */
|
|
77 int dummy1, dummy2; /* not used by emacs */
|
|
78 {
|
|
79 int old, new;
|
|
80 int old_size, new_size;
|
|
81 struct header hdr;
|
|
82 struct som_exec_auxhdr auxhdr;
|
484
|
83 long i;
|
49600
|
84
|
118
|
85 /* For the greatest flexibility, should create a temporary file in
|
|
86 the same directory as the new file. When everything is complete,
|
|
87 rename the temp file to the new name.
|
|
88 This way, a program could update its own a.out file even while
|
|
89 it is still executing. If problems occur, everything is still
|
|
90 intact. NOT implemented. */
|
49600
|
91
|
118
|
92 /* Open the input and output a.out files */
|
7619
|
93 old = open (old_name, O_RDONLY);
|
118
|
94 if (old < 0)
|
7619
|
95 { perror (old_name); exit (1); }
|
|
96 new = open (new_name, O_CREAT|O_RDWR|O_TRUNC, 0777);
|
118
|
97 if (new < 0)
|
7619
|
98 { perror (new_name); exit (1); }
|
49600
|
99
|
118
|
100 /* Read the old headers */
|
7619
|
101 read_header (old, &hdr, &auxhdr);
|
7625
|
102
|
15527
|
103 brk_on_dump = (long) sbrk (0);
|
49600
|
104
|
118
|
105 /* Decide how large the new and old data areas are */
|
|
106 old_size = auxhdr.exec_dsize;
|
484
|
107 /* I suspect these two statements are separate
|
|
108 to avoid a compiler bug in hpux version 8. */
|
15527
|
109 i = (long) sbrk (0);
|
484
|
110 new_size = i - auxhdr.exec_dmem;
|
49600
|
111
|
118
|
112 /* Copy the old file to the new, up to the data space */
|
7619
|
113 lseek (old, 0, 0);
|
|
114 copy_file (old, new, auxhdr.exec_dfile);
|
49600
|
115
|
118
|
116 /* Skip the old data segment and write a new one */
|
7619
|
117 lseek (old, old_size, 1);
|
|
118 save_data_space (new, &hdr, &auxhdr, new_size);
|
49600
|
119
|
118
|
120 /* Copy the rest of the file */
|
7619
|
121 copy_rest (old, new);
|
49600
|
122
|
118
|
123 /* Update file pointers since we probably changed size of data area */
|
7619
|
124 update_file_ptrs (new, &hdr, &auxhdr, auxhdr.exec_dfile, new_size-old_size);
|
49600
|
125
|
118
|
126 /* Save the modified header */
|
7619
|
127 write_header (new, &hdr, &auxhdr);
|
49600
|
128
|
118
|
129 /* Close the binary file */
|
7619
|
130 close (old);
|
|
131 close (new);
|
1742
|
132 return 0;
|
118
|
133 }
|
|
134
|
|
135 /* Save current data space in the file, update header. */
|
|
136
|
7619
|
137 save_data_space (file, hdr, auxhdr, size)
|
118
|
138 int file;
|
|
139 struct header *hdr;
|
|
140 struct som_exec_auxhdr *auxhdr;
|
|
141 int size;
|
|
142 {
|
|
143 /* Write the entire data space out to the file */
|
7619
|
144 if (write (file, auxhdr->exec_dmem, size) != size)
|
|
145 { perror ("Can't save new data space"); exit (1); }
|
49600
|
146
|
118
|
147 /* Update the header to reflect the new data size */
|
|
148 auxhdr->exec_dsize = size;
|
|
149 auxhdr->exec_bsize = 0;
|
|
150 }
|
|
151
|
|
152 /* Update the values of file pointers when something is inserted. */
|
|
153
|
7619
|
154 update_file_ptrs (file, hdr, auxhdr, location, offset)
|
118
|
155 int file;
|
|
156 struct header *hdr;
|
|
157 struct som_exec_auxhdr *auxhdr;
|
|
158 unsigned int location;
|
|
159 int offset;
|
|
160 {
|
|
161 struct subspace_dictionary_record subspace;
|
|
162 int i;
|
49600
|
163
|
118
|
164 /* Increase the overall size of the module */
|
|
165 hdr->som_length += offset;
|
49600
|
166
|
118
|
167 /* Update the various file pointers in the header */
|
|
168 #define update(ptr) if (ptr > location) ptr = ptr + offset
|
7619
|
169 update (hdr->aux_header_location);
|
|
170 update (hdr->space_strings_location);
|
|
171 update (hdr->init_array_location);
|
|
172 update (hdr->compiler_location);
|
|
173 update (hdr->symbol_location);
|
|
174 update (hdr->fixup_request_location);
|
|
175 update (hdr->symbol_strings_location);
|
|
176 update (hdr->unloadable_sp_location);
|
|
177 update (auxhdr->exec_tfile);
|
|
178 update (auxhdr->exec_dfile);
|
49600
|
179
|
118
|
180 /* Do for each subspace dictionary entry */
|
7619
|
181 lseek (file, hdr->subspace_location, 0);
|
118
|
182 for (i = 0; i < hdr->subspace_total; i++)
|
|
183 {
|
7619
|
184 if (read (file, &subspace, sizeof (subspace)) != sizeof (subspace))
|
|
185 { perror ("Can't read subspace record"); exit (1); }
|
49600
|
186
|
118
|
187 /* If subspace has a file location, update it */
|
49600
|
188 if (subspace.initialization_length > 0
|
118
|
189 && subspace.file_loc_init_value > location)
|
|
190 {
|
|
191 subspace.file_loc_init_value += offset;
|
7619
|
192 lseek (file, -sizeof (subspace), 1);
|
|
193 if (write (file, &subspace, sizeof (subspace)) != sizeof (subspace))
|
|
194 { perror ("Can't update subspace record"); exit (1); }
|
118
|
195 }
|
49600
|
196 }
|
|
197
|
118
|
198 /* Do for each initialization pointer record */
|
|
199 /* (I don't think it applies to executable files, only relocatables) */
|
|
200 #undef update
|
|
201 }
|
|
202
|
|
203 /* Read in the header records from an a.out file. */
|
|
204
|
7619
|
205 read_header (file, hdr, auxhdr)
|
118
|
206 int file;
|
|
207 struct header *hdr;
|
|
208 struct som_exec_auxhdr *auxhdr;
|
|
209 {
|
49600
|
210
|
118
|
211 /* Read the header in */
|
7619
|
212 lseek (file, 0, 0);
|
|
213 if (read (file, hdr, sizeof (*hdr)) != sizeof (*hdr))
|
|
214 { perror ("Couldn't read header from a.out file"); exit (1); }
|
49600
|
215
|
118
|
216 if (hdr->a_magic != EXEC_MAGIC && hdr->a_magic != SHARE_MAGIC
|
|
217 && hdr->a_magic != DEMAND_MAGIC)
|
|
218 {
|
49600
|
219 fprintf (stderr, "a.out file doesn't have legal magic number\n");
|
|
220 exit (1);
|
118
|
221 }
|
49600
|
222
|
7619
|
223 lseek (file, hdr->aux_header_location, 0);
|
|
224 if (read (file, auxhdr, sizeof (*auxhdr)) != sizeof (*auxhdr))
|
118
|
225 {
|
7619
|
226 perror ("Couldn't read auxiliary header from a.out file");
|
|
227 exit (1);
|
49600
|
228 }
|
118
|
229 }
|
|
230
|
|
231 /* Write out the header records into an a.out file. */
|
|
232
|
7619
|
233 write_header (file, hdr, auxhdr)
|
118
|
234 int file;
|
|
235 struct header *hdr;
|
|
236 struct som_exec_auxhdr *auxhdr;
|
|
237 {
|
|
238 /* Update the checksum */
|
7619
|
239 hdr->checksum = calculate_checksum (hdr);
|
49600
|
240
|
118
|
241 /* Write the header back into the a.out file */
|
7619
|
242 lseek (file, 0, 0);
|
|
243 if (write (file, hdr, sizeof (*hdr)) != sizeof (*hdr))
|
|
244 { perror ("Couldn't write header to a.out file"); exit (1); }
|
|
245 lseek (file, hdr->aux_header_location, 0);
|
|
246 if (write (file, auxhdr, sizeof (*auxhdr)) != sizeof (*auxhdr))
|
|
247 { perror ("Couldn't write auxiliary header to a.out file"); exit (1); }
|
118
|
248 }
|
|
249
|
|
250 /* Calculate the checksum of a SOM header record. */
|
|
251
|
7619
|
252 calculate_checksum (hdr)
|
118
|
253 struct header *hdr;
|
|
254 {
|
|
255 int checksum, i, *ptr;
|
49600
|
256
|
118
|
257 checksum = 0; ptr = (int *) hdr;
|
49600
|
258
|
7619
|
259 for (i = 0; i < sizeof (*hdr) / sizeof (int) - 1; i++)
|
118
|
260 checksum ^= ptr[i];
|
49600
|
261
|
7619
|
262 return (checksum);
|
118
|
263 }
|
|
264
|
|
265 /* Copy size bytes from the old file to the new one. */
|
|
266
|
7619
|
267 copy_file (old, new, size)
|
118
|
268 int new, old;
|
|
269 int size;
|
|
270 {
|
|
271 int len;
|
7625
|
272 int buffer[8192]; /* word aligned will be faster */
|
49600
|
273
|
118
|
274 for (; size > 0; size -= len)
|
|
275 {
|
7619
|
276 len = min (size, sizeof (buffer));
|
|
277 if (read (old, buffer, len) != len)
|
|
278 { perror ("Read failure on a.out file"); exit (1); }
|
|
279 if (write (new, buffer, len) != len)
|
|
280 { perror ("Write failure in a.out file"); exit (1); }
|
118
|
281 }
|
|
282 }
|
|
283
|
|
284 /* Copy the rest of the file, up to EOF. */
|
|
285
|
7619
|
286 copy_rest (old, new)
|
118
|
287 int new, old;
|
|
288 {
|
|
289 int buffer[4096];
|
|
290 int len;
|
49600
|
291
|
118
|
292 /* Copy bytes until end of file or error */
|
7619
|
293 while ((len = read (old, buffer, sizeof (buffer))) > 0)
|
|
294 if (write (new, buffer, len) != len) break;
|
49600
|
295
|
118
|
296 if (len != 0)
|
7619
|
297 { perror ("Unable to copy the rest of the file"); exit (1); }
|
118
|
298 }
|
|
299
|
|
300 #ifdef DEBUG
|
7619
|
301 display_header (hdr, auxhdr)
|
118
|
302 struct header *hdr;
|
|
303 struct som_exec_auxhdr *auxhdr;
|
|
304 {
|
|
305 /* Display the header information (debug) */
|
7619
|
306 printf ("\n\nFILE HEADER\n");
|
49600
|
307 printf ("magic number %d \n", hdr->a_magic);
|
7619
|
308 printf ("text loc %.8x size %d \n", auxhdr->exec_tmem, auxhdr->exec_tsize);
|
|
309 printf ("data loc %.8x size %d \n", auxhdr->exec_dmem, auxhdr->exec_dsize);
|
|
310 printf ("entry %x \n", auxhdr->exec_entry);
|
|
311 printf ("Bss segment size %u\n", auxhdr->exec_bsize);
|
|
312 printf ("\n");
|
|
313 printf ("data file loc %d size %d\n",
|
|
314 auxhdr->exec_dfile, auxhdr->exec_dsize);
|
|
315 printf ("som_length %d\n", hdr->som_length);
|
|
316 printf ("unloadable sploc %d size %d\n",
|
|
317 hdr->unloadable_sp_location, hdr->unloadable_sp_size);
|
118
|
318 }
|
|
319 #endif /* DEBUG */
|
52401
|
320
|
|
321 /* arch-tag: d55a09ac-9427-4ec4-8496-cb9d7710774f
|
|
322 (do not change this comment) */
|