From 963ea40fe96634a01b24aef4fc39acf9a4236eb7 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 15 Jan 2013 13:38:58 -0800 Subject: [PATCH] * src/alloc.c (free_save_value): Now static. --- src/ChangeLog | 4 ++++ src/alloc.c | 3 ++- src/lisp.h | 1 - 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 4574d3fe23d..115b8d42915 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2013-01-15 Paul Eggert + + * alloc.c (free_save_value): Now static. + 2013-01-15 Dmitry Antipov * keymap.c (map_keymap_internal): Use format_save_value. diff --git a/src/alloc.c b/src/alloc.c index b83b621bc7d..7275a01bb73 100644 --- 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)); diff --git a/src/lisp.h b/src/lisp.h index 1ff8f83270b..40e4821bc10 100644 --- 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 *); -- 2.39.5