Mercurial > emacs
comparison src/unexhp9k800.c @ 49600:23a1cea22d13
Trailing whitespace deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 Feb 2003 14:56:31 +0000 |
parents | b7aa6ac26872 |
children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
49599:5ade352e8d1c | 49600:23a1cea22d13 |
---|---|
11 | 11 |
12 Unexec creates a copy of the old a.out file, and replaces the old data | 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 | 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 | 14 process will see the same data structures and data values that the |
15 original process had when unexec was called. | 15 original process had when unexec was called. |
16 | 16 |
17 Unlike other versions of unexec, this one copies symbol table and | 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 | 18 debug information to the new a.out file. Thus, the new a.out file |
19 may be debugged with symbolic debuggers. | 19 may be debugged with symbolic debuggers. |
20 | 20 |
21 If you fix any bugs in this, I'd like to incorporate your fixes. | 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. | 22 Send them to uunet!hpda!hpsemc!jmorris or jmorris%hpsemc@hplabs.HP.COM. |
23 | 23 |
24 CAVEATS: | 24 CAVEATS: |
25 This routine saves the current value of all static and external | 25 This routine saves the current value of all static and external |
26 variables. This means that any data structure that needs to be | 26 variables. This means that any data structure that needs to be |
27 initialized must be explicitly reset. Variables will not have their | 27 initialized must be explicitly reset. Variables will not have their |
28 expected default values. | 28 expected default values. |
29 | 29 |
30 Unfortunately, the HP-UX signal handler has internal initialization | 30 Unfortunately, the HP-UX signal handler has internal initialization |
31 flags which are not explicitly reset. Thus, for signals to work in | 31 flags which are not explicitly reset. Thus, for signals to work in |
32 conjunction with this routine, the following code must executed when | 32 conjunction with this routine, the following code must executed when |
33 the new process starts up. | 33 the new process starts up. |
34 | 34 |
35 void _sigreturn (); | 35 void _sigreturn (); |
36 ... | 36 ... |
37 sigsetreturn (_sigreturn); | 37 sigsetreturn (_sigreturn); |
38 */ | 38 */ |
39 | 39 |
52 #endif | 52 #endif |
53 | 53 |
54 /* brk value to restore, stored as a global. | 54 /* brk value to restore, stored as a global. |
55 This is really used only if we used shared libraries. */ | 55 This is really used only if we used shared libraries. */ |
56 static long brk_on_dump = 0; | 56 static long brk_on_dump = 0; |
57 | 57 |
58 /* Called from main, if we use shared libraries. */ | 58 /* Called from main, if we use shared libraries. */ |
59 int | 59 int |
60 run_time_remap (ignored) | 60 run_time_remap (ignored) |
61 char *ignored; | 61 char *ignored; |
62 { | 62 { |
79 int old, new; | 79 int old, new; |
80 int old_size, new_size; | 80 int old_size, new_size; |
81 struct header hdr; | 81 struct header hdr; |
82 struct som_exec_auxhdr auxhdr; | 82 struct som_exec_auxhdr auxhdr; |
83 long i; | 83 long i; |
84 | 84 |
85 /* For the greatest flexibility, should create a temporary file in | 85 /* For the greatest flexibility, should create a temporary file in |
86 the same directory as the new file. When everything is complete, | 86 the same directory as the new file. When everything is complete, |
87 rename the temp file to the new name. | 87 rename the temp file to the new name. |
88 This way, a program could update its own a.out file even while | 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 | 89 it is still executing. If problems occur, everything is still |
90 intact. NOT implemented. */ | 90 intact. NOT implemented. */ |
91 | 91 |
92 /* Open the input and output a.out files */ | 92 /* Open the input and output a.out files */ |
93 old = open (old_name, O_RDONLY); | 93 old = open (old_name, O_RDONLY); |
94 if (old < 0) | 94 if (old < 0) |
95 { perror (old_name); exit (1); } | 95 { perror (old_name); exit (1); } |
96 new = open (new_name, O_CREAT|O_RDWR|O_TRUNC, 0777); | 96 new = open (new_name, O_CREAT|O_RDWR|O_TRUNC, 0777); |
97 if (new < 0) | 97 if (new < 0) |
98 { perror (new_name); exit (1); } | 98 { perror (new_name); exit (1); } |
99 | 99 |
100 /* Read the old headers */ | 100 /* Read the old headers */ |
101 read_header (old, &hdr, &auxhdr); | 101 read_header (old, &hdr, &auxhdr); |
102 | 102 |
103 brk_on_dump = (long) sbrk (0); | 103 brk_on_dump = (long) sbrk (0); |
104 | 104 |
105 /* Decide how large the new and old data areas are */ | 105 /* Decide how large the new and old data areas are */ |
106 old_size = auxhdr.exec_dsize; | 106 old_size = auxhdr.exec_dsize; |
107 /* I suspect these two statements are separate | 107 /* I suspect these two statements are separate |
108 to avoid a compiler bug in hpux version 8. */ | 108 to avoid a compiler bug in hpux version 8. */ |
109 i = (long) sbrk (0); | 109 i = (long) sbrk (0); |
110 new_size = i - auxhdr.exec_dmem; | 110 new_size = i - auxhdr.exec_dmem; |
111 | 111 |
112 /* Copy the old file to the new, up to the data space */ | 112 /* Copy the old file to the new, up to the data space */ |
113 lseek (old, 0, 0); | 113 lseek (old, 0, 0); |
114 copy_file (old, new, auxhdr.exec_dfile); | 114 copy_file (old, new, auxhdr.exec_dfile); |
115 | 115 |
116 /* Skip the old data segment and write a new one */ | 116 /* Skip the old data segment and write a new one */ |
117 lseek (old, old_size, 1); | 117 lseek (old, old_size, 1); |
118 save_data_space (new, &hdr, &auxhdr, new_size); | 118 save_data_space (new, &hdr, &auxhdr, new_size); |
119 | 119 |
120 /* Copy the rest of the file */ | 120 /* Copy the rest of the file */ |
121 copy_rest (old, new); | 121 copy_rest (old, new); |
122 | 122 |
123 /* Update file pointers since we probably changed size of data area */ | 123 /* Update file pointers since we probably changed size of data area */ |
124 update_file_ptrs (new, &hdr, &auxhdr, auxhdr.exec_dfile, new_size-old_size); | 124 update_file_ptrs (new, &hdr, &auxhdr, auxhdr.exec_dfile, new_size-old_size); |
125 | 125 |
126 /* Save the modified header */ | 126 /* Save the modified header */ |
127 write_header (new, &hdr, &auxhdr); | 127 write_header (new, &hdr, &auxhdr); |
128 | 128 |
129 /* Close the binary file */ | 129 /* Close the binary file */ |
130 close (old); | 130 close (old); |
131 close (new); | 131 close (new); |
132 return 0; | 132 return 0; |
133 } | 133 } |
141 int size; | 141 int size; |
142 { | 142 { |
143 /* Write the entire data space out to the file */ | 143 /* Write the entire data space out to the file */ |
144 if (write (file, auxhdr->exec_dmem, size) != size) | 144 if (write (file, auxhdr->exec_dmem, size) != size) |
145 { perror ("Can't save new data space"); exit (1); } | 145 { perror ("Can't save new data space"); exit (1); } |
146 | 146 |
147 /* Update the header to reflect the new data size */ | 147 /* Update the header to reflect the new data size */ |
148 auxhdr->exec_dsize = size; | 148 auxhdr->exec_dsize = size; |
149 auxhdr->exec_bsize = 0; | 149 auxhdr->exec_bsize = 0; |
150 } | 150 } |
151 | 151 |
158 unsigned int location; | 158 unsigned int location; |
159 int offset; | 159 int offset; |
160 { | 160 { |
161 struct subspace_dictionary_record subspace; | 161 struct subspace_dictionary_record subspace; |
162 int i; | 162 int i; |
163 | 163 |
164 /* Increase the overall size of the module */ | 164 /* Increase the overall size of the module */ |
165 hdr->som_length += offset; | 165 hdr->som_length += offset; |
166 | 166 |
167 /* Update the various file pointers in the header */ | 167 /* Update the various file pointers in the header */ |
168 #define update(ptr) if (ptr > location) ptr = ptr + offset | 168 #define update(ptr) if (ptr > location) ptr = ptr + offset |
169 update (hdr->aux_header_location); | 169 update (hdr->aux_header_location); |
170 update (hdr->space_strings_location); | 170 update (hdr->space_strings_location); |
171 update (hdr->init_array_location); | 171 update (hdr->init_array_location); |
174 update (hdr->fixup_request_location); | 174 update (hdr->fixup_request_location); |
175 update (hdr->symbol_strings_location); | 175 update (hdr->symbol_strings_location); |
176 update (hdr->unloadable_sp_location); | 176 update (hdr->unloadable_sp_location); |
177 update (auxhdr->exec_tfile); | 177 update (auxhdr->exec_tfile); |
178 update (auxhdr->exec_dfile); | 178 update (auxhdr->exec_dfile); |
179 | 179 |
180 /* Do for each subspace dictionary entry */ | 180 /* Do for each subspace dictionary entry */ |
181 lseek (file, hdr->subspace_location, 0); | 181 lseek (file, hdr->subspace_location, 0); |
182 for (i = 0; i < hdr->subspace_total; i++) | 182 for (i = 0; i < hdr->subspace_total; i++) |
183 { | 183 { |
184 if (read (file, &subspace, sizeof (subspace)) != sizeof (subspace)) | 184 if (read (file, &subspace, sizeof (subspace)) != sizeof (subspace)) |
185 { perror ("Can't read subspace record"); exit (1); } | 185 { perror ("Can't read subspace record"); exit (1); } |
186 | 186 |
187 /* If subspace has a file location, update it */ | 187 /* If subspace has a file location, update it */ |
188 if (subspace.initialization_length > 0 | 188 if (subspace.initialization_length > 0 |
189 && subspace.file_loc_init_value > location) | 189 && subspace.file_loc_init_value > location) |
190 { | 190 { |
191 subspace.file_loc_init_value += offset; | 191 subspace.file_loc_init_value += offset; |
192 lseek (file, -sizeof (subspace), 1); | 192 lseek (file, -sizeof (subspace), 1); |
193 if (write (file, &subspace, sizeof (subspace)) != sizeof (subspace)) | 193 if (write (file, &subspace, sizeof (subspace)) != sizeof (subspace)) |
194 { perror ("Can't update subspace record"); exit (1); } | 194 { perror ("Can't update subspace record"); exit (1); } |
195 } | 195 } |
196 } | 196 } |
197 | 197 |
198 /* Do for each initialization pointer record */ | 198 /* Do for each initialization pointer record */ |
199 /* (I don't think it applies to executable files, only relocatables) */ | 199 /* (I don't think it applies to executable files, only relocatables) */ |
200 #undef update | 200 #undef update |
201 } | 201 } |
202 | 202 |
205 read_header (file, hdr, auxhdr) | 205 read_header (file, hdr, auxhdr) |
206 int file; | 206 int file; |
207 struct header *hdr; | 207 struct header *hdr; |
208 struct som_exec_auxhdr *auxhdr; | 208 struct som_exec_auxhdr *auxhdr; |
209 { | 209 { |
210 | 210 |
211 /* Read the header in */ | 211 /* Read the header in */ |
212 lseek (file, 0, 0); | 212 lseek (file, 0, 0); |
213 if (read (file, hdr, sizeof (*hdr)) != sizeof (*hdr)) | 213 if (read (file, hdr, sizeof (*hdr)) != sizeof (*hdr)) |
214 { perror ("Couldn't read header from a.out file"); exit (1); } | 214 { perror ("Couldn't read header from a.out file"); exit (1); } |
215 | 215 |
216 if (hdr->a_magic != EXEC_MAGIC && hdr->a_magic != SHARE_MAGIC | 216 if (hdr->a_magic != EXEC_MAGIC && hdr->a_magic != SHARE_MAGIC |
217 && hdr->a_magic != DEMAND_MAGIC) | 217 && hdr->a_magic != DEMAND_MAGIC) |
218 { | 218 { |
219 fprintf (stderr, "a.out file doesn't have legal magic number\n"); | 219 fprintf (stderr, "a.out file doesn't have legal magic number\n"); |
220 exit (1); | 220 exit (1); |
221 } | 221 } |
222 | 222 |
223 lseek (file, hdr->aux_header_location, 0); | 223 lseek (file, hdr->aux_header_location, 0); |
224 if (read (file, auxhdr, sizeof (*auxhdr)) != sizeof (*auxhdr)) | 224 if (read (file, auxhdr, sizeof (*auxhdr)) != sizeof (*auxhdr)) |
225 { | 225 { |
226 perror ("Couldn't read auxiliary header from a.out file"); | 226 perror ("Couldn't read auxiliary header from a.out file"); |
227 exit (1); | 227 exit (1); |
228 } | 228 } |
229 } | 229 } |
230 | 230 |
231 /* Write out the header records into an a.out file. */ | 231 /* Write out the header records into an a.out file. */ |
232 | 232 |
233 write_header (file, hdr, auxhdr) | 233 write_header (file, hdr, auxhdr) |
235 struct header *hdr; | 235 struct header *hdr; |
236 struct som_exec_auxhdr *auxhdr; | 236 struct som_exec_auxhdr *auxhdr; |
237 { | 237 { |
238 /* Update the checksum */ | 238 /* Update the checksum */ |
239 hdr->checksum = calculate_checksum (hdr); | 239 hdr->checksum = calculate_checksum (hdr); |
240 | 240 |
241 /* Write the header back into the a.out file */ | 241 /* Write the header back into the a.out file */ |
242 lseek (file, 0, 0); | 242 lseek (file, 0, 0); |
243 if (write (file, hdr, sizeof (*hdr)) != sizeof (*hdr)) | 243 if (write (file, hdr, sizeof (*hdr)) != sizeof (*hdr)) |
244 { perror ("Couldn't write header to a.out file"); exit (1); } | 244 { perror ("Couldn't write header to a.out file"); exit (1); } |
245 lseek (file, hdr->aux_header_location, 0); | 245 lseek (file, hdr->aux_header_location, 0); |
251 | 251 |
252 calculate_checksum (hdr) | 252 calculate_checksum (hdr) |
253 struct header *hdr; | 253 struct header *hdr; |
254 { | 254 { |
255 int checksum, i, *ptr; | 255 int checksum, i, *ptr; |
256 | 256 |
257 checksum = 0; ptr = (int *) hdr; | 257 checksum = 0; ptr = (int *) hdr; |
258 | 258 |
259 for (i = 0; i < sizeof (*hdr) / sizeof (int) - 1; i++) | 259 for (i = 0; i < sizeof (*hdr) / sizeof (int) - 1; i++) |
260 checksum ^= ptr[i]; | 260 checksum ^= ptr[i]; |
261 | 261 |
262 return (checksum); | 262 return (checksum); |
263 } | 263 } |
264 | 264 |
265 /* Copy size bytes from the old file to the new one. */ | 265 /* Copy size bytes from the old file to the new one. */ |
266 | 266 |
268 int new, old; | 268 int new, old; |
269 int size; | 269 int size; |
270 { | 270 { |
271 int len; | 271 int len; |
272 int buffer[8192]; /* word aligned will be faster */ | 272 int buffer[8192]; /* word aligned will be faster */ |
273 | 273 |
274 for (; size > 0; size -= len) | 274 for (; size > 0; size -= len) |
275 { | 275 { |
276 len = min (size, sizeof (buffer)); | 276 len = min (size, sizeof (buffer)); |
277 if (read (old, buffer, len) != len) | 277 if (read (old, buffer, len) != len) |
278 { perror ("Read failure on a.out file"); exit (1); } | 278 { perror ("Read failure on a.out file"); exit (1); } |
286 copy_rest (old, new) | 286 copy_rest (old, new) |
287 int new, old; | 287 int new, old; |
288 { | 288 { |
289 int buffer[4096]; | 289 int buffer[4096]; |
290 int len; | 290 int len; |
291 | 291 |
292 /* Copy bytes until end of file or error */ | 292 /* Copy bytes until end of file or error */ |
293 while ((len = read (old, buffer, sizeof (buffer))) > 0) | 293 while ((len = read (old, buffer, sizeof (buffer))) > 0) |
294 if (write (new, buffer, len) != len) break; | 294 if (write (new, buffer, len) != len) break; |
295 | 295 |
296 if (len != 0) | 296 if (len != 0) |
297 { perror ("Unable to copy the rest of the file"); exit (1); } | 297 { perror ("Unable to copy the rest of the file"); exit (1); } |
298 } | 298 } |
299 | 299 |
300 #ifdef DEBUG | 300 #ifdef DEBUG |
302 struct header *hdr; | 302 struct header *hdr; |
303 struct som_exec_auxhdr *auxhdr; | 303 struct som_exec_auxhdr *auxhdr; |
304 { | 304 { |
305 /* Display the header information (debug) */ | 305 /* Display the header information (debug) */ |
306 printf ("\n\nFILE HEADER\n"); | 306 printf ("\n\nFILE HEADER\n"); |
307 printf ("magic number %d \n", hdr->a_magic); | 307 printf ("magic number %d \n", hdr->a_magic); |
308 printf ("text loc %.8x size %d \n", auxhdr->exec_tmem, auxhdr->exec_tsize); | 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); | 309 printf ("data loc %.8x size %d \n", auxhdr->exec_dmem, auxhdr->exec_dsize); |
310 printf ("entry %x \n", auxhdr->exec_entry); | 310 printf ("entry %x \n", auxhdr->exec_entry); |
311 printf ("Bss segment size %u\n", auxhdr->exec_bsize); | 311 printf ("Bss segment size %u\n", auxhdr->exec_bsize); |
312 printf ("\n"); | 312 printf ("\n"); |