User: james Date: 06/06/16 18:50:43 Modified: xemacs/src ChangeLog lisp-union.h Log: Cast away bit restrictions when using the union type. Fixes some gcc 4.1 compilation problems. <m3ejxtjc7h.fsf(a)jerrypc.cs.usu.edu&gt; Revision Changes Path 1.973 +5 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.972 retrieving revision 1.973 diff -u -p -r1.972 -r1.973 --- ChangeLog 2006/06/14 06:10:08 1.972 +++ ChangeLog 2006/06/16 16:50:39 1.973 ＠＠ -1,3 +1,8 ＠＠ +2006-06-13 Jerry James <james(a)xemacs.org&gt; + + * lisp-union.h: Cast away bit restrictions on values retrieved + from the Lisp_Object union. + 2006-06-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * mule-ccl.c: 1.21 +3 -3 XEmacs/xemacs/src/lisp-union.h Index: lisp-union.h =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lisp-union.h,v retrieving revision 1.20 retrieving revision 1.21 diff -u -p -r1.20 -r1.21 --- lisp-union.h 2005/10/25 11:16:26 1.20 +++ lisp-union.h 2006/06/16 16:50:41 1.21 ＠＠ -80,11 +80,11 ＠＠ union Lisp_Object } 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)