(sign_extend_lisp_int): Use EMACS_INT.

a0ed95ea · Richard M. Stallman · 132b9337 · a0ed95ea
Commit a0ed95ea authored Sep 17, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 4 deletions

src/data.c src/data.c +4 -4

No files found.
--- 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 */