diff options
| author | Eli Zaretskii | 2015-11-22 20:19:13 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2015-11-22 20:19:13 +0200 |
| commit | 9f0d19f24cd455765123a378a5e2f3e505cbb5ac (patch) | |
| tree | 03cf4da3e7c85e582ecea12136d07a3c940e093f /src | |
| parent | 2a4362ba622a53683e9c6ea3e1b441d6f59af08f (diff) | |
| download | emacs-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.h | 16 |
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. */ | ||
| 925 | INLINE enum Lisp_Type | ||
| 926 | XTYPE (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. */ |
| 925 | INLINE struct Lisp_Symbol * | 933 | INLINE struct Lisp_Symbol * |
| 926 | XSYMBOL (Lisp_Object a) | 934 | XSYMBOL (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. */ | ||
| 935 | INLINE enum Lisp_Type | ||
| 936 | XTYPE (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. */ |
| 943 | INLINE void * | 943 | INLINE void * |
| 944 | XUNTAG (Lisp_Object a, int type) | 944 | XUNTAG (Lisp_Object a, int type) |