From: Kim F. Storm <storm@cua.dk>
Date: Mon, 21 Jun 2004 21:51:50 +0000 (+0000)
Subject: (safe_alloca_unwind): New function.
X-Git-Tag: ttn-vms-21-2-B4~5692
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f61bef8be562934b8f2f4a32772567b4f9d3f61b;p=emacs.git

(safe_alloca_unwind): New function.
---

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