From 9f0d19f24cd455765123a378a5e2f3e505cbb5ac Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 22 Nov 2015 20:19:13 +0200 Subject: [PATCH] Fix unoptimized builds * src/lisp.h (XTYPE): Move before XSYMBOL, to fix unoptimized builds. --- src/lisp.h | 16 ++++++++-------- 1 file 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) 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) -- 2.39.5