[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d0ff364 1/2: Make two symbols private to emacs-modu
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master d0ff364 1/2: Make two symbols private to emacs-module.c |
Date: |
Sun, 11 Jun 2017 20:05:34 -0400 (EDT) |
branch: master
commit d0ff364fe834f043eb5657f9a85613fbb7bb458e
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
Make two symbols private to emacs-module.c
* src/lisp.h (allocate_module_function, XSET_MODULE_FUNCTION):
Move from here ...
* src/emacs-module.c: ... to here.
---
src/emacs-module.c | 10 ++++++++++
src/lisp.h | 13 -------------
2 files changed, 10 insertions(+), 13 deletions(-)
diff --git a/src/emacs-module.c b/src/emacs-module.c
index afb75e3..adb09c0 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -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. */
diff --git a/src/lisp.h b/src/lisp.h
index ee70389..900c7c5 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -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);