diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-07-08 01:40:33 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-07-08 01:40:33 +0000 |
| commit | 236e165a5a78f40f74a8c5739dc1ba9485b87ec6 (patch) | |
| tree | 7f5be032752786762cebf399768f4aacee3d79b9 /lisp/calc | |
| parent | 9f2dcb8bcffdda00fadacf9b4166c1ec47c95d0e (diff) | |
| download | emacs-236e165a5a78f40f74a8c5739dc1ba9485b87ec6.tar.gz | |
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Don't eval when compiled.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 8eebee90930..6a235e42321 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -2283,9 +2283,8 @@ See calc-keypad for details." -(defconst math-bignum-digit-length - (eval-when-compile - (truncate (/ (log10 (/ most-positive-fixnum 2)) 2))) +(defconst math-bignum-digit-length 4 +; (truncate (/ (log10 (/ most-positive-fixnum 2)) 2)) "The length of a \"digit\" in Calc bignums. If a big integer is of the form (bigpos N0 N1 ...), this is the length of the allowable Emacs integers N0, N1,... @@ -2293,11 +2292,11 @@ The value of 2*10^(2*MATH-BIGNUM-DIGIT-LENGTH) must be less than the largest Emacs integer.") (defconst math-bignum-digit-size - (eval-when-compile (expt 10 math-bignum-digit-length)) + (expt 10 math-bignum-digit-length) "An upper bound for the size of the \"digit\"s in Calc bignums.") (defconst math-small-integer-size - (eval-when-compile (expt 10 (* 2 math-bignum-digit-length))) + (expt math-bignum-digit-size 2) "An upper bound for the size of \"small integer\"s in Calc.") |