(Fdump_emacs_data, Fdump_emacs): Call check_pure_size.

diff --git a/src/emacs.c b/src/emacs.c
index 924eeee8cf945e6e8d5e44fe614875c9410bfa2b..5e00e8f4e549a588f75c693dccf4c17405b9740b 100644 (file)
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1940,6 +1940,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 +1974,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");