Remove stale hashes, workaround bitop definitions

sorear · Mar 13, 2011 · af2dab4 · af2dab4
1 parent 22617be
commit af2dab4
Show file tree

Hide file tree

Showing 9 changed files with 6 additions and 33 deletions.
diff --git a/src/CClass.pm6 b/src/CClass.pm6
@@ -1,15 +1,5 @@
-# 28f112a757ef2d6f553d144dd8f8b9a1de17c71b
 class CClass;
 
-sub ord($x) { Q:CgOp { (rawscall Builtins,Kernel.Ord {$x}) } }
-sub chr($x) { Q:CgOp { (rawscall Builtins,Kernel.Chr {$x}) } }
-sub infix:<+&>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumAnd {$x} {$y}) } }
-sub infix:<+|>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumOr {$x} {$y}) } }
-sub infix:<+^>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumXor {$x} {$y}) } }
-sub infix:<< +< >>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumLShift {$x} {$y}) } }
-sub infix:<< +> >>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumRShift {$x} {$y}) } }
-sub prefix:<< +^ >>($x) { Q:CgOp { (rawscall Builtins,Kernel.NumCompl {$x}) } }
-
 has $.terms;
 
 my $nclass = 0;
@@ -79,7 +69,7 @@ sub _binop($func, $alr, $blr) {
 
 method plus($other) { _binop(* +| *, self, $other); }
 method minus($other) { _binop({ $^a +& +^$^b }, self, $other); }
-method negate() { _binop(-> $a, $b { 0x3FFF_FFFF +& +^$a }, self, $Empty) }
+method negate() { _binop(-> $a, $ { 0x3FFF_FFFF +& +^$a }, self, $Empty) }
 
 our $Word   = CClass.catm(< Lu Lt Ll Lm Lo Nd Nl No >).plus('_');
 our $Digit  = CClass.catm(< Nd Nl No >);

diff --git a/src/CgOp.pm6 b/src/CgOp.pm6
@@ -1,9 +1,5 @@
-# 049d8e5b643845aa2e4409f24ebe039668211dd2
-
 class CgOp;
 
-sub chr($x) { Q:CgOp { (rawscall Builtins,Kernel.Chr {$x}) } }
-
 method _cgop(*@bits) {
     for @bits { $_ // die "Illegal undef in cgop @bits[0]" }
     [ @bits ];

diff --git a/src/Metamodel.pm6 b/src/Metamodel.pm6
@@ -1,4 +1,3 @@
-# 7ab22da574d860f10011a6dc4c99d2b4de3f0809
 # first half of the file - begin augments are in Begin.pm6
 
 module Metamodel;

diff --git a/src/NAMOutput.pm6 b/src/NAMOutput.pm6
@@ -1,14 +1,10 @@
-# 7ab22da574d860f10011a6dc4c99d2b4de3f0809
-
 class NAMOutput;
 
 use JSYNC;
 use Metamodel;
 use Sig;
 use MONKEY_TYPING;
 
-sub infix:<+|>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumOr {$x} {$y}) } }
-sub infix:<+&>($x, $y) { Q:CgOp { (rawscall Builtins,Kernel.NumAnd {$x} {$y}) } }
 method run($*unit) {
     my @*subsnam;
     $*unit.visit_local_subs_postorder(&nam_sub);

diff --git a/src/NieczaActions.pm6 b/src/NieczaActions.pm6
@@ -1,5 +1,3 @@
-# a07a966de52560ebbeea470bc29373a08182a869
-
 class NieczaActions;
 
 use Op;
@@ -2700,7 +2698,7 @@ method block($/) { make self.sl_to_block('', $<blockoid>.ast); }
 
 # :: Body
 method pblock($/) {
-    my $rw = $<lambda> && $<lambda> eq '<->';
+    #my $rw = $<lambda> && $<lambda> eq '<->'; TODO
     make self.sl_to_block('', $<blockoid>.ast,
         signature => ($<signature> ?? $<signature>.ast !!
             self.get_placeholder_sig($/)));

diff --git a/src/NieczaPassBegin.pm6 b/src/NieczaPassBegin.pm6
@@ -1,5 +1,3 @@
-# e5712784b523fe467ca765dce3d24c4b1b31d9a0
-
 class NieczaPassBegin;
 
 use MONKEY_TYPING;

diff --git a/src/Op.pm6 b/src/Op.pm6
@@ -1,5 +1,3 @@
-# b508f750646c0869a9efa961965e17e6e40c8d83
-
 class Op;
 
 use CgOp;
@@ -30,7 +28,7 @@ method cgop_labelled($body, $label) {
     }
 }
 
-method code_labelled($body, $label) { self.code($body) }
+method code_labelled($body, $label) { self.code($body) } #OK not used
 
 # A few words on the nature of bvalues
 # A bvalue cannot escape a sub; the return would always extract the

diff --git a/src/OptRxSimple.pm6 b/src/OptRxSimple.pm6
@@ -88,7 +88,7 @@ augment class RxOp::Alt { #OK exist
 
 augment class RxOp::Cut { #OK exist
     method mayback() { False }
-    method rxsimp($cut) {
+    method rxsimp($cut) { #OK not used
         my $kid = $.zyg[0].rxsimp(True);
         $kid.mayback ?? ::RxOp::Cut.new(zyg => [$kid]) !! $kid;
     }
@@ -110,7 +110,7 @@ augment class RxOp::Sigspace { #OK exist
 
 augment class RxOp::Statement { #OK exist
     method mayback()    { False }
-    method rxsimp($cut) { ::RxOp::Sequence.new(zyg => []) }
+    method rxsimp($ ) { ::RxOp::Sequence.new(zyg => []) }
 }
 
 augment class RxOp::ConfineLang { #OK exist

diff --git a/src/RxOp.pm6 b/src/RxOp.pm6
@@ -1,5 +1,3 @@
-# a15d1ecd179d77621b806c0a95af2908c0f2e6b6
-
 class RxOp;
 
 use CgOp;
@@ -634,7 +632,7 @@ class ProtoRedis is RxOp {
     has $.name = die "ProtoRedis.name required"; # Str
     has $.cutltm = False; # Bool
 
-    method code($body) {
+    method code($) {
         # will probably break with complicated harnesses
         CgOp.letn(
           "fns", CgOp.run_protoregex(CgOp.callframe,