diff src/data.c @ 111543:317ffffec7f3

* src/data.c (sign_extend_temp, sign_extend_lisp_int): Remove, unused.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sun, 14 Nov 2010 21:52:58 -0800
parents 66f6be9b4d43
children 417b1e4d63cd deae5bb3f0f6
line wrap: on
line diff
--- a/src/data.c	Mon Nov 15 02:40:42 2010 +0000
+++ b/src/data.c	Sun Nov 14 21:52:58 2010 -0800
@@ -135,21 +135,6 @@
   xsignal3 (Qargs_out_of_range, a1, a2, a3);
 }
 
-/* On some machines, XINT needs a temporary location.
-   Here it is, in case it is needed.  */
-
-int sign_extend_temp;
-
-/* On a few machines, XINT can only be done by calling this.  */
-
-int
-sign_extend_lisp_int (EMACS_INT num)
-{
-  if (num & (((EMACS_INT) 1) << (VALBITS - 1)))
-    return num | (((EMACS_INT) (-1)) << VALBITS);
-  else
-    return num & ((((EMACS_INT) 1) << VALBITS) - 1);
-}
 
 /* Data type predicates */