[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/floatfns.c
From: |
Thien-Thi Nguyen |
Subject: |
[Emacs-diffs] Changes to emacs/src/floatfns.c |
Date: |
Sat, 06 Aug 2005 20:55:02 -0400 |
Index: emacs/src/floatfns.c
diff -c emacs/src/floatfns.c:1.85 emacs/src/floatfns.c:1.86
*** emacs/src/floatfns.c:1.85 Sat Aug 6 18:25:05 2005
--- emacs/src/floatfns.c Sun Aug 7 00:55:01 2005
***************
*** 461,467 ****
CHECK_NUMBER_OR_FLOAT (arg2);
if (INTEGERP (arg1) /* common lisp spec */
&& INTEGERP (arg2) /* don't promote, if both are ints, and */
! && 0 <= XINT (arg2)) /* we are not computing the -ARG2 root */
{ /* this can be improved by pre-calculating */
EMACS_INT acc, x, y; /* some binary powers of x then accumulating */
Lisp_Object val;
--- 461,467 ----
CHECK_NUMBER_OR_FLOAT (arg2);
if (INTEGERP (arg1) /* common lisp spec */
&& INTEGERP (arg2) /* don't promote, if both are ints, and */
! && 0 <= XINT (arg2)) /* we are sure the result is not fractional */
{ /* this can be improved by pre-calculating */
EMACS_INT acc, x, y; /* some binary powers of x then accumulating */
Lisp_Object val;