Mercurial > emacs

comparison src/alloca.c @ 50916:e6d6dc2aa074

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Test DO_BLOCK_INPUT rather than `emacs' for use of BLOCK_INPUT and inclusion of lisp.h and blockinput.h.
author Richard M. Stallman <rms@gnu.org>
date Fri, 09 May 2003 13:54:14 +0000
parents 6cea9f00471e
children 34f0347e6e45
comparison
equal deleted inserted replaced
50915:76fd88f6c790 50916:e6d6dc2aa074
30 #endif 30 #endif
31 #ifdef HAVE_STDLIB_H 31 #ifdef HAVE_STDLIB_H
32 # include <stdlib.h> 32 # include <stdlib.h>
33 #endif 33 #endif
34 34
35 #ifdef emacs 35 #ifdef DO_BLOCK_INPUT
36 # include "lisp.h" 36 # include "lisp.h"
37 # include "blockinput.h" 37 # include "blockinput.h"
38 #endif 38 #endif
39 39
40 /* If compiling with GCC 2, this file's not needed. */ 40 /* If compiling with GCC 2, this file's not needed. */
194 was allocated from deeper in the stack than currently. */ 194 was allocated from deeper in the stack than currently. */
195 195
196 { 196 {
197 register header *hp; /* Traverses linked list. */ 197 register header *hp; /* Traverses linked list. */
198 198
199 # ifdef emacs 199 # ifdef DO_BLOCK_INPUT
200 BLOCK_INPUT; 200 BLOCK_INPUT;
201 # endif 201 # endif
202 202
203 for (hp = last_alloca_header; hp != NULL;) 203 for (hp = last_alloca_header; hp != NULL;)
204 if ((STACK_DIR > 0 && hp->h.deep > depth) 204 if ((STACK_DIR > 0 && hp->h.deep > depth)
213 else 213 else
214 break; /* Rest are not deeper. */ 214 break; /* Rest are not deeper. */
215 215
216 last_alloca_header = hp; /* -> last valid storage. */ 216 last_alloca_header = hp; /* -> last valid storage. */
217 217
218 # ifdef emacs 218 # ifdef DO_BLOCK_INPUT
219 UNBLOCK_INPUT; 219 UNBLOCK_INPUT;
220 # endif 220 # endif
221 } 221 }
222 222
223 if (size == 0) 223 if (size == 0)