From: Kim F. Storm <storm@cua.dk>
Date: Tue, 22 Jun 2004 13:56:05 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: ttn-vms-21-2-B4~5678
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef54b2d09b43983c17591218be14f5bd8e0850ed;p=emacs.git

*** empty log message ***
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 4310a82ca2b..22a4d4fdf0d 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,17 @@
+2004-06-22  Kim F. Storm  <storm@cua.dk>
+
+	* lisp.h (struct Lisp_Save_Value): New member dogc.
+	(SAFE_ALLOCA_LISP): Change second arg to number of elements.
+	Set dogc member in Lisp_Save_Value object so it will be GC'ed.
+	(SAFE_FREE_LISP): New macro.
+
+	* alloc.c (safe_alloca_unwind): Clear dogc and pointer members.
+	(make_save_value): Init new dogc member.
+	(mark_object): Mark Lisp_Save_Value pointer array if dogc is set.
+
+	* fns.c (Fmapconcat, Fmapcar): Use new SAFE_ALLOCA_LISP and
+	SAFE_FREE_LISP macros.
+
 2004-06-22  Kim F. Storm  <storm@cua.dk>
 
 	* lisp.h (SAFE_ALLOCA_LISP): New macro to allocate Lisp_Objects.