(tags-loop-scan): Set default value to an error form.
[bpt/emacs.git] / src / unexfx2800.c
1 /* Unexec for the Alliant FX/2800. */
2
3 #include <stdio.h>
4
5 unexec (new_name, a_name, data_start, bss_start, entry_address)
6 char *new_name, *a_name;
7 unsigned data_start, bss_start, entry_address;
8 {
9 int stat;
10
11 stat = elf_write_modified_data (a_name, new_name);
12 if (stat < 0)
13 perror ("emacs: elf_write_modified_data");
14 else if (stat > 0)
15 fprintf (stderr, "Unspecified error from elf_write_modified_data.\n");
16 }