update.

[chise/xemacs-chise.git.1] / src / lisp-union.h

diff --git a/src/lisp-union.h b/src/lisp-union.h
index 648f824..e853668 100644 (file)
--- a/src/lisp-union.h
+++ b/src/lisp-union.h
@@ -30,7 +30,7 @@ typedef
 union Lisp_Object
 {
   /* if non-valbits are at lower addresses */
-#if defined(WORDS_BIGENDIAN)
+#ifdef WORDS_BIGENDIAN
   struct
   {
     EMACS_UINT val : VALBITS;
@@ -94,27 +94,36 @@ Lisp_Object;
   xset_var->gu.type = Lisp_Type_Char;  \
   xset_var->gu.val = xset_value;       \
 } while (0)
-# define XSETOBJ(var, vartype, value) do {     \
+# define XSETOBJ(var, value) do {              \
   EMACS_UINT xset_value = (EMACS_UINT) (value);        \
   (var).ui = xset_value;                       \
 } while (0)
 # define XPNTRVAL(x) ((x).ui)
 
-INLINE Lisp_Object make_int (EMACS_INT val);
-INLINE Lisp_Object
+INLINE_HEADER Lisp_Object make_int (EMACS_INT val);
+INLINE_HEADER Lisp_Object
 make_int (EMACS_INT val)
 {
   Lisp_Object obj;
-  XSETINT(obj, val);
+  XSETINT (obj, val);
   return obj;
 }
 
-INLINE Lisp_Object make_char (Emchar val);
-INLINE Lisp_Object
+INLINE_HEADER Lisp_Object make_char (Emchar val);
+INLINE_HEADER Lisp_Object
 make_char (Emchar val)
 {
   Lisp_Object obj;
-  XSETCHAR(obj, val);
+  XSETCHAR (obj, val);
+  return obj;
+}
+
+INLINE_HEADER Lisp_Object wrap_object (void *ptr);
+INLINE_HEADER Lisp_Object
+wrap_object (void *ptr)
+{
+  Lisp_Object obj;
+  XSETOBJ (obj, ptr);
   return obj;
 }