Mercurial > emacs

comparison lisp/calc/calc.el @ 81749:922131bc4a93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-bignum-digit-size,math-small-integer-size): Evaluate when compiled.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sun, 08 Jul 2007 00:14:16 +0000
parents 61fb5a974af6
children e4415539660a
comparison
equal deleted inserted replaced
81748:61fb5a974af6 81749:922131bc4a93
2290 If a big integer is of the form (bigpos N0 N1 ...), this is the 2290 If a big integer is of the form (bigpos N0 N1 ...), this is the
2291 length of the allowable Emacs integers N0, N1,... 2291 length of the allowable Emacs integers N0, N1,...
2292 The value of 2*10^(2*MATH-BIGNUM-DIGIT-LENGTH) must be less than the 2292 The value of 2*10^(2*MATH-BIGNUM-DIGIT-LENGTH) must be less than the
2293 largest Emacs integer.") 2293 largest Emacs integer.")
2294 2294
2295 (defconst math-bignum-digit-size (expt 10 math-bignum-digit-length) 2295 (defconst math-bignum-digit-size
2296 (eval-when-compile (expt 10 math-bignum-digit-length))
2296 "An upper bound for the size of the \"digit\"s in Calc bignums.") 2297 "An upper bound for the size of the \"digit\"s in Calc bignums.")
2297 2298
2298 (defconst math-small-integer-size (expt 10 (* 2 math-bignum-digit-length)) 2299 (defconst math-small-integer-size
2300 (eval-when-compile (expt 10 (* 2 math-bignum-digit-length)))
2299 "An upper bound for the size of \"small integer\"s in Calc.") 2301 "An upper bound for the size of \"small integer\"s in Calc.")
2300 2302
2301 2303
2302 ;;;; Arithmetic routines. 2304 ;;;; Arithmetic routines.
2303 ;;; 2305 ;;;