X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Flisp.h;h=4aee0e1b96f7094717892bf4c592bda5b2e33505;hp=8b2b8ccae6574f8c9a0bcc9fca8312a546416f3a;hb=02f4d2761a98c5cb9d5b423d2361160a5d8c9ee4;hpb=8ae91923b1c6a495348a86739ef5dafb55993b56

diff --git a/src/lisp.h b/src/lisp.h
index 8b2b8cc..4aee0e1 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -585,7 +585,7 @@ enum Lisp_Type
 
 #define INT_VALBITS (BITS_PER_EMACS_INT - INT_GCBITS)
 #define VALBITS (BITS_PER_EMACS_INT - GCBITS)
-#define EMACS_INT_MAX ((EMACS_INT) ((1UL << INT_VALBITS) -1UL))
+#define EMACS_INT_MAX ((EMACS_INT) ((1UL << (INT_VALBITS - 1)) -1UL))
 #define EMACS_INT_MIN (-(EMACS_INT_MAX) - 1)
 
 #ifdef USE_UNION_TYPE