Mercurial > emacs

changeset 8820:f68749766ed1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sign_extend_lisp_int): Use EMACS_INT.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Sep 1994 00:27:54 +0000
parents 18e94112cf67
children 041e02e09745
files src/data.c
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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 */