Mercurial > emacs
view lisp/sb-pg.xpm @ 39572:715a67381594
(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.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 05 Oct 2001 09:42:02 +0000 |
| parents | 6fb6afe9f97a |
| children | c2a09ac7b7b1 |
line wrap: on
line source
/* XPM */ static char * sb_file_xpm[] = { "20 15 4 1", " c None", ". c #828282", "+ c #000000", "@ c #FFFFFF", " ............ ", " .++++++++++++.", " .++@@@@@@@@@@+.", " .+@+@@@@@@@@@@+.", " .+@@+@@@@@@@@@@+.", " .+@@@+@@@@@@@@@@+.", " .+@@@@+@@@@@@@@@@+.", ".+++++++@@@@@@@@@@+.", ".+@@@@@@@@@@@@@@@@+.", ".+@@@@@@@@@@@@@@@@+.", ".+@@@@@@@@@@@@@@@@+.", ".+@@@@@@@@@@@@@@@@+.", ".+@@@@@@@@@@@@@@@@+.", ".++++++++++++++++++.", " .................. "};