From e81976428cc657a9c7370a14d7ad817257642eff Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 11 Apr 1995 20:19:46 +0000 Subject: [PATCH] (inhibit_garbage_collection): New function. --- src/alloc.c | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/src/alloc.c b/src/alloc.c index 2436a112ea6..32c5a569fcb 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -155,6 +155,8 @@ int stack_copy_size; /* Non-zero means ignore malloc warnings. Set during initialization. */ int ignore_warnings; +Lisp_Object Qgc_cons_threshold; + static void mark_object (), mark_buffer (), mark_kboards (); static void clear_marks (), gc_sweep (); static void compact_strings (); @@ -1316,6 +1318,18 @@ int total_free_conses, total_free_markers, total_free_symbols; int total_free_floats, total_floats; #endif /* LISP_FLOAT_TYPE */ +/* Temporarily prevent garbage collection. */ + +int +inhibit_garbage_collection () +{ + int count = specpdl_ptr - specpdl; + + specbind (Qgc_cons_threshold, make_number ((1 << (VALBITS - 1)) - 1)); + + return count; +} + DEFUN ("garbage-collect", Fgarbage_collect, Sgarbage_collect, 0, 0, "", "Reclaim storage for Lisp objects no longer needed.\n\ Returns info on amount of space in use:\n\ @@ -2419,6 +2433,9 @@ which includes both saved text and other data."); = Fcons (Qerror, Fcons (build_string ("Memory exhausted--use M-x save-some-buffers RET"), Qnil)); staticpro (&memory_signal_data); + staticpro (&Qgc_cons_threshold); + Qgc_cons_threshold = intern ("gc-cons-threshold"); + defsubr (&Scons); defsubr (&Slist); defsubr (&Svector); -- 2.39.5