Mercurial > hg > xemacs-beta

changeset 945:7924b28c57a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-01 08:38:32 by michaels] 2002-07-31 Didier Verna <didier@xemacs.org> * file-coding.c (make_coding_system_1): Add missing call to `xfree (newname)'. * fix memory leak introduced by 2002-04-14 Ben Wing <ben@xemacs.org>: alloc.c (Fmake_byte_code): don't xnew_array of size 0. (sweep_compiled_functions): define ADDITIONAL_FREE_compiled_function to free the args field when needed.
author michaels
date Thu, 01 Aug 2002 08:38:48 +0000
parents d7603d225813
children a9077bb4dbf1
files src/ChangeLog src/alloc.c src/file-coding.c
diffstat 3 files changed, 16 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Thu Aug 01 08:33:11 2002 +0000
+++ b/src/ChangeLog	Thu Aug 01 08:38:48 2002 +0000
@@ -1,3 +1,14 @@
+2002-07-31  Didier Verna  <didier@xemacs.org>
+
+	* file-coding.c (make_coding_system_1): Add missing call to
+	`xfree (newname)'.
+
+	* fix memory leak introduced by
+	2002-04-14  Ben Wing  <ben@xemacs.org>:
+	alloc.c (Fmake_byte_code): don't xnew_array of size 0.
+	(sweep_compiled_functions): define ADDITIONAL_FREE_compiled_function
+	to free the args field when needed.
+
 2002-07-31  David Bush  <David.Bush@intel.com>
 
 	* eldap.c: Add the dumpable-flag to the USE_KKCC version of 
--- a/src/alloc.c	Thu Aug 01 08:33:11 2002 +0000
+++ b/src/alloc.c	Thu Aug 01 08:38:48 2002 +0000
@@ -1537,7 +1537,8 @@
 	}
     }
   
-    f->args = xnew_array (Lisp_Object, totalargs);
+    if (totalargs)
+      f->args = xnew_array (Lisp_Object, totalargs);
 
     {
       LIST_LOOP_2 (arg, arglist)
@@ -3621,7 +3622,8 @@
 sweep_compiled_functions (void)
 {
 #define UNMARK_compiled_function(ptr) UNMARK_RECORD_HEADER (&((ptr)->lheader))
-#define ADDITIONAL_FREE_compiled_function(ptr)
+#define ADDITIONAL_FREE_compiled_function(ptr) \
+  if (ptr->args_in_array) xfree (ptr->args)
 
   SWEEP_FIXED_TYPE_BLOCK (compiled_function, Lisp_Compiled_Function);
 }
--- a/src/file-coding.c	Thu Aug 01 08:33:11 2002 +0000
+++ b/src/file-coding.c	Thu Aug 01 08:38:48 2002 +0000
@@ -1176,6 +1176,7 @@
 
       newname = emacs_sprintf_malloc (NULL, "Int%d", coding_system_tick);
       defmnem = build_intstring (newname);
+      xfree (newname);
     }
   else
     CHECK_SYMBOL (name_or_existing);