From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 22 Jul 2002 00:08:23 +0000 (+0000)
Subject: * m/gec63.h (VALBITS, VALAMASK, XTYPE, XSETTYPE, XPNTR, XSET,
X-Git-Tag: ttn-vms-21-2-B4~13927
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a1f58481270a19e0316834c39795ba70ac18b56;p=emacs.git

* m/gec63.h (VALBITS, VALAMASK, XTYPE, XSETTYPE, XPNTR, XSET,
ARRAY_MARK_FLAG): Deleted.
(DATA_SEG_BITS): Define.
---

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