From 4346200eb93682e0dda0149e71ea3ff462c0f397 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sun, 8 Jul 2007 00:18:06 +0000 Subject: [PATCH] (math-bignum-logb-digit-size,math-bignum-digit-power-of-two): Evaluate when compiled. --- lisp/ChangeLog | 3 +++ lisp/calc/calc-bin.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aa6f87d2088..ebce356719f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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'. diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el index 8f3c9468d88..fa8ba118c8c 100644 --- a/lisp/calc/calc-bin.el +++ b/lisp/calc/calc-bin.el @@ -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. -- 2.39.5