Mercurial > hg > xemacs-beta

comparison src/number.h @ 5936:574f0cded429 cygwin

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try to replace all nnnL or nnnUL constants with EMACS_[U]INT
author Henry Thompson <ht@markup.co.uk>
date Sun, 13 Dec 2015 13:22:58 +0000
parents 4d7032d36975
children
comparison
equal deleted inserted replaced
5935:d5eb0914ca1f 5936:574f0cded429
219 #define XRATIO_NUMERATOR(r) ratio_numerator (XRATIO_DATA (r)) 219 #define XRATIO_NUMERATOR(r) ratio_numerator (XRATIO_DATA (r))
220 #define XRATIO_DENOMINATOR(r) ratio_denominator (XRATIO_DATA (r)) 220 #define XRATIO_DENOMINATOR(r) ratio_denominator (XRATIO_DATA (r))
221 221
222 #define RATIO_ARITH_RETURN(r,op) do \ 222 #define RATIO_ARITH_RETURN(r,op) do \
223 { \ 223 { \
224 Lisp_Object retval = make_ratio (0L, 1UL); \ 224 Lisp_Object retval = make_ratio (E0, UE1); \
225 ratio_##op (XRATIO_DATA (retval), XRATIO_DATA (r)); \ 225 ratio_##op (XRATIO_DATA (retval), XRATIO_DATA (r)); \
226 return Fcanonicalize_number (retval); \ 226 return Fcanonicalize_number (retval); \
227 } while (0) 227 } while (0)
228 228
229 #define RATIO_ARITH_RETURN1(r,op,arg) do \ 229 #define RATIO_ARITH_RETURN1(r,op,arg) do \
230 { \ 230 { \
231 Lisp_Object retval = make_ratio (0L, 1UL); \ 231 Lisp_Object retval = make_ratio (E0, UE1); \
232 ratio_##op (XRATIO_DATA (retval), XRATIO_DATA (r), arg); \ 232 ratio_##op (XRATIO_DATA (retval), XRATIO_DATA (r), arg); \
233 return Fcanonicalize_number (retval); \ 233 return Fcanonicalize_number (retval); \
234 } while (0) 234 } while (0)
235 235
236 extern Lisp_Object make_ratio (long, unsigned long); 236 extern Lisp_Object make_ratio (long, unsigned long);