613
+ − 1 /* unexec for XEmacs on Cygwin32.
428
+ − 2 Copyright (C) 1994, 1998 Free Software Foundation, Inc.
+ − 3
+ − 4 This file is part of XEmacs.
+ − 5
+ − 6 XEmacs is free software; you can redistribute it and/or modify it
+ − 7 under the terms of the GNU General Public License as published by the
+ − 8 Free Software Foundation; either version 2, or (at your option) any
+ − 9 later version.
+ − 10
+ − 11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
+ − 12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ − 13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ − 14 for more details.
+ − 15
+ − 16 You should have received a copy of the GNU General Public License
+ − 17 along with XEmacs; see the file COPYING. If not, write to the Free
+ − 18 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+ − 19 02111-1307, USA.
+ − 20
+ − 21 */
+ − 22
+ − 23 /* This is a complete rewrite, some code snarfed from unexnt.c and
+ − 24 unexec.c, Andy Piper (andy@xemacs.org) 13-1-98 */
+ − 25
448
+ − 26 #include <config.h>
+ − 27 #include "lisp.h"
+ − 28
428
+ − 29 #include "sysfile.h"
442
+ − 30
546
+ − 31 #define PERROR(arg) \
+ − 32 do { \
+ − 33 perror (arg); \
+ − 34 exit (-1); \
+ − 35 } while (0)
428
+ − 36
546
+ − 37 #if !defined (HAVE_A_OUT_H) && !defined (WIN32_NATIVE)
428
+ − 38 unexec (char *, char *, void *, void *, void *)
+ − 39 {
647
+ − 40 PERROR ("cannot unexec() a.out.h not installed");
428
+ − 41 }
+ − 42 #else
+ − 43
546
+ − 44 #ifdef MINGW
+ − 45 #include <../../include/a.out.h>
+ − 46 #else
428
+ − 47 #include <a.out.h>
546
+ − 48 #endif
428
+ − 49
1198
+ − 50 #define STACK_SIZE 0x800000
428
+ − 51 #define ALLOC_UNIT 0xFFFF
647
+ − 52 #define ALLOC_MASK ~((unsigned long) (ALLOC_UNIT))
428
+ − 53 #define ALIGN_ALLOC(addr) \
647
+ − 54 ((((unsigned long) addr) + ALLOC_UNIT) & ALLOC_MASK)
444
+ − 55 /* Note that all sections must be aligned on a 0x1000 boundary so
+ − 56 this is the minimum size that our dummy bss can be. */
448
+ − 57 #ifndef NO_DEBUG
444
+ − 58 #define BSS_PAD_SIZE 0x1000
446
+ − 59 #else
+ − 60 #define BSS_PAD_SIZE 0
+ − 61 #endif
428
+ − 62
+ − 63 /* To prevent zero-initialized variables from being placed into the bss
+ − 64 section, use non-zero values to represent an uninitialized state. */
+ − 65 #define UNINIT_PTR ((void *) 0xF0A0F0A0)
+ − 66 #define UNINIT_LONG (0xF0A0F0A0L)
+ − 67
+ − 68 static void get_section_info (int a_out, char* a_name);
+ − 69 static void copy_executable_and_dump_data_section (int a_out, int a_new);
647
+ − 70 static void dup_file_area (int a_out, int a_new, long size);
428
+ − 71 #if 0
647
+ − 72 static void write_int_to_bss (int a_out, int a_new, void* va, void* newval);
428
+ − 73 #endif
+ − 74
+ − 75 /* Cached info about the .data section in the executable. */
647
+ − 76 void *data_start_va = UNINIT_PTR;
+ − 77 long data_size = UNINIT_LONG;
428
+ − 78
+ − 79 /* Cached info about the .bss section in the executable. */
647
+ − 80 void *bss_start = UNINIT_PTR;
+ − 81 long bss_size = UNINIT_LONG;
428
+ − 82 int sections_reversed = 0;
+ − 83 FILHDR f_hdr;
+ − 84 PEAOUTHDR f_ohdr;
+ − 85 SCNHDR f_data, f_bss, f_text, f_nextdata;
+ − 86
647
+ − 87 #define CHECK_AOUT_POS(a) \
+ − 88 do { \
+ − 89 if (lseek (a_out, 0, SEEK_CUR) != a) \
+ − 90 { \
+ − 91 printf ("we are at %lx, should be at %lx\n", \
+ − 92 lseek (a_out, 0, SEEK_CUR), a); \
+ − 93 exit (-1); \
+ − 94 } \
+ − 95 } while (0)
428
+ − 96
+ − 97 /* Dump out .data and .bss sections into a new executable. */
448
+ − 98 int
+ − 99 unexec (char *out_name, char *in_name, uintptr_t start_data,
+ − 100 uintptr_t d1, uintptr_t d2)
428
+ − 101 {
+ − 102 /* ugly nt hack - should be in lisp */
+ − 103 int a_new, a_out = -1;
558
+ − 104 char new_name[PATH_MAX], a_name[PATH_MAX];
428
+ − 105 char *ptr;
+ − 106
+ − 107 /* Make sure that the input and output filenames have the
+ − 108 ".exe" extension...patch them up if they don't. */
+ − 109 strcpy (a_name, in_name);
+ − 110 ptr = a_name + strlen (a_name) - 4;
+ − 111 if (strcmp (ptr, ".exe"))
+ − 112 strcat (a_name, ".exe");
+ − 113
+ − 114 strcpy (new_name, out_name);
+ − 115 ptr = new_name + strlen (new_name) - 4;
+ − 116 if (strcmp (ptr, ".exe"))
+ − 117 strcat (new_name, ".exe");
+ − 118
+ − 119 /* We need to round off our heap to NT's allocation unit (64KB). */
+ − 120 /* round_heap (get_allocation_unit ()); */
+ − 121
+ − 122 if (a_name && (a_out = open (a_name, O_RDONLY | OPEN_BINARY)) < 0)
558
+ − 123 PERROR (a_name);
428
+ − 124
+ − 125 if ((a_new = open (new_name, O_WRONLY | O_TRUNC | O_CREAT | OPEN_BINARY,
446
+ − 126 0755)) < 0)
558
+ − 127 PERROR (new_name);
428
+ − 128
+ − 129 /* Get the interesting section info, like start and size of .bss... */
+ − 130 get_section_info (a_out, a_name);
+ − 131
+ − 132 copy_executable_and_dump_data_section (a_out, a_new);
+ − 133
647
+ − 134 close (a_out);
+ − 135 close (a_new);
448
+ − 136 return 0;
428
+ − 137 }
+ − 138
+ − 139 /* Flip through the executable and cache the info necessary for dumping. */
558
+ − 140 static void
+ − 141 get_section_info (int a_out, char* a_name)
428
+ − 142 {
448
+ − 143 extern char my_ebss[];
428
+ − 144 /* From lastfile.c */
+ − 145 extern char my_edata[];
+ − 146
+ − 147 if (read (a_out, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr))
558
+ − 148 PERROR (a_name);
428
+ − 149
+ − 150 if (f_hdr.e_magic != DOSMAGIC)
647
+ − 151 PERROR ("unknown exe header");
428
+ − 152
+ − 153 /* Check the NT header signature ... */
+ − 154 if (f_hdr.nt_signature != NT_SIGNATURE)
647
+ − 155 PERROR ("invalid nt header");
428
+ − 156
+ − 157 /* Flip through the sections for .data and .bss ... */
+ − 158 if (f_hdr.f_opthdr > 0)
+ − 159 {
+ − 160 if (read (a_out, &f_ohdr, AOUTSZ) != AOUTSZ)
558
+ − 161 PERROR (a_name);
428
+ − 162 }
+ − 163 /* Loop through .data & .bss section headers, copying them in.
+ − 164 With newer lds these are reversed so we have to cope with both */
+ − 165 lseek (a_out, sizeof (f_hdr) + f_hdr.f_opthdr, 0);
+ − 166
+ − 167 if (read (a_out, &f_text, sizeof (f_text)) != sizeof (f_text)
558
+ − 168 || strcmp (f_text.s_name, ".text"))
+ − 169 PERROR ("no .text section");
428
+ − 170
+ − 171 /* The .bss section. */
+ − 172 if (read (a_out, &f_bss, sizeof (f_bss)) != sizeof (f_bss)
558
+ − 173 || (strcmp (f_bss.s_name, ".bss") && strcmp (f_bss.s_name, ".data")))
+ − 174 PERROR ("no .bss / .data section");
428
+ − 175
+ − 176 /* check for reversed .bss and .data */
647
+ − 177 if (!strcmp (f_bss.s_name, ".data"))
428
+ − 178 {
647
+ − 179 printf (".data and .bss reversed\n");
428
+ − 180 sections_reversed = 1;
647
+ − 181 memcpy (&f_data, &f_bss, sizeof (f_bss));
428
+ − 182 }
+ − 183
+ − 184 /* The .data section. */
+ − 185 if (!sections_reversed)
+ − 186 {
+ − 187 if (read (a_out, &f_data, sizeof (f_data)) != sizeof (f_data)
558
+ − 188 || strcmp (f_data.s_name, ".data"))
+ − 189 PERROR ("no .data section");
428
+ − 190 }
+ − 191 else
+ − 192 {
+ − 193 if (read (a_out, &f_bss, sizeof (f_bss)) != sizeof (f_bss)
558
+ − 194 || strcmp (f_bss.s_name, ".bss"))
+ − 195 PERROR ("no .bss section");
428
+ − 196 }
+ − 197
+ − 198 bss_start = (void *) ((char*)f_ohdr.ImageBase + f_bss.s_vaddr);
+ − 199 bss_size = (unsigned long)((char*)&my_ebss-(char*)bss_start);
+ − 200
+ − 201 /* must keep bss data that we want to be blank as blank */
647
+ − 202 printf ("found bss - keeping %lx of %lx bytes\n", bss_size, f_ohdr.bsize);
428
+ − 203
+ − 204 /* The .data section. */
+ − 205 data_start_va = (void *) ((char*)f_ohdr.ImageBase + f_data.s_vaddr);
+ − 206
+ − 207 /* We want to only write Emacs data back to the executable,
+ − 208 not any of the library data (if library data is included,
+ − 209 then a dumped Emacs won't run on system versions other
+ − 210 than the one Emacs was dumped on). */
+ − 211 data_size = (unsigned long)my_edata - (unsigned long)data_start_va;
647
+ − 212 printf ("found data - keeping %lx of %lx bytes\n", data_size, f_ohdr.dsize);
428
+ − 213
+ − 214 /* The following data section - often .idata */
+ − 215 if (read (a_out, &f_nextdata, sizeof (f_nextdata)) != sizeof (f_nextdata)
647
+ − 216 && strcmp (&f_nextdata.s_name[2], "data"))
558
+ − 217 PERROR ("no other data section");
428
+ − 218 }
+ − 219
+ − 220 /* The dump routines. */
+ − 221
+ − 222 static void
+ − 223 copy_executable_and_dump_data_section (int a_out, int a_new)
+ − 224 {
647
+ − 225 long size = 0;
+ − 226 /* NOTE: Some of these were previously declared as unsigned long,
+ − 227 but the ones changed to long represent file sizes or pointers,
+ − 228 which can't reasonably get above 2G. (A 2G executable???)
+ − 229 Furthermore, some were even being compared as in if (x < 0) ... */
+ − 230 long new_data_size, new_bss_size, bss_padding, file_sz_change;
+ − 231 long data_padding = 0;
+ − 232 long f_data_s_scnptr = f_data.s_scnptr;
+ − 233 long f_nextdata_s_scnptr = f_nextdata.s_scnptr;
+ − 234 unsigned long f_data_s_vaddr = f_data.s_vaddr;
+ − 235 unsigned long f_bss_s_vaddr = f_bss.s_vaddr;
428
+ − 236
+ − 237 int i;
+ − 238 void* empty_space;
+ − 239 extern int static_heap_dumped;
+ − 240 SCNHDR section;
444
+ − 241 /* calculate new sizes:
558
+ − 242
444
+ − 243 f_ohdr.dsize is the total initialized data size on disk which is
+ − 244 f_data.s_size + f_idata.s_size.
558
+ − 245
444
+ − 246 f_ohdr.data_start is the base addres of all data and so should
+ − 247 not be changed.
+ − 248
+ − 249 *.s_vaddr is the virtual address of the start of the section
+ − 250 *normalized from f_ohdr.ImageBase.
558
+ − 251
444
+ − 252 *.s_paddr appears to be the number of bytes in the section
+ − 253 *actually used (whereas *.s_size is aligned).
558
+ − 254
428
+ − 255 bsize is now 0 since subsumed into .data
+ − 256 dsize is dsize + (f_data.s_vaddr - f_bss.s_vaddr)
+ − 257 f_data.s_vaddr is f_bss.s_vaddr
+ − 258 f_data.s_size is new dsize maybe.
+ − 259 what about s_paddr & s_scnptr? */
+ − 260
+ − 261 /* this is the amount the file increases in size */
+ − 262 if (!sections_reversed)
+ − 263 {
+ − 264 new_bss_size = f_data.s_vaddr - f_bss.s_vaddr;
+ − 265 data_padding = 0;
+ − 266 }
+ − 267 else
+ − 268 {
+ − 269 new_bss_size = f_nextdata.s_vaddr - f_bss.s_vaddr;
+ − 270 data_padding = (f_bss.s_vaddr - f_data.s_vaddr) - f_data.s_size;
+ − 271 }
+ − 272
448
+ − 273 if ((new_bss_size - bss_size) < BSS_PAD_SIZE)
558
+ − 274 PERROR (".bss free space too small");
448
+ − 275
647
+ − 276 file_sz_change = (new_bss_size + data_padding) - BSS_PAD_SIZE;
+ − 277 new_data_size = f_ohdr.dsize + file_sz_change;
428
+ − 278
+ − 279 if (!sections_reversed)
558
+ − 280 f_data.s_vaddr = f_bss.s_vaddr;
428
+ − 281 f_data.s_paddr += file_sz_change;
+ − 282 #if 0
+ − 283 if (f_data.s_size + f_nextdata.s_size != f_ohdr.dsize)
647
+ − 284 printf ("section size doesn't tally with dsize %lx != %lx\n",
558
+ − 285 f_data.s_size + f_nextdata.s_size, f_ohdr.dsize);
428
+ − 286 #endif
+ − 287 f_data.s_size += file_sz_change;
+ − 288 lseek (a_new, 0, SEEK_SET);
+ − 289 /* write file header */
+ − 290 f_hdr.f_symptr += file_sz_change;
448
+ − 291 #ifdef NO_DEBUG
446
+ − 292 f_hdr.f_nscns--;
+ − 293 #endif
444
+ − 294
647
+ − 295 printf ("writing file header\n");
+ − 296 if (write (a_new, &f_hdr, sizeof (f_hdr)) != sizeof (f_hdr))
+ − 297 PERROR ("failed to write file header");
428
+ − 298 /* write optional header fixing dsize & bsize*/
647
+ − 299 printf ("writing optional header\n");
+ − 300 printf ("new data size is %lx, >= %lx\n", new_data_size,
428
+ − 301 f_ohdr.dsize + f_ohdr.bsize);
647
+ − 302 if (new_data_size < (long) (f_ohdr.dsize + f_ohdr.bsize))
+ − 303 printf ("warning: new data size is < approx\n");
428
+ − 304 f_ohdr.dsize=new_data_size;
444
+ − 305 f_ohdr.bsize=BSS_PAD_SIZE;
1198
+ − 306 /* Prevent stack overflow with regexp usage. */
+ − 307 f_ohdr.SizeOfStackReserve = STACK_SIZE;
+ − 308
647
+ − 309 if (write (a_new, &f_ohdr, sizeof (f_ohdr)) != sizeof (f_ohdr))
+ − 310 PERROR ("failed to write optional header");
428
+ − 311 /* write text as is */
647
+ − 312 printf ("writing text header (unchanged)\n");
428
+ − 313
647
+ − 314 if (write (a_new, &f_text, sizeof (f_text)) != sizeof (f_text))
+ − 315 PERROR ("failed to write text header");
448
+ − 316 #ifndef NO_DEBUG
444
+ − 317 /* Write small bss section. */
+ − 318 if (!sections_reversed)
+ − 319 {
+ − 320 f_bss.s_size = BSS_PAD_SIZE;
+ − 321 f_bss.s_paddr = BSS_PAD_SIZE;
+ − 322 f_bss.s_vaddr = f_data.s_vaddr - BSS_PAD_SIZE;
647
+ − 323 if (write (a_new, &f_bss, sizeof (f_bss)) != sizeof (f_bss))
+ − 324 PERROR ("failed to write bss header");
444
+ − 325 }
446
+ − 326 #endif
428
+ − 327 /* write new data header */
647
+ − 328 printf ("writing .data header\n");
428
+ − 329
647
+ − 330 if (write (a_new, &f_data, sizeof (f_data)) != sizeof (f_data))
+ − 331 PERROR ("failed to write data header");
448
+ − 332 #ifndef NO_DEBUG
444
+ − 333 /* Write small bss section. */
+ − 334 if (sections_reversed)
+ − 335 {
+ − 336 f_bss.s_size = BSS_PAD_SIZE;
+ − 337 f_bss.s_paddr = BSS_PAD_SIZE;
+ − 338 f_bss.s_vaddr = f_nextdata.s_vaddr - BSS_PAD_SIZE;
647
+ − 339 if (write (a_new, &f_bss, sizeof (f_bss)) != sizeof (f_bss))
+ − 340 PERROR ("failed to write bss header");
444
+ − 341 }
446
+ − 342 #endif
647
+ − 343 printf ("writing following data header\n");
428
+ − 344 f_nextdata.s_scnptr += file_sz_change;
+ − 345 if (f_nextdata.s_lnnoptr != 0) f_nextdata.s_lnnoptr += file_sz_change;
+ − 346 if (f_nextdata.s_relptr != 0) f_nextdata.s_relptr += file_sz_change;
647
+ − 347 if (write (a_new, &f_nextdata, sizeof (f_nextdata)) != sizeof (f_nextdata))
+ − 348 PERROR ("failed to write nextdata header");
428
+ − 349
+ − 350 /* copy other section headers adjusting the file offset */
+ − 351 for (i=0; i<(f_hdr.f_nscns-3); i++)
+ − 352 {
+ − 353 if (read (a_out, §ion, sizeof (section)) != sizeof (section))
558
+ − 354 PERROR ("no .data section");
428
+ − 355
+ − 356 section.s_scnptr += file_sz_change;
+ − 357 if (section.s_lnnoptr != 0) section.s_lnnoptr += file_sz_change;
+ − 358 if (section.s_relptr != 0) section.s_relptr += file_sz_change;
+ − 359
647
+ − 360 if (write (a_new, §ion, sizeof (section)) != sizeof (section))
+ − 361 PERROR ("failed to write data header");
428
+ − 362 }
448
+ − 363 #ifdef NO_DEBUG
446
+ − 364 /* dump bss to maintain offsets */
647
+ − 365 memset (&f_bss, 0, sizeof (f_bss));
+ − 366 if (write (a_new, &f_bss, sizeof (f_bss)) != sizeof (f_bss))
+ − 367 PERROR ("failed to write bss header");
446
+ − 368 #endif
647
+ − 369 size = lseek (a_new, 0, SEEK_CUR);
+ − 370 CHECK_AOUT_POS (size);
428
+ − 371
+ − 372 /* copy eveything else until start of data */
+ − 373 size = f_data_s_scnptr - lseek (a_out, 0, SEEK_CUR);
+ − 374
+ − 375 printf ("copying executable up to data section ... %lx bytes\n",
+ − 376 size);
647
+ − 377 dup_file_area (a_out, a_new, size);
428
+ − 378
647
+ − 379 CHECK_AOUT_POS (f_data_s_scnptr);
428
+ − 380
+ − 381 if (!sections_reversed)
+ − 382 {
444
+ − 383 /* dump bss + padding between sections, sans small bss pad */
428
+ − 384 printf ("dumping .bss into executable... %lx bytes\n", bss_size);
647
+ − 385 if (write (a_new, bss_start, bss_size) != bss_size)
428
+ − 386 {
647
+ − 387 PERROR ("failed to write bss section");
428
+ − 388 }
+ − 389
+ − 390 /* pad, needs to be zero */
444
+ − 391 bss_padding = (new_bss_size - bss_size) - BSS_PAD_SIZE;
+ − 392 if (bss_padding < 0)
647
+ − 393 PERROR ("padded .bss too small");
428
+ − 394 printf ("padding .bss ... %lx bytes\n", bss_padding);
647
+ − 395 empty_space = malloc (bss_padding);
+ − 396 memset (empty_space, 0, bss_padding);
+ − 397 if (write (a_new, empty_space, bss_padding) != bss_padding)
+ − 398 PERROR ("failed to write bss section");
+ − 399 free (empty_space);
428
+ − 400 }
+ − 401
+ − 402 /* tell dumped version not to free pure heap */
+ − 403 static_heap_dumped = 1;
+ − 404 /* Get a pointer to the raw data in our address space. */
+ − 405 printf ("dumping .data section... %lx bytes\n", data_size);
647
+ − 406 if (write (a_new, data_start_va, data_size) != data_size)
+ − 407 PERROR ("failed to write data section");
428
+ − 408 /* were going to use free again ... */
+ − 409 static_heap_dumped = 0;
+ − 410
647
+ − 411 size = lseek (a_out, f_data_s_scnptr + data_size, SEEK_SET);
428
+ − 412
+ − 413 if (!sections_reversed)
+ − 414 {
+ − 415 size = f_nextdata_s_scnptr - size;
647
+ − 416 dup_file_area (a_out, a_new, size);
428
+ − 417 }
+ − 418 else
+ − 419 {
444
+ − 420 /* need to pad to bss with data in file */
428
+ − 421 printf ("padding .data ... %lx bytes\n", data_padding);
+ − 422 size = (f_bss_s_vaddr - f_data_s_vaddr) - data_size;
647
+ − 423 dup_file_area (a_out, a_new, size);
428
+ − 424
+ − 425 /* dump bss + padding between sections */
+ − 426 printf ("dumping .bss into executable... %lx bytes\n", bss_size);
647
+ − 427 if (write (a_new, bss_start, bss_size) != bss_size)
+ − 428 PERROR ("failed to write bss section");
428
+ − 429
+ − 430 /* pad, needs to be zero */
444
+ − 431 bss_padding = (new_bss_size - bss_size) - BSS_PAD_SIZE;
+ − 432 if (bss_padding < 0)
647
+ − 433 PERROR ("padded .bss too small");
428
+ − 434 printf ("padding .bss ... %lx bytes\n", bss_padding);
647
+ − 435 empty_space = malloc (bss_padding);
+ − 436 memset (empty_space, 0, bss_padding);
+ − 437 if (write (a_new, empty_space, bss_padding) != bss_padding)
+ − 438 PERROR ("failed to write bss section");
+ − 439 free (empty_space);
+ − 440 if (lseek (a_new, 0, SEEK_CUR) != (long) f_nextdata.s_scnptr)
428
+ − 441 {
647
+ − 442 printf ("at %lx should be at %lx\n",
+ − 443 lseek (a_new, 0, SEEK_CUR),
428
+ − 444 f_nextdata.s_scnptr);
647
+ − 445 PERROR ("file positioning error\n");
428
+ − 446 }
647
+ − 447 lseek (a_out, f_nextdata_s_scnptr, SEEK_SET);
428
+ − 448 }
+ − 449
647
+ − 450 CHECK_AOUT_POS (f_nextdata_s_scnptr);
428
+ − 451
+ − 452 /* now dump - nextdata don't need to do this cygwin ds is in .data! */
+ − 453 printf ("dumping following data section... %lx bytes\n", f_nextdata.s_size);
+ − 454
647
+ − 455 dup_file_area (a_out,a_new,f_nextdata.s_size);
428
+ − 456
+ − 457 /* write rest of file */
+ − 458 printf ("writing rest of file\n");
647
+ − 459 size = lseek (a_out, 0, SEEK_END);
428
+ − 460 size = size - (f_nextdata_s_scnptr + f_nextdata.s_size); /* length remaining in a_out */
647
+ − 461 lseek (a_out, f_nextdata_s_scnptr + f_nextdata.s_size, SEEK_SET);
428
+ − 462
647
+ − 463 dup_file_area (a_out, a_new, size);
428
+ − 464 }
+ − 465
+ − 466 /*
+ − 467 * copy from aout to anew
+ − 468 */
647
+ − 469 static void
+ − 470 dup_file_area (int a_out, int a_new, long size)
428
+ − 471 {
+ − 472 char page[BUFSIZ];
+ − 473 long n;
+ − 474 for (; size > 0; size -= sizeof (page))
+ − 475 {
1111
+ − 476 n = size > (long) sizeof (page) ? (long) sizeof (page) : size;
428
+ − 477 if (read (a_out, page, n) != n || write (a_new, page, n) != n)
558
+ − 478 PERROR ("dump_out()");
428
+ − 479 }
+ − 480 }
+ − 481
+ − 482 #if 0
647
+ − 483 static void
+ − 484 write_int_to_bss (int a_out, int a_new, void* va, void* newval)
428
+ − 485 {
+ − 486 int cpos;
+ − 487
647
+ − 488 cpos = lseek (a_new, 0, SEEK_CUR);
428
+ − 489 if (va < bss_start || va > bss_start + f_data.s_size)
647
+ − 490 PERROR ("address not in data space\n");
+ − 491 lseek (a_new, f_data.s_scnptr + ((unsigned long)va -
428
+ − 492 (unsigned long)bss_start), SEEK_SET);
647
+ − 493 if (write (a_new, newval, sizeof (int)) != (int) sizeof (int))
+ − 494 PERROR ("failed to write int value");
+ − 495 lseek (a_new, cpos, SEEK_SET);
428
+ − 496 }
+ − 497 #endif
+ − 498
+ − 499 #endif /* HAVE_A_OUT_H */
