Mercurial > emacs
annotate src/unexhp9k800.c @ 23460:94f4ba741f22
(exec_sentinel, read_process_output):
Restore waiting_for_user_input_p after running Lisp code.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 14 Oct 1998 14:36:33 +0000 |
parents | 575a17a3c9fb |
children | b7aa6ac26872 |
rev | line source |
---|---|
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. | |
16 | |
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. | |
20 | |
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. | |
23 | |
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. | |
29 | |
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. | |
34 | |
7619 | 35 void _sigreturn (); |
118 | 36 ... |
7619 | 37 sigsetreturn (_sigreturn); |
118 | 38 */ |
39 | |
40 #include <stdio.h> | |
41 #include <fcntl.h> | |
42 #include <errno.h> | |
43 | |
44 #include <a.out.h> | |
45 | |
7625 | 46 #ifdef emacs |
47 #include <config.h> | |
48 #endif | |
49 | |
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; | |
57 | |
58 /* Called from main, if we use shared libraries. */ | |
59 int | |
60 run_time_remap (ignored) | |
61 char *ignored; | |
62 { | |
15527
575a17a3c9fb
(unexec): Cast result of sbrk.
Richard M. Stallman <rms@gnu.org>
parents:
7740
diff
changeset
|
63 brk ((char *) brk_on_dump); |
7625 | 64 } |
65 | |
7740
0ba4d34bcff4
(roundup): Undef before defining.
Richard M. Stallman <rms@gnu.org>
parents:
7625
diff
changeset
|
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; |
118 | 84 |
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. */ | |
91 | |
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); } |
118 | 99 |
100 /* Read the old headers */ | |
7619 | 101 read_header (old, &hdr, &auxhdr); |
7625 | 102 |
15527
575a17a3c9fb
(unexec): Cast result of sbrk.
Richard M. Stallman <rms@gnu.org>
parents:
7740
diff
changeset
|
103 brk_on_dump = (long) sbrk (0); |
118 | 104 |
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
575a17a3c9fb
(unexec): Cast result of sbrk.
Richard M. Stallman <rms@gnu.org>
parents:
7740
diff
changeset
|
109 i = (long) sbrk (0); |
484 | 110 new_size = i - auxhdr.exec_dmem; |
118 | 111 |
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); | |
118 | 115 |
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); | |
118 | 119 |
120 /* Copy the rest of the file */ | |
7619 | 121 copy_rest (old, new); |
118 | 122 |
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); |
118 | 125 |
126 /* Save the modified header */ | |
7619 | 127 write_header (new, &hdr, &auxhdr); |
118 | 128 |
129 /* Close the binary file */ | |
7619 | 130 close (old); |
131 close (new); | |
1742
69e337909652
(unexec): Don't call exit, just return.
Richard M. Stallman <rms@gnu.org>
parents:
484
diff
changeset
|
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); } | |
118 | 146 |
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; | |
163 | |
164 /* Increase the overall size of the module */ | |
165 hdr->som_length += offset; | |
166 | |
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); | |
118 | 179 |
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); } | |
118 | 186 |
187 /* If subspace has a file location, update it */ | |
188 if (subspace.initialization_length > 0 | |
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 } |
196 } | |
197 | |
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 { | |
210 | |
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); } | |
118 | 215 |
216 if (hdr->a_magic != EXEC_MAGIC && hdr->a_magic != SHARE_MAGIC | |
217 && hdr->a_magic != DEMAND_MAGIC) | |
218 { | |
7619 | 219 fprintf (stderr, "a.out file doesn't have legal magic number\n"); |
220 exit (1); | |
118 | 221 } |
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); | |
118 | 228 } |
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); |
118 | 240 |
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; | |
256 | |
257 checksum = 0; ptr = (int *) hdr; | |
258 | |
7619 | 259 for (i = 0; i < sizeof (*hdr) / sizeof (int) - 1; i++) |
118 | 260 checksum ^= ptr[i]; |
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 */ |
118 | 273 |
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; | |
291 | |
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; | |
118 | 295 |
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"); |
307 printf ("magic number %d \n", hdr->a_magic); | |
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 */ |