diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-02-19 20:25:17 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-02-19 20:25:17 +0000 |
| commit | b15aa9f9e878c384909910b247da7dc2b3bcc65b (patch) | |
| tree | ee8f00fa98e604852b0cf161efebfe7b0ddbe4cc /src/lisp.h | |
| parent | 507c5deb1e04694ed6c7393c54ebbacafc1062cd (diff) | |
| download | emacs-b15aa9f9e878c384909910b247da7dc2b3bcc65b.tar.gz | |
(union Lisp_Object): Give a more precise type for `type'.
Remove unused `gu' alternative.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/src/lisp.h b/src/lisp.h index 6137182847f..c9eb714be18 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -178,18 +178,13 @@ union Lisp_Object struct { EMACS_INT val : VALBITS; - EMACS_UINT type : GCTYPEBITS; + enum Lisp_Type type : GCTYPEBITS; } s; struct { EMACS_UINT val : VALBITS; - EMACS_UINT type : GCTYPEBITS; + enum Lisp_Type type : GCTYPEBITS; } u; - struct - { - EMACS_UINT val : VALBITS; - enum Lisp_Type type : GCTYPEBITS; - } gu; } Lisp_Object; @@ -204,19 +199,14 @@ union Lisp_Object struct { - EMACS_UINT type : GCTYPEBITS; + enum Lisp_Type type : GCTYPEBITS; EMACS_INT val : VALBITS; } s; struct { - EMACS_UINT type : GCTYPEBITS; + enum Lisp_Type type : GCTYPEBITS; EMACS_UINT val : VALBITS; } u; - struct - { - enum Lisp_Type type : GCTYPEBITS; - EMACS_UINT val : VALBITS; - } gu; } Lisp_Object; |