martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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 */