From 92d3ab7e328831b39967bd92ad51c123a66756ce Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sun, 14 Nov 2010 21:52:58 -0800 Subject: [PATCH] * src/data.c (sign_extend_temp, sign_extend_lisp_int): Remove, unused. --- src/ChangeLog | 4 ++++ src/data.c | 15 --------------- 2 files changed, 4 insertions(+), 15 deletions(-) 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 + + * data.c (sign_extend_temp, sign_extend_lisp_int): Remove, unused. + 2010-11-14 Chong Yidong * 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 */ -- 2.39.5