aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorEli Zaretskii2015-11-22 20:19:13 +0200
committerEli Zaretskii2015-11-22 20:19:13 +0200
commit9f0d19f24cd455765123a378a5e2f3e505cbb5ac (patch)
tree03cf4da3e7c85e582ecea12136d07a3c940e093f /src
parent2a4362ba622a53683e9c6ea3e1b441d6f59af08f (diff)
downloademacs-9f0d19f24cd455765123a378a5e2f3e505cbb5ac.tar.gz
emacs-9f0d19f24cd455765123a378a5e2f3e505cbb5ac.zip
Fix unoptimized builds
* src/lisp.h (XTYPE): Move before XSYMBOL, to fix unoptimized builds.
Diffstat (limited to 'src')
-rw-r--r--src/lisp.h16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/lisp.h b/src/lisp.h
index 9af13a85557..4bf7f38af80 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -921,6 +921,14 @@ XFASTINT (Lisp_Object a)
921 return n; 921 return n;
922} 922}
923 923
924/* Extract A's type. */
925INLINE enum Lisp_Type
926XTYPE (Lisp_Object a)
927{
928 EMACS_UINT i = XLI (a);
929 return USE_LSB_TAG ? i & ~VALMASK : i >> VALBITS;
930}
931
924/* Extract A's value as a symbol. */ 932/* Extract A's value as a symbol. */
925INLINE struct Lisp_Symbol * 933INLINE struct Lisp_Symbol *
926XSYMBOL (Lisp_Object a) 934XSYMBOL (Lisp_Object a)
@@ -931,14 +939,6 @@ XSYMBOL (Lisp_Object a)
931 return p; 939 return p;
932} 940}
933 941
934/* Extract A's type. */
935INLINE enum Lisp_Type
936XTYPE (Lisp_Object a)
937{
938 EMACS_UINT i = XLI (a);
939 return USE_LSB_TAG ? i & ~VALMASK : i >> VALBITS;
940}
941
942/* Extract A's pointer value, assuming A's type is TYPE. */ 942/* Extract A's pointer value, assuming A's type is TYPE. */
943INLINE void * 943INLINE void *
944XUNTAG (Lisp_Object a, int type) 944XUNTAG (Lisp_Object a, int type)