Mercurial > emacs
changeset 56187:e3720731abbb
(safe_alloca_unwind): New function.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 21 Jun 2004 21:51:50 +0000 |
| parents | 8107f309570c |
| children | 7997f11a2377 |
| files | src/alloc.c |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Mon Jun 21 21:51:18 2004 +0000 +++ b/src/alloc.c Mon Jun 21 21:51:50 2004 +0000 @@ -579,6 +579,17 @@ } +/* Unwind for SAFE_ALLOCA */ + +Lisp_Object +safe_alloca_unwind (arg) + Lisp_Object arg; +{ + xfree (XSAVE_VALUE (arg)->pointer); + return Qnil; +} + + /* Like malloc but used for allocating Lisp data. NBYTES is the number of bytes to allocate, TYPE describes the intended use of the allcated memory block (for strings, for conses, ...). */