Commit 92d3ab7e authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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

parent 3a7a03ad
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):
......
......@@ -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 */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment