diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2010-11-14 21:52:58 -0800 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2010-11-14 21:52:58 -0800 |
| commit | 92d3ab7e328831b39967bd92ad51c123a66756ce (patch) | |
| tree | f74198b22f150fc85b92e4a6af63c99ebf28ade2 /src/data.c | |
| parent | 3a7a03add9727f29491d42edfe9498bcdf3bf572 (diff) | |
| download | emacs-92d3ab7e328831b39967bd92ad51c123a66756ce.tar.gz | |
* src/data.c (sign_extend_temp, sign_extend_lisp_int): Remove, unused.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 15 |
1 files changed, 0 insertions, 15 deletions
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 */ |