[Emacs-diffs] Changes to emacs/src/floatfns.c

[Thien-Thi Nguyen]

Index: emacs/src/floatfns.c
diff -c emacs/src/floatfns.c:1.88 emacs/src/floatfns.c:1.89
*** emacs/src/floatfns.c:1.88   Sun Aug  7 17:47:33 2005
--- emacs/src/floatfns.c        Tue Aug  9 07:36:12 2005
***************
*** 461,467 ****
    CHECK_NUMBER_OR_FLOAT (arg1);
    CHECK_NUMBER_OR_FLOAT (arg2);
    if (INTEGERP (arg1)     /* common lisp spec */
!       && INTEGERP (arg2))   /* don't promote, if both are ints */
      {                         /* this can be improved by pre-calculating */
        EMACS_INT acc, x, y;    /* some binary powers of x then accumulating */
        Lisp_Object val;
--- 461,468 ----
    CHECK_NUMBER_OR_FLOAT (arg1);
    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;