Mercurial > emacs

changeset 9366:60542ab81fb1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Flsh, Fadd1, Fsub1, Flognot): Don't use XFASTINT when negative.
author Karl Heuer <kwzh@gnu.org>
date Thu, 06 Oct 1994 22:39:18 +0000
parents 0b431684f97b
children 86e52a4d8d87
files src/data.c
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Thu Oct 06 22:38:08 1994 +0000
+++ b/src/data.c	Thu Oct 06 22:39:18 1994 +0000
@@ -1962,9 +1962,9 @@
   CHECK_NUMBER (num2, 1);
 
   if (XINT (num2) > 0)
-    XSETINT (val, (unsigned) XFASTINT (num1) << XFASTINT (num2));
+    XSETINT (val, (EMACS_UINT) XUINT (num1) << XFASTINT (num2));
   else
-    XSETINT (val, (unsigned) XFASTINT (num1) >> -XINT (num2));
+    XSETINT (val, (EMACS_UINT) XUINT (num1) >> -XINT (num2));
   return val;
 }
 
@@ -1983,7 +1983,7 @@
   CHECK_NUMBER_COERCE_MARKER (num, 0);
 #endif /* LISP_FLOAT_TYPE */
 
-  XSETINT (num, XFASTINT (num) + 1);
+  XSETINT (num, XINT (num) + 1);
   return num;
 }
 
@@ -2002,7 +2002,7 @@
   CHECK_NUMBER_COERCE_MARKER (num, 0);
 #endif /* LISP_FLOAT_TYPE */
 
-  XSETINT (num, XFASTINT (num) - 1);
+  XSETINT (num, XINT (num) - 1);
   return num;
 }
 
@@ -2012,7 +2012,7 @@
      register Lisp_Object num;
 {
   CHECK_NUMBER (num, 0);
-  XSETINT (num, ~XFASTINT (num));
+  XSETINT (num, ~XINT (num));
   return num;
 }