Mercurial > hg > xemacs-beta
diff 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 |
line wrap: on
line diff
--- a/src/lisp-union.h Thu Jun 15 21:51:06 2006 +0000 +++ b/src/lisp-union.h Fri Jun 16 16:50:41 2006 +0000 @@ -80,11 +80,11 @@ } Lisp_Object; -#define XCHARVAL(x) ((x).gu.val) +#define XCHARVAL(x) ((EMACS_INT)(x).gu.val) #define XPNTRVAL(x) ((x).ui) -#define XREALINT(x) ((x).s.val) -#define XUINT(x) ((x).u.val) +#define XREALINT(x) ((EMACS_INT)(x).s.val) +#define XUINT(x) ((EMACS_UINT)(x).u.val) #define XTYPE(x) ((x).gu.type) #define EQ(x,y) ((x).v == (y).v)