diff options
| author | Richard M. Stallman | 1994-09-17 00:27:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-17 00:27:54 +0000 |
| commit | a0ed95ea0a46bb66aebfb644b66ad6cb7394a569 (patch) | |
| tree | 362e42088a7b58431536370f28ca6853ef0c1281 | |
| parent | 132b933732fe8c95597e52c7a6749cfca3bd9c60 (diff) | |
| download | emacs-a0ed95ea0a46bb66aebfb644b66ad6cb7394a569.tar.gz emacs-a0ed95ea0a46bb66aebfb644b66ad6cb7394a569.zip | |
(sign_extend_lisp_int): Use EMACS_INT.
| -rw-r--r-- | src/data.c | 8 |
1 files 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; | |||
| 147 | 147 | ||
| 148 | int | 148 | int |
| 149 | sign_extend_lisp_int (num) | 149 | sign_extend_lisp_int (num) |
| 150 | int num; | 150 | EMACS_INT num; |
| 151 | { | 151 | { |
| 152 | if (num & (1 << (VALBITS - 1))) | 152 | if (num & (((EMACS_INT) 1) << (VALBITS - 1))) |
| 153 | return num | ((-1) << VALBITS); | 153 | return num | (((EMACS_INT) (-1)) << VALBITS); |
| 154 | else | 154 | else |
| 155 | return num & ((1 << VALBITS) - 1); | 155 | return num & ((((EMACS_INT) 1) << VALBITS) - 1); |
| 156 | } | 156 | } |
| 157 | 157 | ||
| 158 | /* Data type predicates */ | 158 | /* Data type predicates */ |