From f921555f5372e0dcbd3c1f75698cbbf451a0bbeb Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 31 Jul 2004 17:14:51 +0000 Subject: [PATCH] (XCHARVAL): Fix condition about SIZEOF_EMACS_INT. --- src/lisp-disunion.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) { -- 1.7.10.4