diff src/alloc.c @ 56187:e3720731abbb

(safe_alloca_unwind): New function.

--- 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, ...).  */