Mercurial > emacs
annotate src/unexhp9k800.c @ 50715:46229d46cbeb
Major rewrite. The code is reordered, cleaner and faster.
Introduced new options to automatically cleanup the recent list,
and to handle filename transformation (for example to use true
filenames).
(recentf-version): New constant.
(recentf-save-file-header): Moved.
(recentf-data-cache): New variable.
(recentf-update-menu-p, recentf-initialized-p): Removed.
(recentf-menu-customization-changed): Moved. Doc fix.
(recentf-max-saved-items): Doc fix.
(recentf-save-file): Doc fix. No more expand filename here.
(recentf-exclude, recentf-menu-action)
(recentf-menu-filter): Doc fix.
(recentf-menu-append-commands-flag): Renamed from...
(recentf-menu-append-commands-p): Made obsolete.
(recentf-keep-non-readable-files-flag): Renamed from...
(recentf-keep-non-readable-files-p): Made obsolete.
(recentf-auto-cleanup, recentf-filename-handler): New options.
(recentf-string-equal, recentf-string-lessp)
(recentf-string-member): New functions.
(recentf-trunc-list): Moved.
(recentf-dump-variable): Moved. Better code and output format.
(recentf-auto-cleanup-timer): New variable.
(recentf-auto-cleanup): New function.
(recentf-push, recentf-expand-file-name): New functions.
(recentf-add-file): In-lined. Use above functions.
(recentf-remove-if-non-readable): In-lined. Expand file name.
(recentf-find-file): Use `recentf-remove-if-non-readable'.
(recentf-directory-compare): Moved. Use `recentf-string-equal'
and `recentf-string-lessp' to do comparisons.
(recentf-menu-items-for-commands)
(recentf-menu-filter-commands): Moved.
(recentf-elements, recentf-make-menu-element)
(recentf-menu-element-item, recentf-menu-element-value)
(recentf-set-menu-element-item, recentf-set-menu-element-value)
(recentf-sub-menu-element-p, recentf-make-default-menu-element)
(recentf-menu-elements): In-lined. Some doc fix.
(recentf-apply-menu-filter): Better code.
(recentf-make-menu-items): Doc fix. Use
`recentf-menu-append-commands-flag'.
(recentf-make-menu-item): In-lined. Better code.
(recentf-clear-data): New function.
(recentf-sort-ascending, recentf-sort-descending)
(recentf-sort-basenames-ascending)
(recentf-sort-basenames-descending)
(recentf-sort-directories-ascending)
(recentf-sort-directories-descending)
(recentf-show-basenames-ascending)
(recentf-show-basenames-descending: In-lined. Better code. Some
doc fix.
(recentf-show-basenames)
(recentf-relative-filter): Better code. Doc fix.
(recentf-arrange-by-rule-subfilter): Doc fix. Improved :set code.
(recentf-match-rule-p): Use filename instead of file-path.
(recentf-arrange-by-rule, recentf-build-mode-rules)
(recentf-arrange-by-mode, recentf-build-dir-rules)
(recentf-file-name-nondir)
(recentf-filter-changer-alist): Some doc fix and code cleanup.
(recentf-filter-changer-goto-next): Doc fix. Call
`recentf-clear-data'.
(recentf-filter-changer-get-current)
(recentf-filter-changer-get-next): In-lined. Doc fix and better
code.
(recentf-filter-changer): Doc fix and better code.
(recentf-cancel-dialog): Doc fix.
(recentf-dialog-mode-map): Initialized in defvar.
(recentf-dialog-mode): Doc fix.
(recentf-track-opened-file): Renamed from...
(recentf-add-file-hook): Removed.
(recentf-track-closed-file): Renamed from...
(recentf-remove-file-hook): Removed.
(recentf-update-menu-hook): Removed. Replaced by...
(recentf-update-menu): New. Better catch unnecessary updates.
Display a message on error.
(recentf-used-hooks): New constant.
(recentf-enabled-p): New function.
(recentf-edit-selected-items)
(recentf-open-files-action)
(recentf-open-files-item-shift): Doc fix.
(recentf-edit-list-action)
(recentf-open-files-item): Doc fix. Code cleanup.
(recentf-edit-list, recentf-open-files)
(recentf-open-more-files): Likewise. Removed autoload cookie.
(recentf-save-list, recentf-cleanup): Likewise. Moved.
(recentf-load-list): New command.
(recentf-mode): Better code. Does nothing if enabling the already
enabled mode.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sat, 26 Apr 2003 23:41:59 +0000 |
parents | 23a1cea22d13 |
children | 695cf19ef79e |
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. | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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>
parents:
15527
diff
changeset
|
40 #ifdef emacs |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
15527
diff
changeset
|
41 #include <config.h> |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
15527
diff
changeset
|
42 #endif |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
15527
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
57 |
7625 | 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; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
99 |
118 | 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); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
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; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
119 |
118 | 120 /* Copy the rest of the file */ |
7619 | 121 copy_rest (old, new); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
125 |
118 | 126 /* Save the modified header */ |
7619 | 127 write_header (new, &hdr, &auxhdr); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
128 |
118 | 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); } | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
163 |
118 | 164 /* Increase the overall size of the module */ |
165 hdr->som_length += offset; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
186 |
118 | 187 /* If subspace has a file location, update it */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
196 } |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
215 |
118 | 216 if (hdr->a_magic != EXEC_MAGIC && hdr->a_magic != SHARE_MAGIC |
217 && hdr->a_magic != DEMAND_MAGIC) | |
218 { | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
219 fprintf (stderr, "a.out file doesn't have legal magic number\n"); |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
220 exit (1); |
118 | 221 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
256 |
118 | 257 checksum = 0; ptr = (int *) hdr; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
258 |
7619 | 259 for (i = 0; i < sizeof (*hdr) / sizeof (int) - 1; i++) |
118 | 260 checksum ^= ptr[i]; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
26088
diff
changeset
|
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 */ |