[svn:parrot] r44676 - in branches/ops_pct/compilers/opsc: src/Ops t

bacek at svn.parrot.org bacek at svn.parrot.org
Sat Mar 6 01:38:49 UTC 2010


Author: bacek
Date: Sat Mar  6 01:38:48 2010
New Revision: 44676
URL: https://trac.parrot.org/parrot/changeset/44676

Log:
Drop parser_ops from Ops::File. Store just ops

Modified:
   branches/ops_pct/compilers/opsc/src/Ops/File.pm
   branches/ops_pct/compilers/opsc/t/05-opsfile.t

Modified: branches/ops_pct/compilers/opsc/src/Ops/File.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/File.pm	Sat Mar  6 01:38:20 2010	(r44675)
+++ branches/ops_pct/compilers/opsc/src/Ops/File.pm	Sat Mar  6 01:38:48 2010	(r44676)
@@ -178,8 +178,7 @@
 
 method new(*@files, :$nolines) {
     self<files>   := @files;
-    self<parsed_ops> := list(); # Raw ops parsed.
-    self<ops>        := list(); # Renumbered versions of ops
+    self<ops>     := list(); # Ops
 
     for @files { self.read_ops( $_, $nolines ) }
 
@@ -203,15 +202,17 @@
 method read_ops($file, $nolines) {
     my $compiler := pir::compreg__Ps('Ops');
 
-    say("Parsing $file");
+    say("# Parsing $file");
     my $buffer := slurp($file);
     my $past   := $compiler.compile($buffer, :target('past'));
 
     for @($past<ops>) {
-        self<parsed_ops>.push($_);
+        self<ops>.push($_);
     }
 }
 
+method ops() { self<ops> };
+
 =begin
 
 =back

Modified: branches/ops_pct/compilers/opsc/t/05-opsfile.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/05-opsfile.t	Sat Mar  6 01:38:20 2010	(r44675)
+++ branches/ops_pct/compilers/opsc/t/05-opsfile.t	Sat Mar  6 01:38:48 2010	(r44676)
@@ -15,7 +15,7 @@
 
 $f := Ops::File.new(|@files);
 
-my @ops := $f<parsed_ops>;
+my @ops := $f.ops;
 # 84 core
 # 116 math
 # We can generate more than 1 Ops::Op per op due args expansion.


More information about the parrot-commits mailing list