Reuben Thomas wrote:
> Working on the regex documentation, I scanned gnulib for "#ifdef emacs",
> and found some instances (though not in the regex code). Should they be
> there? Mostly in alloca.c
And since version 23.1 (2009), Emacs does not use alloca.c any more. Therefore
this code is no longer needed.
2022-05-11 Bruno Haible <br...@clisp.org>
alloca: Remove old code for Emacs, unused since 2009.
Reported by Reuben Thomas <r...@sc3d.org> in
<https://lists.gnu.org/archive/html/bug-gnulib/2022-05/msg00032.html>.
* lib/alloca.c: Remove Emacs specific code.
diff --git a/lib/alloca.c b/lib/alloca.c
index 48802832a8..5eb16a9ff5 100644
--- a/lib/alloca.c
+++ b/lib/alloca.c
@@ -30,17 +30,6 @@
#include <string.h>
#include <stdlib.h>
-#ifdef emacs
-# include "lisp.h"
-# include "blockinput.h"
-# ifdef EMACS_FREE
-# undef free
-# define free EMACS_FREE
-# endif
-#else
-# define memory_full() abort ()
-#endif
-
/* If compiling with GCC or clang, this file is not needed. */
#if !(defined __GNUC__ || defined __clang__)
@@ -48,22 +37,6 @@
there must be some other way alloca is supposed to work. */
# ifndef alloca
-# ifdef emacs
-# ifdef static
-/* actually, only want this if static is defined as ""
- -- this is for usg, in which emacs must undefine static
- in order to make unexec workable
- */
-# ifndef STACK_DIRECTION
-you
-lose
--- must know STACK_DIRECTION at compile-time
-/* Using #error here is not wise since this file should work for
- old and obscure compilers. */
-# endif /* STACK_DIRECTION undefined */
-# endif /* static */
-# endif /* emacs */
-
/* Define STACK_DIRECTION if you know the direction of stack
growth for your system; otherwise it will be automatically
deduced at run-time.
@@ -145,10 +118,6 @@ alloca (size_t size)
{
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))
@@ -163,10 +132,6 @@ alloca (size_t size)
break; /* Rest are not deeper. */
last_alloca_header = hp; /* -> last valid storage. */
-
-# ifdef emacs
- UNBLOCK_INPUT;
-# endif
}
if (size == 0)
