# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770579140 0
# Node ID 5be3332469e7dfa8c93e064b50ad01a92c208168
# Parent  4a427472e21fa28d6250df9a472d71a3e87a30e5
[emacs]: Block input around the garbage reclamation.
Include blockinput.h.

diff -r 4a427472e21f -r 5be3332469e7 src/alloca.c
--- a/src/alloca.c	Thu Jun 02 16:29:05 1994 +0000
+++ b/src/alloca.c	Thu Jun 02 17:45:40 1994 +0000
@@ -29,6 +29,10 @@
 #endif
 #endif
 
+#ifdef emacs
+#include "blockinput.h"
+#endif
+
 /* If compiling with GCC 2, this file's not needed.  */
 #if !defined (__GNUC__) || __GNUC__ < 2
 
@@ -176,6 +180,10 @@
   {
     register header *hp;	/* Traverses linked list.  */
 
+#ifdef emacs
+    BLOCK_INPUT;
+#endif
+
     for (hp = last_alloca_header; hp != NULL;)
       if ((STACK_DIR > 0 && hp->h.deep > depth)
 	  || (STACK_DIR < 0 && hp->h.deep < depth))
@@ -190,6 +198,10 @@
 	break;			/* Rest are not deeper.  */
 
     last_alloca_header = hp;	/* -> last valid storage.  */
+
+#ifdef emacs
+    UNBLOCK_INPUT;
+#endif
   }
 
   if (size == 0)