Mercurial > hg > xemacs-beta

comparison src/data.c @ 2039:fd0cbe945410

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-04-22 03:24:00 by james] Change VALBITS to INT_VALBITS in a number of places.
author james
date Thu, 22 Apr 2004 03:24:02 +0000
parents 92f7301e4a23
children 91d4c8c65a0f
comparison
equal deleted inserted replaced
2038:c6190a5b1ece 2039:fd0cbe945410
169 /* XEmacs: only used by m/convex.h */ 169 /* XEmacs: only used by m/convex.h */
170 EMACS_INT sign_extend_lisp_int (EMACS_INT num); 170 EMACS_INT sign_extend_lisp_int (EMACS_INT num);
171 EMACS_INT 171 EMACS_INT
172 sign_extend_lisp_int (EMACS_INT num) 172 sign_extend_lisp_int (EMACS_INT num)
173 { 173 {
174 if (num & (1L << (VALBITS - 1))) 174 if (num & (1L << (INT_VALBITS - 1)))
175 return num | ((-1L) << VALBITS); 175 return num | ((-1L) << INT_VALBITS);
176 else 176 else
177 return num & ((1L << VALBITS) - 1); 177 return num & (EMACS_INT) ((1UL << INT_VALBITS) - 1);
178 } 178 }
179 179
180 180
181 /* Data type predicates */ 181 /* Data type predicates */
182 182