Mercurial > emacs
changeset 1512:bef6b6903528
* floatfns.c (Flog): Don't forget to declare the BASE argument a
Lisp_Object.
* floatfns.c (Fexpt): Don't return the value of the XSET function
call; that's not guaranteed to be the value assigned.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 31 Oct 1992 05:19:58 +0000 |
| parents | ff88f962a982 |
| children | 7381accd610d |
| files | src/floatfns.c |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/floatfns.c Sat Oct 31 05:18:48 1992 +0000 +++ b/src/floatfns.c Sat Oct 31 05:19:58 1992 +0000 @@ -292,7 +292,8 @@ for (; y > 0; y--) acc *= x; } - return XSET (x, Lisp_Int, acc); + XFASTINT (x) = acc; + return x; } f1 = (XTYPE (num1) == Lisp_Float) ? XFLOAT (num1)->data : XINT (num1); f2 = (XTYPE (num2) == Lisp_Float) ? XFLOAT (num2)->data : XINT (num2); @@ -304,7 +305,7 @@ "Return the natural logarithm of NUM. If second optional argument BASE is given, return log NUM using that base.") (num, base) - register Lisp_Object num; + register Lisp_Object num, base; { double d = extract_float (num);