Fix unoptimized builds
* src/lisp.h (XTYPE): Move before XSYMBOL, to fix unoptimized builds.
This commit is contained in:
parent
2a4362ba62
commit
9f0d19f24c
1 changed files with 8 additions and 8 deletions
16
src/lisp.h
16
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)
|
||||
|
|
Loading…
Add table
Reference in a new issue