mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues Projects Releases Wiki Activity

(sign_extend_lisp_int): Use EMACS_INT.

Browse source
This commit is contained in:
Richard M. Stallman 1994-09-17 00:27:54 +00:00
parent 132b933732
commit a0ed95ea0a
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/data.c
View file

@ -147,12 +147,12 @@ int sign_extend_temp;
int
sign_extend_lisp_int (num)
int num;
EMACS_INT num;
{
if (num & (1 << (VALBITS - 1)))
return num | ((-1) << VALBITS);
if (num & (((EMACS_INT) 1) << (VALBITS - 1)))
return num | (((EMACS_INT) (-1)) << VALBITS);
else
return num & ((1 << VALBITS) - 1);
return num & ((((EMACS_INT) 1) << VALBITS) - 1);
}
/* Data type predicates */