[svn:parrot] r40056 - branches/ops_pct/compilers/opsc/ops

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Jul 13 13:50:48 2009
New Revision: 40056
URL: https://trac.parrot.org/parrot/changeset/40056

Log:
[opsc][cage] Remove commented-out code.

Modified:
   branches/ops_pct/compilers/opsc/ops/oplib.pm

Modified: branches/ops_pct/compilers/opsc/ops/oplib.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/ops/oplib.pm	Mon Jul 13 13:34:33 2009	(r40055)
+++ branches/ops_pct/compilers/opsc/ops/oplib.pm	Mon Jul 13 13:50:48 2009	(r40056)
@@ -143,21 +143,12 @@
 }
 
 method _load_num_file() {
-##    open $op, '<', $num_file
-##        or die "Can't open $num_file: $!";
-
     # slurp isn't very efficient. But extending NQP beyond bare minimum is not in scope.
     my $buf := slurp(self<num_file>);
     my @ops := split("\n", $buf);
 
     my $prev := -1;
-##    while (<$op>) {
     for @ops {
-##        chomp;
-##        s/#.*$//;
-##        s/\s*$//;
-##        s/^\s*//;
-##        next unless $_;
         my @parts   := split( /\s+/, $_ );
         my $name    := @parts[0];
         my $number  := @parts[1];
@@ -180,13 +171,9 @@
 }
 
 method _load_skip_file() {
-##    open $op, '<', $skip_file
-##        or die "Can't open $skip_file: $!";
-    # slurp isn't very efficient. But extending NQP beyond bare minimum is not in scope.
     my $buf     := slurp(self<skip_file>);
     my @lines   := split("\n", $buf);
 
-##    while (<$op>) {
     for @lines {
         # XXX Bit ugly. But I don't know how to invoke ~~ in NQP...
         if /^^ \S+ $$/($_) {