mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

Make two symbols private to emacs-module.c

Browse source 
* src/lisp.h (allocate_module_function, XSET_MODULE_FUNCTION):
Move from here ...
* src/emacs-module.c: ... to here.
This commit is contained in:
Paul Eggert 2017-06-11 17:02:10 -07:00
parent 3a63d80843
commit d0ff364fe8
2 changed files with 10 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/emacs-module.c
View file

@ -349,6 +349,16 @@ module_non_local_exit_throw (emacs_env *env, emacs_value tag, emacs_value value)
value_to_lisp (value));
}
static struct Lisp_Module_Function *
allocate_module_function (void)
{
return ALLOCATE_PSEUDOVECTOR (struct Lisp_Module_Function,
min_arity, PVEC_MODULE_FUNCTION);
}
#define XSET_MODULE_FUNCTION(var, ptr) \
XSETPSEUDOVECTOR (var, ptr, PVEC_MODULE_FUNCTION)
/* A module function is a pseudovector of subtype
PVEC_MODULE_FUNCTION; see lisp.h for the definition. */

13
src/lisp.h
View file

@ -3925,16 +3925,6 @@ struct Lisp_Module_Function
void *data;
};
INLINE struct Lisp_Module_Function *
allocate_module_function (void)
{
return ALLOCATE_PSEUDOVECTOR (struct Lisp_Module_Function,
/* Name of the first field to be
ignored by GC. */
min_arity,
PVEC_MODULE_FUNCTION);
}
INLINE bool
MODULE_FUNCTIONP (Lisp_Object o)
{
@ -3948,9 +3938,6 @@ XMODULE_FUNCTION (Lisp_Object o)
return XUNTAG (o, Lisp_Vectorlike);
}
#define XSET_MODULE_FUNCTION(var, ptr) \
(XSETPSEUDOVECTOR (var, ptr, PVEC_MODULE_FUNCTION))
#ifdef HAVE_MODULES
/* Defined in alloc.c. */
extern Lisp_Object make_user_ptr (void (*finalizer) (void *), void *p);