Commit a0ed95ea authored by Richard M. Stallman's avatar Richard M. Stallman

(sign_extend_lisp_int): Use EMACS_INT.

parent 132b9337
......@@ -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 */
......
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