[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v |
Date: |
Sun, 08 Jul 2007 01:40:34 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Jay Belanger <jpb> 07/07/08 01:40:34
Index: calc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc.el,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -b -r1.86 -r1.87
--- calc.el 8 Jul 2007 00:14:16 -0000 1.86
+++ calc.el 8 Jul 2007 01:40:33 -0000 1.87
@@ -2283,9 +2283,8 @@
-(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 @@
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.")
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Jay Belanger, 2007/07/05
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Jay Belanger, 2007/07/07
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Jay Belanger, 2007/07/07
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Jay Belanger, 2007/07/07
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Jay Belanger, 2007/07/07
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v,
Jay Belanger <=
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Miles Bader, 2007/07/26