diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-02-10 20:09:38 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-02-10 20:09:38 +0000 |
| commit | eac1939a47dde9ccf13c4d49d42fb08f0edac16b (patch) | |
| tree | 815e5680e207cb0d655709ddadf59bddfe357f8b | |
| parent | e28e32b05c2341a0e32bd3336ec27bc11c8a5611 (diff) | |
| download | emacs-eac1939a47dde9ccf13c4d49d42fb08f0edac16b.tar.gz | |
(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'.
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/lisp.h | 12 |
2 files changed, 13 insertions, 6 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 33649595834..67f281919a9 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -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 --git a/src/lisp.h b/src/lisp.h index a215abb34ee..30e28b9ebb4 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -1133,14 +1133,14 @@ struct Lisp_Hash_Table 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 @@ struct Lisp_Buffer_Local_Value 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 @@ struct Lisp_Overlay 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 @@ struct Lisp_Kboard_Objfwd 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 @@ struct Lisp_Save_Value /* 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; |