]> code.delx.au - gnu-emacs/commit
(purebeg, pure_size, pure_bytes_used_before_overflow):
authorGerd Moellmann <gerd@gnu.org>
Fri, 5 Oct 2001 09:42:02 +0000 (09:42 +0000)
committerGerd Moellmann <gerd@gnu.org>
Fri, 5 Oct 2001 09:42:02 +0000 (09:42 +0000)
commit9e713715867e30e0689601ae1d10f0896eebbebd
tree60036461a0c6934910fbadd5f68c537c7cf46546
parent26236f6d9c903a219fb1a1000f7fce17cc2bf5c3
(purebeg, pure_size, pure_bytes_used_before_overflow):
New variables.
(init_alloc_once): Initialize new variables.
(PURE_POINTER_P): Use new variables.
(pure_alloc): If pure storage overflows, allocate from the heap.
(check_pure_size): New function.
(Fgarbage_collect): Don't GC if pure storage has overflowed.

(Vpost_gc_hook, Qpost_gc_hook): New variables.
(syms_of_alloc): DEFVAR_LISP post-gc-hook, initialize
Qpost_gc_hook.
(Fgarbage_collect): Run post-gc-hook.

(Fmake_symbol): Adapt to changes of struct Lisp_Symbol.
src/alloc.c