view src/unexfx2800.c @ 18610:4726c7bb05a9

(thing-at-point): Use `thing-at-point' property, if any. (bounds-of-thing-at-point): Use `bounds-of-thing-at-point' property. (thing-at-point-bounds-of-url-at-point): New function. (thing-at-point-looking-at): New function, adapted from old browse-url-looking-at. (thing-at-point-url-at-point): New function, adapted from browse-url-url-at-point. (thing-at-point-url-chars): Variable deleted. (thing-at-point-url-path-regexp, thing-at-point-short-url-regexp, thing-at-point-url-regexp, thing-at-point-markedup-url-regexp): New variables. (url): `beginning-op' property function changed to use `thing-at-point-bounds-of-url-at-point'. `end-op' property no longer set -- functionality no longer supported for the more sophisticated treatment of URLs so `forward-thing' no longer works in this case.

/* Unexec for the Alliant FX/2800.  */

#include <stdio.h>

unexec (new_name, a_name, data_start, bss_start, entry_address)
     char *new_name, *a_name;
     unsigned data_start, bss_start, entry_address;
{
  int stat;
    
  stat = elf_write_modified_data (a_name, new_name);
  if (stat < 0)
    perror ("emacs: elf_write_modified_data");
  else if (stat > 0)
    fprintf (stderr, "Unspecified error from elf_write_modified_data.\n");
}