From: tomo <tomo>
Date: Sat, 31 Jul 2004 17:14:51 +0000 (+0000)
Subject: (XCHARVAL): Fix condition about SIZEOF_EMACS_INT.
X-Git-Tag: r21-4-15-chise-0_21-31^2~140
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f921555f5372e0dcbd3c1f75698cbbf451a0bbeb;p=chise%2Fxemacs-chise.git.1

(XCHARVAL): Fix condition about SIZEOF_EMACS_INT.
---

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)
 {