Commit 4346200e authored by Jay Belanger's avatar Jay Belanger
Browse files

(math-bignum-logb-digit-size,math-bignum-digit-power-of-two): Evaluate

when compiled.
parent 9066adc4
......@@ -3,6 +3,9 @@
* calc/calc.el (math-read-number-simple): Remove leading 0s.
(math-bignum-digit-length): Change to optimal value.
* calc/calc-bin.el (math-bignum-logb-digit-size)
(math-bignum-digit-power-of-two): Evaluate when compiled.
* calc/calc-comb.el (math-small-factorial-table)
(math-init-random-base,math-prime-test): Remove unnecessary calls
to `math-read-number-simple'.
......
......@@ -34,13 +34,13 @@
;;; Some useful numbers
(defconst math-bignum-logb-digit-size
(logb math-bignum-digit-size)
(eval-when-compile (logb math-bignum-digit-size))
"The logb of the size of a bignum digit.
This is the largest value of B such that 2^B is less than
the size of a Calc bignum digit.")
(defconst math-bignum-digit-power-of-two
(expt 2 math-bignum-logb-digit-size)
(eval-when-compile (expt 2 math-bignum-logb-digit-size))
"The largest power of 2 less than the size of a Calc bignum digit.")
;;; b-prefix binary commands.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment