From f61bef8be562934b8f2f4a32772567b4f9d3f61b Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 21 Jun 2004 21:51:50 +0000 Subject: [PATCH] (safe_alloca_unwind): New function. --- src/alloc.c | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/alloc.c b/src/alloc.c index 0b80fd5d9e7..897fe910a6e 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -579,6 +579,17 @@ xstrdup (s) } +/* 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, ...). */ -- 2.39.2