From 343f300f5f29c7d9f45b5247f89e353f0aa5e2d5 Mon Sep 17 00:00:00 2001 From: Bruno Haible Date: Wed, 11 May 2022 13:00:53 +0200 Subject: [PATCH] alloca: Remove old code for Emacs, unused since 2009. Reported by Reuben Thomas in . * lib/alloca.c: Remove Emacs specific code. --- ChangeLog | 7 +++++++ lib/alloca.c | 35 ----------------------------------- 2 files changed, 7 insertions(+), 35 deletions(-) diff --git a/ChangeLog b/ChangeLog index ea2c24dee1..f4e24d4157 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2022-05-11 Bruno Haible + + alloca: Remove old code for Emacs, unused since 2009. + Reported by Reuben Thomas in + . + * lib/alloca.c: Remove Emacs specific code. + 2022-05-05 Paul Eggert libc-config: update to match cdefs 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 #include -#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) -- 2.39.5