]> code.delx.au - gnu-emacs/commitdiff
Fix unoptimized builds
authorEli Zaretskii <eliz@gnu.org>
Sun, 22 Nov 2015 18:19:13 +0000 (20:19 +0200)
committerEli Zaretskii <eliz@gnu.org>
Sun, 22 Nov 2015 18:19:13 +0000 (20:19 +0200)
* src/lisp.h (XTYPE): Move before XSYMBOL, to fix unoptimized
builds.

src/lisp.h

index 9af13a8555790350afdd3e847c007f2b06f072e9..4bf7f38af80c621a47b6c916d92170930056ec21 100644 (file)
@@ -921,6 +921,14 @@ XFASTINT (Lisp_Object a)
   return n;
 }
 
+/* Extract A's type.  */
+INLINE enum Lisp_Type
+XTYPE (Lisp_Object a)
+{
+  EMACS_UINT i = XLI (a);
+  return USE_LSB_TAG ? i & ~VALMASK : i >> VALBITS;
+}
+
 /* Extract A's value as a symbol.  */
 INLINE struct Lisp_Symbol *
 XSYMBOL (Lisp_Object a)
@@ -931,14 +939,6 @@ XSYMBOL (Lisp_Object a)
   return p;
 }
 
-/* Extract A's type.  */
-INLINE enum Lisp_Type
-XTYPE (Lisp_Object a)
-{
-  EMACS_UINT i = XLI (a);
-  return USE_LSB_TAG ? i & ~VALMASK : i >> VALBITS;
-}
-
 /* Extract A's pointer value, assuming A's type is TYPE.  */
 INLINE void *
 XUNTAG (Lisp_Object a, int type)