From a0ed95ea0a46bb66aebfb644b66ad6cb7394a569 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 17 Sep 1994 00:27:54 +0000 Subject: [PATCH] (sign_extend_lisp_int): Use EMACS_INT. --- src/data.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/data.c b/src/data.c index 5eceec4574f..686dffe114b 100644 --- a/src/data.c +++ b/src/data.c @@ -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 */ -- 2.39.5