/[emacs]/emacs/src/floatfns.c
ViewVC logotype

Diff of /emacs/src/floatfns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.84 by lute, Mon Jul 4 16:06:31 2005 UTC revision 1.85 by ttn, Sat Aug 6 18:25:05 2005 UTC
# Line 460  DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, Line 460  DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0,
460    CHECK_NUMBER_OR_FLOAT (arg1);    CHECK_NUMBER_OR_FLOAT (arg1);
461    CHECK_NUMBER_OR_FLOAT (arg2);    CHECK_NUMBER_OR_FLOAT (arg2);
462    if (INTEGERP (arg1)     /* common lisp spec */    if (INTEGERP (arg1)     /* common lisp spec */
463        && INTEGERP (arg2)) /* don't promote, if both are ints */        && INTEGERP (arg2)   /* don't promote, if both are ints, and */
464          && 0 <= XINT (arg2)) /* we are not computing the -ARG2 root */
465      {                           /* this can be improved by pre-calculating */      {                           /* this can be improved by pre-calculating */
466        EMACS_INT acc, x, y;      /* some binary powers of x then accumulating */        EMACS_INT acc, x, y;      /* some binary powers of x then accumulating */
467        Lisp_Object val;        Lisp_Object val;

Legend:
Removed from v.1.84  
changed lines
  Added in v.1.85

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26