Mercurial > emacs
view src/unexfx2800.c @ 1300:b13b79e28eb5
* alloc.c: #include "intervals.h".
(init_intervals, make_interval,
mark_interval, mark_interval_tree): New functions conditionally
defined.
(make_uninit_string): Call INITIALIZE_INTERVAL.
(INIT_INTERVALS, UNMARK_BALANCE_INTERVALS, MARK_INTERVAL_TREE):
New macros, conditionally defined.
(mark_object): Call MARK_INTERVAL_TREE in case Lisp_String.
(gc_sweep): If text properties are in use, place all unmarked
intervals on the free list. Call UNMARK_BALANCE_INTERVALS on
`buffer->intervals' when unmarking `buffer'.
(compact_strings): Include INTERVAL_PTR_SIZE in calculation for
target of bcopy when relocating strings.
(init_alloc_once): Call INIT_INTERVALS.
(make_pure_string): Include INTERVAL_PTR_SIZE in calculation of
`size'.
author | Joseph Arceneaux <jla@gnu.org> |
---|---|
date | Fri, 02 Oct 1992 19:59:42 +0000 |
parents | 79ea818b6aed |
children |
line wrap: on
line source
/* 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"); }