* src/alloc.c (free_save_value): Now static.

963ea40f · Paul Eggert · 1a353a14 · 963ea40f · 963ea40f · 963ea40f
Commit 963ea40f authored Jan 15, 2013 by Paul Eggert
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

src/ChangeLog src/ChangeLog +4 -0

src/alloc.c src/alloc.c +2 -1

src/lisp.h src/lisp.h +0 -1

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+2013-01-15  Paul Eggert  <eggert@cs.ucla.edu>
+
+	* alloc.c (free_save_value): Now static.
+
 2013-01-15  Dmitry Antipov  <dmantipov@yandex.ru>
  
 	* keymap.c (map_keymap_internal): Use format_save_value.

--- a/src/alloc.c
+++ b/src/alloc.c
@@ -209,6 +209,7 @@ Lisp_Object Qchar_table_extra_slots;

 static Lisp_Object Qpost_gc_hook;

+static void free_save_value (Lisp_Object);
 static void mark_terminals (void);
 static void gc_sweep (void);
 static Lisp_Object make_pure_vector (ptrdiff_t);
@@ -3417,7 +3418,7 @@ make_save_value (void *pointer, ptrdiff_t integer)
 /* Free a Lisp_Save_Value object.  Do not use this function
   if SAVE contains pointer other than returned by xmalloc.  */

-void
+static void
 free_save_value (Lisp_Object save)
 {
  xfree (XSAVE_POINTER (save, 0));

--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3020,7 +3020,6 @@ extern void display_malloc_warning (void);
 extern ptrdiff_t inhibit_garbage_collection (void);
 extern Lisp_Object format_save_value (const char *, ...);
 extern Lisp_Object make_save_value (void *, ptrdiff_t);
-extern void free_save_value (Lisp_Object);
 extern Lisp_Object build_overlay (Lisp_Object, Lisp_Object, Lisp_Object);
 extern void free_marker (Lisp_Object);
 extern void free_cons (struct Lisp_Cons *);