Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 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 d5eb0914ca1f
children
comparison
equal deleted inserted replaced
5935:d5eb0914ca1f 5936:574f0cded429
1748 make_bigfloat (double float_value, unsigned long precision) 1748 make_bigfloat (double float_value, unsigned long precision)
1749 { 1749 {
1750 Lisp_Bigfloat *f; 1750 Lisp_Bigfloat *f;
1751 1751
1752 ALLOC_FROB_BLOCK_LISP_OBJECT (bigfloat, Lisp_Bigfloat, f, &lrecord_bigfloat); 1752 ALLOC_FROB_BLOCK_LISP_OBJECT (bigfloat, Lisp_Bigfloat, f, &lrecord_bigfloat);
1753 if (precision == 0UL) 1753 if (precision == UE0)
1754 bigfloat_init (bigfloat_data (f)); 1754 bigfloat_init (bigfloat_data (f));
1755 else 1755 else
1756 bigfloat_init_prec (bigfloat_data (f), precision); 1756 bigfloat_init_prec (bigfloat_data (f), precision);
1757 bigfloat_set_double (bigfloat_data (f), float_value); 1757 bigfloat_set_double (bigfloat_data (f), float_value);
1758 return wrap_bigfloat (f); 1758 return wrap_bigfloat (f);