From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Mon, 15 Nov 2010 05:52:58 +0000 (-0800)
Subject: * src/data.c (sign_extend_temp, sign_extend_lisp_int): Remove, unused.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~241
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92d3ab7e328831b39967bd92ad51c123a66756ce;p=emacs.git

* src/data.c (sign_extend_temp, sign_extend_lisp_int): Remove, unused.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 2fcda59bd78..84490e6db96 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-15  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* data.c (sign_extend_temp, sign_extend_lisp_int): Remove, unused.
+
 2010-11-14  Chong Yidong  <cyd@stupidchicken.com>
 
 	* w32fns.c (Fx_create_frame):
diff --git a/src/data.c b/src/data.c
index c28dc9b4bae..8816d7201f3 100644
--- a/src/data.c
+++ b/src/data.c
@@ -135,21 +135,6 @@ args_out_of_range_3 (Lisp_Object a1, Lisp_Object a2, Lisp_Object a3)
   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 */