diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2002-07-22 00:08:23 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2002-07-22 00:08:23 +0000 |
| commit | 45272d161a3a8f92bb637346b3456b7a2ea32254 (patch) | |
| tree | 7e12ceafe7c130f43eb3d272b25c0867ae59b061 /src/m | |
| parent | de43b3edaff7220a76bb64f649ad033afa9ab170 (diff) | |
| download | emacs-45272d161a3a8f92bb637346b3456b7a2ea32254.tar.gz | |
* m/gec63.h (VALBITS, VALAMASK, XTYPE, XSETTYPE, XPNTR, XSET,
ARRAY_MARK_FLAG): Deleted.
(DATA_SEG_BITS): Define.
Diffstat (limited to 'src/m')
| -rw-r--r-- | src/m/gec63.h | 18 |
1 files changed, 2 insertions, 16 deletions
diff --git a/src/m/gec63.h b/src/m/gec63.h index 0a5877bb09e..679a5a8a367 100644 --- a/src/m/gec63.h +++ b/src/m/gec63.h @@ -50,20 +50,6 @@ Boston, MA 02111-1307, USA. */ #define NO_REMAP -/* The rest of the file certainly needs updating for Emacs 19.29! */ +/* This needs verification! */ -/* Define sizes of portions of a Lisp_Object. */ -#define VALBITS 24 - -#define VALAMASK (((1<<VALBITS) - 1)| 0xF0000000L) - -#define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) -#define XSETTYPE(a, b) ((a) = ((a) & VALAMASK) + ((int)(b) << VALBITS)) - -#define XPNTR(a) ((a) & VALAMASK) - -#define XSET(var, type, ptr) \ - ((var) = ((int)(type) << VALBITS) + ((int) (ptr) & VALAMASK)) - -/* Move some garbage-collector flag bits to different bit positions. */ -#define ARRAY_MARK_FLAG (1 << 27) +#define DATA_SEG_BITS 0xF0000000L |