mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Dan Nicolaescu 2010-11-14 21:52:58 -08:00
parent 3a7a03add9
commit 92d3ab7e32
2 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ChangeLog
View File

@ -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):

15
src/data.c
View File

@ -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 */