Commit eac1939a authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(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'.
parent e28e32b0
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> 2008-02-10 Dan Nicolaescu <dann@ics.uci.edu>
* s/gnu-linux.h: Remove support for non-ELF and linux-1.x. * s/gnu-linux.h: Remove support for non-ELF and linux-1.x.
......
...@@ -1133,14 +1133,14 @@ struct Lisp_Hash_Table ...@@ -1133,14 +1133,14 @@ struct Lisp_Hash_Table
struct Lisp_Misc_Any /* Supertype of all Misc types. */ 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; unsigned gcmarkbit : 1;
int spacer : 15; int spacer : 15;
}; };
struct Lisp_Marker struct Lisp_Marker
{ {
int type : 16; /* = Lisp_Misc_Marker */ enum Lisp_Misc_Type type : 16; /* = Lisp_Misc_Marker */
unsigned gcmarkbit : 1; unsigned gcmarkbit : 1;
int spacer : 13; int spacer : 13;
/* This flag is temporarily used in the functions /* This flag is temporarily used in the functions
...@@ -1292,7 +1292,7 @@ struct Lisp_Buffer_Local_Value ...@@ -1292,7 +1292,7 @@ struct Lisp_Buffer_Local_Value
PLIST is the overlay's property list. */ PLIST is the overlay's property list. */
struct Lisp_Overlay struct Lisp_Overlay
{ {
int type : 16; /* = Lisp_Misc_Overlay */ enum Lisp_Misc_Type type : 16; /* = Lisp_Misc_Overlay */
unsigned gcmarkbit : 1; unsigned gcmarkbit : 1;
int spacer : 15; int spacer : 15;
struct Lisp_Overlay *next; struct Lisp_Overlay *next;
...@@ -1303,7 +1303,7 @@ struct Lisp_Overlay ...@@ -1303,7 +1303,7 @@ struct Lisp_Overlay
current kboard. */ current kboard. */
struct Lisp_Kboard_Objfwd struct Lisp_Kboard_Objfwd
{ {
int type : 16; /* = Lisp_Misc_Kboard_Objfwd */ enum Lisp_Misc_Type type : 16; /* = Lisp_Misc_Kboard_Objfwd */
unsigned gcmarkbit : 1; unsigned gcmarkbit : 1;
int spacer : 15; int spacer : 15;
int offset; int offset;
...@@ -1313,7 +1313,7 @@ struct Lisp_Kboard_Objfwd ...@@ -1313,7 +1313,7 @@ struct Lisp_Kboard_Objfwd
This type of object is used in the arg to record_unwind_protect. */ This type of object is used in the arg to record_unwind_protect. */
struct Lisp_Save_Value struct Lisp_Save_Value
{ {
int type : 16; /* = Lisp_Misc_Save_Value */ enum Lisp_Misc_Type type : 16; /* = Lisp_Misc_Save_Value */
unsigned gcmarkbit : 1; unsigned gcmarkbit : 1;
int spacer : 14; int spacer : 14;
/* If DOGC is set, POINTER is the address of a memory /* If DOGC is set, POINTER is the address of a memory
...@@ -1327,7 +1327,7 @@ struct Lisp_Save_Value ...@@ -1327,7 +1327,7 @@ struct Lisp_Save_Value
/* A miscellaneous object, when it's on the free list. */ /* A miscellaneous object, when it's on the free list. */
struct Lisp_Free struct Lisp_Free
{ {
int type : 16; /* = Lisp_Misc_Free */ enum Lisp_Misc_Type type : 16; /* = Lisp_Misc_Free */
unsigned gcmarkbit : 1; unsigned gcmarkbit : 1;
int spacer : 15; int spacer : 15;
union Lisp_Misc *chain; union Lisp_Misc *chain;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment