X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Flisp-disunion.h;h=47c36260aa93d31f48bbc307a445fb4ccb1604dd;hb=9c13fdeca6312a8424c0021237d50424927f0353;hp=90d0b71f7803651f5d80a8a19eaeb83b26425be2;hpb=7153a8d84ffcc9dfde1a317a96e28c5945a3354f;p=chise%2Fxemacs-chise.git.1

diff --git a/src/lisp-disunion.h b/src/lisp-disunion.h
index 90d0b71..47c3626 100644
--- a/src/lisp-disunion.h
+++ b/src/lisp-disunion.h
@@ -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)
 {