procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix (+ bignum float) bug

Browse source 
* src/data.c (bignum_arith_driver): Fix typo: missing ‘return’.
* test/src/data-tests.el (data-tests-bignum): Test for the typo.
This commit is contained in:
Paul Eggert 2018-09-21 23:08:52 -07:00
parent 0bec064454
commit 3727bc7d59
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/data.c
View file

@ -2920,8 +2920,8 @@ bignum_arith_driver (enum arithop code, ptrdiff_t nargs, Lisp_Object *args,
val = args[argnum];
CHECK_NUMBER_COERCE_MARKER (val);
if (FLOATP (val))
float_arith_driver (code, nargs, args, argnum,
mpz_get_d (*accum), val);
return float_arith_driver (code, nargs, args, argnum,
mpz_get_d (*accum), val);
}
}

10
test/src/data-tests.el
View file

@ -547,6 +547,16 @@ comparing the subr with a much slower lisp implementation."
(should (<= b-1 b0))
(should (<= b-1 b-1))
(should (= (+ f0 b0) (+ b0 f0)))
(should (= (+ f0 b-1) (+ b-1 f0)))
(should (= (+ f-1 b0) (+ b0 f-1)))
(should (= (+ f-1 b-1) (+ b-1 f-1)))
(should (= (* f0 b0) (* b0 f0)))
(should (= (* f0 b-1) (* b-1 f0)))
(should (= (* f-1 b0) (* b0 f-1)))
(should (= (* f-1 b-1) (* b-1 f-1)))
(should (= b0 f0))
(should (= b0 b0))