0
+ − 1 /* Unexec for the Alliant FX/2800. */
+ − 2
+ − 3 This file is part of XEmacs.
+ − 4
+ − 5 XEmacs is free software; you can redistribute it and/or modify it
+ − 6 under the terms of the GNU General Public License as published by the
+ − 7 Free Software Foundation; either version 2, or (at your option) any
+ − 8 later version.
+ − 9
+ − 10 XEmacs is distributed in the hope that it will be useful, but WITHOUT
+ − 11 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ − 12 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ − 13 for more details.
+ − 14
+ − 15 You should have received a copy of the GNU General Public License
+ − 16 along with XEmacs; see the file COPYING. If not, write to
+ − 17 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 18 Boston, MA 02111-1307, USA. */
+ − 19
+ − 20 /* Synched up with: FSF 19.31. */
+ − 21
+ − 22 #include <stdio.h>
+ − 23
+ − 24 unexec (new_name, a_name, data_start, bss_start, entry_address)
+ − 25 char *new_name, *a_name;
+ − 26 unsigned data_start, bss_start, entry_address;
+ − 27 {
+ − 28 int stat;
+ − 29
+ − 30 stat = elf_write_modified_data (a_name, new_name);
+ − 31 if (stat < 0)
+ − 32 perror ("emacs: elf_write_modified_data");
+ − 33 else if (stat > 0)
+ − 34 fprintf (stderr, "Unspecified error from elf_write_modified_data.\n");
+ − 35 }
