Commit 1c5ca8b6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(VALMASK, GCTYPEMASK, MARKBIT, ARRAY_MARK_FLAG)

(PSEUDOVECTOR_FLAG, enum pvec_type, PSEUDOVECTOR_SIZE_MASK):
Define regardless of NO_UNION_TYPE.
parent e8d0501f
...@@ -181,12 +181,11 @@ Lisp_Object; ...@@ -181,12 +181,11 @@ Lisp_Object;
#endif /* NO_UNION_TYPE */ #endif /* NO_UNION_TYPE */
/* If union type is not wanted, define Lisp_Object as just a number /* If union type is not wanted, define Lisp_Object as just a number. */
and define the macros below to extract fields by shifting */
#ifdef NO_UNION_TYPE #ifdef NO_UNION_TYPE
#define Lisp_Object EMACS_INT #define Lisp_Object EMACS_INT
#endif /* NO_UNION_TYPE */
#ifndef VALMASK #ifndef VALMASK
#define VALMASK ((((EMACS_INT) 1)<<VALBITS) - 1) #define VALMASK ((((EMACS_INT) 1)<<VALBITS) - 1)
...@@ -243,8 +242,6 @@ enum pvec_type ...@@ -243,8 +242,6 @@ enum pvec_type
/* For convenience, we also store the number of elements in these bits. */ /* For convenience, we also store the number of elements in these bits. */
#define PSEUDOVECTOR_SIZE_MASK 0x1ff #define PSEUDOVECTOR_SIZE_MASK 0x1ff
#endif /* NO_UNION_TYPE */
/* These macros extract various sorts of values from a Lisp_Object. /* These macros extract various sorts of values from a Lisp_Object.
For example, if tem is a Lisp_Object whose type is Lisp_Cons, For example, if tem is a Lisp_Object whose type is Lisp_Cons,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment