procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Paul Eggert 2013-01-15 13:38:58 -08:00
parent 1a353a145d
commit 963ea40fe9
3 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -1,3 +1,7 @@
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.

3
src/alloc.c
View file

@ -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));

1
src/lisp.h
View file

@ -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 *);