CVS update by james xemacs/src ...
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>
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>
+
+ * lisp-union.h: Cast away bit restrictions on values retrieved
+ from the Lisp_Object union.
+
2006-06-14 Aidan Kehoe <kehoea(a)parhasard.net>
* 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)