procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(SAFE_ALLOCA_LISP): New macro to allocate Lisp_Objects.

Browse source 
Temporarily inhibits GC if memory is xmalloc'ed, as the Lisp_Objects
in that memory area are unknown to GC.  Add comments.
This commit is contained in:
Kim F. Storm 2004-06-21 22:35:29 +00:00
parent 3d33d9939e
commit a9e6baccec
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/lisp.h
View file

@ -3256,6 +3256,8 @@ extern Lisp_Object safe_alloca_unwind (Lisp_Object);
#define USE_SAFE_ALLOCA \
int sa_count = SPECPDL_INDEX ()
/* SAFE_ALLOCA allocates a simple buffer. */
#define SAFE_ALLOCA(buf, type, size) \
do { \
if ((size) < MAX_ALLOCA) \
@ -3268,6 +3270,24 @@ extern Lisp_Object safe_alloca_unwind (Lisp_Object);
} \
} while (0)
/* SAFE_ALLOCA_LISP allocates an array of Lisp_Objects.
Temporarily inhibits GC since that array is unknow to GC. */
#define SAFE_ALLOCA_LISP(buf, size) \
do { \
if ((size) < MAX_ALLOCA) \
buf = (Lisp_Object *) alloca (size); \
else \
{ \
buf = (Lisp_Object *) xmalloc (size); \
inhibit_garbage_collection(); \
record_unwind_protect (safe_alloca_unwind, \
make_save_value (buf, 0)); \
} \
} while (0)
/* SAFE_FREE frees xmalloced memory and enables GC as needed. */
#define SAFE_FREE(size) \
do { \
if ((size) >= MAX_ALLOCA) \