Mercurial > emacs

changeset 9267:1b685d477c10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(FLOAT_TO_INT, FLOAT_TO_INT2, Fexpt, Flogb, Ffloor): Use new accessor macros instead of calling XSET directly.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 12:06:28 +0000
parents 811ad893828b
children cb55d0155265
files src/floatfns.c
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/floatfns.c	Tue Oct 04 12:05:13 1994 +0000
+++ b/src/floatfns.c	Tue Oct 04 12:06:28 1994 +0000
@@ -183,7 +183,7 @@
       if ((x) >= (((EMACS_INT) 1) << (VALBITS-1)) ||			\
 	  (x) <= - (((EMACS_INT) 1) << (VALBITS-1)) - 1)		\
 	range_error (name, num);					\
-      XSET (i, Lisp_Int,  (EMACS_INT)(x));				\
+      XSETINT (i,  (EMACS_INT)(x));					\
     }									\
   while (0)
 #define FLOAT_TO_INT2(x, i, name, num1, num2)				\
@@ -192,7 +192,7 @@
       if ((x) >= (((EMACS_INT) 1) << (VALBITS-1)) ||			\
 	  (x) <= - (((EMACS_INT) 1) << (VALBITS-1)) - 1)		\
 	range_error2 (name, num1, num2);				\
-      XSET (i, Lisp_Int,  (EMACS_INT)(x));				\
+      XSETINT (i,  (EMACS_INT)(x));					\
     }									\
   while (0)
 
@@ -473,7 +473,7 @@
 	      y = (unsigned)y >> 1;
 	    }
 	}
-      XSET (val, Lisp_Int, acc);
+      XSETINT (val, acc);
       return val;
     }
   f1 = FLOATP (arg1) ? XFLOAT (arg1)->data : XINT (arg1);
@@ -709,7 +709,7 @@
 #endif
 #endif
     }
-  XSET (val, Lisp_Int, value);
+  XSETINT (val, value);
   return val;
 }
 
@@ -778,7 +778,7 @@
 	    ? (i1 <= 0  ?  -i1 / -i2  :  -1 - ((i1 - 1) / -i2))
 	    : (i1 < 0  ?  -1 - ((-1 - i1) / i2)  :  i1 / i2));
 
-      XSET (arg, Lisp_Int, i1);
+      XSETINT (arg, i1);
       return arg;
     }