Change 17255: [PATCH] pp.c:pp_pow() -- quit when you're done

[Jarkko Hietaniemi]

Change 17255 by jhi@alpha on 2002/06/16 03:29:09

        Subject: [PATCH] pp.c:pp_pow() -- quit when you're done
        From: "Craig A. Berry" <[EMAIL PROTECTED]>
        Date: Sat, 15 Jun 2002 18:56:12 -0500
        Message-Id: <a05111b15b93181a27d6d@[172.16.52.1]>

Affected files ...

.... //depot/perl/pp.c#351 edit

Differences ...

==== //depot/perl/pp.c#351 (text) ====
Index: perl/pp.c
--- perl/pp.c#350~17058~        Fri Jun  7 06:22:38 2002
+++ perl/pp.c   Sat Jun 15 20:29:09 2002
@@ -956,6 +956,8 @@
                             result *= base;
                             /* Only bother to clear the bit if it is set.  */
                             power &= ~bit;
+                           /* Avoid squaring base again if we're done. */
+                           if (power == 0) break;
                         }
                     }
                     SP--;
End of Patch.