use new nqp::pow_I opcode

rakudo · Nov 11, 2011 · 3d97eda · 3d97eda
1 parent b147776
commit 3d97eda
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -125,11 +125,7 @@ multi infix:<%>(int $a, int $b) returns int {
 }
 
 multi infix:<**>(Int:D \$a, Int:D \$b) {
-    if $b >= 0 {
-        nqp::p6box_i(nqp::pow_n(nqp::unbox_i($a), nqp::unbox_i($b)))
-    } else {
-        nqp::p6box_n(nqp::pow_n(nqp::unbox_i($a), nqp::unbox_i($b)))
-    }
+    nqp::pow_I(nqp::p6decont($a), nqp::p6decont($b), Num);
 }
 
 multi infix:<lcm>(Int:D \$a, Int:D \$b) returns Int {