From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Sep 1994 00:27:54 +0000 (+0000)
Subject: (sign_extend_lisp_int): Use EMACS_INT.
X-Git-Tag: emacs-19.34~7034
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0ed95ea0a46bb66aebfb644b66ad6cb7394a569;p=emacs.git

(sign_extend_lisp_int): Use EMACS_INT.
---

diff --git a/src/data.c b/src/data.c
index 5eceec4574f..686dffe114b 100644
--- a/src/data.c
+++ b/src/data.c
@@ -147,12 +147,12 @@ int sign_extend_temp;
 
 int
 sign_extend_lisp_int (num)
-     int num;
+     EMACS_INT num;
 {
-  if (num & (1 << (VALBITS - 1)))
-    return num | ((-1) << VALBITS);
+  if (num & (((EMACS_INT) 1) << (VALBITS - 1)))
+    return num | (((EMACS_INT) (-1)) << VALBITS);
   else
-    return num & ((1 << VALBITS) - 1);
+    return num & ((((EMACS_INT) 1) << VALBITS) - 1);
 }
 
 /* Data type predicates */