From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 3 Jan 1995 01:35:49 +0000 (+0000)
Subject: (enum Lisp_Type): Don't use trailing comma.
X-Git-Tag: emacs-19.34~5535
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2ba196c2a13614f3b9ae21695218a04211ce444;p=emacs.git

(enum Lisp_Type): Don't use trailing comma.
(VALBITS, GCTYPEBITS): Define these regardless of NO_UNION_TYPE.
[!NO_UNION_TYPE] (union Lisp_Object): Use symbolic constants.
---

diff --git a/src/lisp.h b/src/lisp.h
index 98126d48356..9fde4b20281 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -60,7 +60,7 @@ enum Lisp_Type
 #endif /* LISP_FLOAT_TYPE */
 
     /* This is not a type code.  It is for range checking.  */
-    Lisp_Type_Limit,
+    Lisp_Type_Limit
   };
 
 /* This is the set of datatypes that share a common structure.
@@ -83,6 +83,15 @@ enum Lisp_Misc_Type
     Lisp_Misc_Limit
   };
 
+/* These values are overridden by the m- file on some machines.  */
+#ifndef VALBITS
+#define VALBITS 28
+#endif
+
+#ifndef GCTYPEBITS
+#define GCTYPEBITS 3
+#endif
+
 #ifndef NO_UNION_TYPE
 
 #ifndef WORDS_BIG_ENDIAN
@@ -98,18 +107,18 @@ union Lisp_Object
 
     struct
       {
-	int val: 24;
-	char type;
+	int val: VALBITS;
+	int type: GCTYPEBITS+1;
       } s;
     struct
       {
-	unsigned int val: 24;
-	char type;
+	unsigned int val: VALBITS;
+	int type: GCTYPEBITS+1;
       } u;
     struct
       {
-	unsigned int val: 24;
-	enum Lisp_Type type: 7;
+	unsigned int val: VALBITS;
+	enum Lisp_Type type: GCTYPEBITS;
 	/* The markbit is not really part of the value of a Lisp_Object,
 	   and is always zero except during garbage collection.  */
 	unsigned int markbit: 1;
@@ -128,21 +137,21 @@ union Lisp_Object
 
     struct
       {
-	char type;
-	int val: 24;
+	int type: GCTYPEBITS+1;
+	int val: VALBITS;
       } s;
     struct
       {
-	char type;
-	unsigned int val: 24;
+	int type: GCTYPEBITS+1;
+	unsigned int val: VALBITS;
       } u;
     struct
       {
 	/* The markbit is not really part of the value of a Lisp_Object,
 	   and is always zero except during garbage collection.  */
 	unsigned int markbit: 1;
-	enum Lisp_Type type: 7;
-	unsigned int val: 24;
+	enum Lisp_Type type: GCTYPEBITS;
+	unsigned int val: VALBITS;
       } gu;
   }
 Lisp_Object;
@@ -159,15 +168,6 @@ Lisp_Object;
 
 #define Lisp_Object EMACS_INT
 
-/* These values are overridden by the m- file on some machines.  */
-#ifndef VALBITS
-#define VALBITS 28
-#endif
-
-#ifndef GCTYPEBITS
-#define GCTYPEBITS 3
-#endif
-
 #ifndef VALMASK
 #define VALMASK ((((EMACS_INT) 1)<<VALBITS) - 1)
 #endif