(XCHARVAL): Fix condition about SIZEOF_EMACS_INT.
authortomo <tomo>
Sat, 31 Jul 2004 17:14:51 +0000 (17:14 +0000)
committertomo <tomo>
Sat, 31 Jul 2004 17:14:51 +0000 (17:14 +0000)
src/lisp-disunion.h

index 90d0b71..47c3626 100644 (file)
@@ -84,8 +84,8 @@ typedef EMACS_INT Lisp_Object;
 #define VALMASK (((1UL << VALBITS) - 1UL) << GCTYPEBITS)
 #define XTYPE(x) ((enum Lisp_Type) (((EMACS_UINT)(x)) & ~VALMASK))
 #define XPNTRVAL(x) (x) /* This depends on Lisp_Type_Record == 0 */
-#if defined(UTF2000) && (SIZEOF_EMACS_INT == 32)
-INLINE_HEADER Emchar XCHARVAL (Emchar chr);
+#if defined(UTF2000) && (SIZEOF_EMACS_INT == 4)
+INLINE_HEADER Emchar XCHARVAL (Lisp_Object chr);
 INLINE_HEADER Emchar
 XCHARVAL (Lisp_Object chr)
 {