# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1202674178 0
# Node ID b2df1fe6ce6d5e5122afe48a0a2c660769429fbb
# Parent  920a9f8f6463914a53c56bcb706057c094e1b718
(struct Lisp_Misc_Any, struct Lisp_Marker)
(struct Lisp_Overlay, struct Lisp_Kboard_Objfwd)
(struct Lisp_Save_Value, struct Lisp_Free): Use enum Lisp_Misc_Type
rather than `int' for the type of `type'.

diff -r 920a9f8f6463 -r b2df1fe6ce6d src/ChangeLog
--- a/src/ChangeLog	Sun Feb 10 20:06:03 2008 +0000
+++ b/src/ChangeLog	Sun Feb 10 20:09:38 2008 +0000
@@ -1,3 +1,10 @@
+2008-02-10  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* lisp.h (struct Lisp_Misc_Any, struct Lisp_Marker)
+	(struct Lisp_Overlay, struct Lisp_Kboard_Objfwd)
+	(struct Lisp_Save_Value, struct Lisp_Free): Use enum Lisp_Misc_Type
+	rather than `int' for the type of `type'.
+
 2008-02-10  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* s/gnu-linux.h: Remove support for non-ELF and linux-1.x.
diff -r 920a9f8f6463 -r b2df1fe6ce6d src/lisp.h
--- a/src/lisp.h	Sun Feb 10 20:06:03 2008 +0000
+++ b/src/lisp.h	Sun Feb 10 20:09:38 2008 +0000
@@ -1133,14 +1133,14 @@
 
 struct Lisp_Misc_Any		/* Supertype of all Misc types.  */
 {
-  int type : 16;		/* = Lisp_Misc_Marker */
+  enum Lisp_Misc_Type type : 16;		/* = Lisp_Misc_Marker */
   unsigned gcmarkbit : 1;
   int spacer : 15;
 };
 
 struct Lisp_Marker
 {
-  int type : 16;		/* = Lisp_Misc_Marker */
+  enum Lisp_Misc_Type type : 16;		/* = Lisp_Misc_Marker */
   unsigned gcmarkbit : 1;
   int spacer : 13;
   /* This flag is temporarily used in the functions
@@ -1292,7 +1292,7 @@
    PLIST is the overlay's property list.  */
 struct Lisp_Overlay
   {
-    int type : 16;	/* = Lisp_Misc_Overlay */
+    enum Lisp_Misc_Type type : 16;	/* = Lisp_Misc_Overlay */
     unsigned gcmarkbit : 1;
     int spacer : 15;
     struct Lisp_Overlay *next;
@@ -1303,7 +1303,7 @@
    current kboard.  */
 struct Lisp_Kboard_Objfwd
   {
-    int type : 16;	/* = Lisp_Misc_Kboard_Objfwd */
+    enum Lisp_Misc_Type type : 16;	/* = Lisp_Misc_Kboard_Objfwd */
     unsigned gcmarkbit : 1;
     int spacer : 15;
     int offset;
@@ -1313,7 +1313,7 @@
    This type of object is used in the arg to record_unwind_protect.  */
 struct Lisp_Save_Value
   {
-    int type : 16;	/* = Lisp_Misc_Save_Value */
+    enum Lisp_Misc_Type type : 16;	/* = Lisp_Misc_Save_Value */
     unsigned gcmarkbit : 1;
     int spacer : 14;
     /* If DOGC is set, POINTER is the address of a memory
@@ -1327,7 +1327,7 @@
 /* A miscellaneous object, when it's on the free list.  */
 struct Lisp_Free
   {
-    int type : 16;	/* = Lisp_Misc_Free */
+    enum Lisp_Misc_Type type : 16;	/* = Lisp_Misc_Free */
     unsigned gcmarkbit : 1;
     int spacer : 15;
     union Lisp_Misc *chain;