Commit 9ae06d96 authored by Jay Belanger's avatar Jay Belanger
Browse files

(math-add-bignum): Replace number by constant.

parent 3fa5c462
......@@ -12,6 +12,8 @@
instead of their values.
(math-clip): Use math-small-integer-size instead of its value.
* calc/calc.el (math-add-bignum): Replace number by constant.
2007-07-05 Chong Yidong <cyd@stupidchicken.com>
* wid-edit.el (widget-documentation-string-value-create): Insert
......
......@@ -2780,7 +2780,7 @@ largest Emacs integer.")
(progn
(setcar aa (1+ sum))
(setq carry nil))
(setcar aa (+ sum -999)))
(setcar aa (- sum (1- math-bignum-digit-size))))
(if (< (setq sum (+ (car aa) (car b))) math-bignum-digit-size)
(setcar aa sum)
(setcar aa (- sum math-bignum-digit-size))
......@@ -2790,7 +2790,7 @@ largest Emacs integer.")
(if carry
(if b
(nconc a (math-add-bignum b '(1)))
(while (eq (car aa) 999)
(while (eq (car aa) (1- math-bignum-digit-size))
(setcar aa 0)
(setq aa (cdr aa)))
(if aa
......
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