From 4fab758d0bbda830bd39d895dc98f970150ba5bf Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 5 Oct 2001 09:45:30 +0000 Subject: [PATCH] (fatal_error_signal_hook): New variable. (fatal_error_signal): Call that function. (Fdump_emacs_data, Fdump_emacs): Call check_pure_size. --- src/emacs.c | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/src/emacs.c b/src/emacs.c index 924eeee8cf..7ac6c31be0 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -292,6 +292,12 @@ int fatal_error_code; /* Nonzero if handling a fatal error already */ int fatal_error_in_progress; +/* If non-null, call this function from fata_error_signal before + committing suicide. */ + +void (*fatal_error_signal_hook) P_ ((void)); + + #ifdef SIGUSR1 SIGTYPE handle_USR1_signal (sig) @@ -351,6 +357,10 @@ fatal_error_signal (sig) #ifndef MSDOS sigunblock (sigmask (fatal_error_code)); #endif + + if (fatal_error_signal_hook) + fatal_error_signal_hook (); + kill (getpid (), fatal_error_code); #endif /* not VMS */ } @@ -1940,6 +1950,7 @@ This function exists on systems that use HAVE_SHM.") extern char my_edata[]; Lisp_Object tem; + check_pure_size (); CHECK_STRING (filename, 0); filename = Fexpand_file_name (filename, Qnil); @@ -1973,7 +1984,9 @@ You must run Emacs in batch mode in order to dump it.") extern char my_edata[]; Lisp_Object tem; Lisp_Object symbol; - int count = specpdl_ptr - specpdl; + int count = BINDING_STACK_SIZE (); + + check_pure_size (); if (! noninteractive) error ("Dumping Emacs works only in batch mode"); -- 2.20.1