implement prefix +^ for integers

rakudo · Jun 5, 2011 · 639f872 · 639f872
1 parent 53f404e
commit 639f872
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/CORE.setting/operators.pm b/src/CORE.setting/operators.pm
@@ -143,3 +143,10 @@ multi infix:«+>»(Int \$a, Int \$b) {
         pir::repr_unbox_int__ip($b)
     ));
 }
+
+proto prefix:<+^>(|$) { * }
+multi prefix:<+^>(Int \$a) {
+    pir::perl6_box_int__PI(pir::bnot__II(
+        pir::repr_unbox_int__ip($a)
+    ));
+}
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -127,7 +127,7 @@ class Perl6::Actions is HLL::Actions {
 
         # Set HLL and load the needed libraries.
         $outer.hll('perl6');
-        $unit.loadlibs('nqp_group', 'nqp_ops', 'perl6_group', 'perl6_ops');
+        $unit.loadlibs('nqp_group', 'nqp_ops', 'perl6_group', 'perl6_ops', 'bit_ops');
 
         # If the unit defines &MAIN, add a &MAIN_HELPER.
         my $mainparam := PAST::Var.new(:name('$MAIN'), :scope('parameter'),