mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-13 09:30:24 -08:00
Code Issues Projects Releases Wiki Activity

(VALMASK, GCTYPEMASK, MARKBIT, ARRAY_MARK_FLAG)

Browse source 
(PSEUDOVECTOR_FLAG, enum pvec_type, PSEUDOVECTOR_SIZE_MASK):
Define regardless of NO_UNION_TYPE.
This commit is contained in:
Richard M. Stallman 1997-06-02 02:34:00 +00:00
parent e8d0501f72
commit 1c5ca8b608
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/lisp.h
View file

@ -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
/* 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,