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

cotto at svn.parrot.org cotto at svn.parrot.org
Wed Apr 28 05:36:20 UTC 2010


Author: cotto
Date: Wed Apr 28 05:36:19 2010
New Revision: 46104
URL: https://trac.parrot.org/parrot/changeset/46104

Log:
[opsc] get tests Ops::File tests passing, not sure why _set_version needed to be moved

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

Modified: branches/ops_pct/compilers/opsc/src/Ops/File.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/File.pm	Wed Apr 28 04:34:24 2010	(r46103)
+++ branches/ops_pct/compilers/opsc/src/Ops/File.pm	Wed Apr 28 05:36:19 2010	(r46104)
@@ -192,10 +192,10 @@
     self<compiler>:= pir::compreg__Ps('Ops');
     self<compiler>.set_oplib($oplib);
 
-    self._set_version();
-
     for @files { self.read_ops( $_, $nolines ) }
 
+    self._set_version();
+
     self;
 }
 
@@ -209,8 +209,6 @@
 
     self._set_version();
 
-    self._set_version();
-
     self.compile_ops($str);
 
     self;

Modified: branches/ops_pct/compilers/opsc/t/06-opsfile.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/06-opsfile.t	Wed Apr 28 04:34:24 2010	(r46103)
+++ branches/ops_pct/compilers/opsc/t/06-opsfile.t	Wed Apr 28 05:36:19 2010	(r46104)
@@ -20,7 +20,7 @@
 # 116 math
 # We can generate more than 1 Ops::Op per op due args expansion.
 say( "# Parsed " ~ + at ops);
-ok(+ at ops == 313, "Ops parsed correctly");
+ok(+ at ops == 319, "Ops parsed correctly");
 
 my $op := @ops[0];
 #_dumper($op);


More information about the parrot-commits mailing list