* alloc.c (Fgarbage_collect): Fix compilation with

GC_MARK_STACK == GC_USE_GCPROS_AS_BEFORE.

diff --git a/src/ChangeLog b/src/ChangeLog
index a71d34209b2529b6c558cc4c6521f3b569cda12b..7665ccb7083061132ffc19703ca388cc21fabae0 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-29  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       * alloc.c (Fgarbage_collect): Fix compilation with
+       GC_MARK_STACK == GC_USE_GCPROS_AS_BEFORE.
+
 2014-05-29  Paul Eggert  <eggert@cs.ucla.edu>
 
        * frame.c, frame.h (frame_char_to_pixel_position)

diff --git a/src/alloc.c b/src/alloc.c
index d221cc7e967cf3dfe46c564d7d7c1f6246ce5f9b..ab383f34f04ecd7c3b043516b8c17c50b6ba3f6d 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5847,8 +5847,13 @@ See Info node `(elisp)Garbage Collection'.  */)
   end = stack_grows_down_p ? (char *) &j + sizeof j : (char *) &j;
 #endif /* not GC_SAVE_REGISTERS_ON_STACK */
 #endif /* not HAVE___BUILTIN_UNWIND_INIT */
-#endif /* GC_MARK_STACK */
   return garbage_collect_1 (end);
+#elif (GC_MARK_STACK == GC_USE_GCPROS_AS_BEFORE)
+  /* Old GCPROs-based method without stack marking.  */
+  return garbage_collect_1 (NULL);
+#else  
+  emacs_abort ();
+#endif /* GC_MARK_STACK */  
 }
 
 /* Mark Lisp objects in glyph matrix MATRIX.  Currently the