Mercurial > hg > xemacs-beta
comparison src/lisp-union.h @ 3455:78507f684253
[xemacs-hg @ 2006-06-16 16:50:39 by james]
Cast away bit restrictions when using the union type. Fixes some gcc 4.1
compilation problems. <m3ejxtjc7h.fsf@jerrypc.cs.usu.edu>
| author | james |
|---|---|
| date | Fri, 16 Jun 2006 16:50:41 +0000 |
| parents | facf3239ba30 |
| children | ae48681c47fa |
comparison
equal
deleted
inserted
replaced
| 3454:6c1040b85913 | 3455:78507f684253 |
|---|---|
| 78 a function declared to accept a Lisp_Object. */ | 78 a function declared to accept a Lisp_Object. */ |
| 79 struct nosuchstruct *v; | 79 struct nosuchstruct *v; |
| 80 } | 80 } |
| 81 Lisp_Object; | 81 Lisp_Object; |
| 82 | 82 |
| 83 #define XCHARVAL(x) ((x).gu.val) | 83 #define XCHARVAL(x) ((EMACS_INT)(x).gu.val) |
| 84 #define XPNTRVAL(x) ((x).ui) | 84 #define XPNTRVAL(x) ((x).ui) |
| 85 | 85 |
| 86 #define XREALINT(x) ((x).s.val) | 86 #define XREALINT(x) ((EMACS_INT)(x).s.val) |
| 87 #define XUINT(x) ((x).u.val) | 87 #define XUINT(x) ((EMACS_UINT)(x).u.val) |
| 88 #define XTYPE(x) ((x).gu.type) | 88 #define XTYPE(x) ((x).gu.type) |
| 89 #define EQ(x,y) ((x).v == (y).v) | 89 #define EQ(x,y) ((x).v == (y).v) |
| 90 | 90 |
| 91 DECLARE_INLINE_HEADER ( | 91 DECLARE_INLINE_HEADER ( |
| 92 Lisp_Object | 92 Lisp_Object |