Mercurial > hg > xemacs-beta
changeset 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 | 6c1040b85913 |
| children | 58308c8b17da |
| files | src/ChangeLog src/lisp-union.h |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Thu Jun 15 21:51:06 2006 +0000 +++ b/src/ChangeLog Fri Jun 16 16:50:41 2006 +0000 @@ -1,3 +1,8 @@ +2006-06-13 Jerry James <james@xemacs.org> + + * lisp-union.h: Cast away bit restrictions on values retrieved + from the Lisp_Object union. + 2006-06-14 Aidan Kehoe <kehoea@parhasard.net> * mule-ccl.c:
--- 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)