# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779761674 0
# Node ID f68749766ed1013ca33c63dcbc3479693a51eaec
# Parent  18e94112cf672e0df794ff056a4a359d9310f89d
(sign_extend_lisp_int): Use EMACS_INT.

diff -r 18e94112cf67 -r f68749766ed1 src/data.c
--- a/src/data.c	Sat Sep 17 00:27:16 1994 +0000
+++ b/src/data.c	Sat Sep 17 00:27:54 1994 +0000
@@ -147,12 +147,12 @@
 
 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 */