[svn:parrot] r40342 - trunk/t/tools

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu Jul 30 14:58:29 2009
New Revision: 40342
URL: https://trac.parrot.org/parrot/changeset/40342

Log:
[t] don't assume value 0 on unitialized I registers

Modified:
   trunk/t/tools/parrot_debugger.t

Modified: trunk/t/tools/parrot_debugger.t
==============================================================================
--- trunk/t/tools/parrot_debugger.t	Thu Jul 30 14:38:08 2009	(r40341)
+++ trunk/t/tools/parrot_debugger.t	Thu Jul 30 14:58:29 2009	(r40342)
@@ -128,19 +128,19 @@
 .end
 PIR
 
-pdb_output_like( <<PASM, "pasm", "t 2", qr/\d+ set I0, 242\s*I0=0\s*\d+ set I1, 1982/, 'trace multiple statements');
+pdb_output_like( <<PASM, "pasm", "t 2", qr/\d+ set I0, 242\s*I0=\d+\s*\d+ set I1, 1982/, 'trace multiple statements');
     set I0, 242
     set I1, 1982
 PASM
 
-pdb_output_like( <<PIR, "pir", "t 2", qr/\d+ set I0, 242\s*I0=0\s*\d+ set I1, 1982/, 'trace multiple statements (pir)');
+pdb_output_like( <<PIR, "pir", "t 2", qr/\d+ set I0, 242\s*I0=\d+\s*\d+ set I1, 1982/, 'trace multiple statements (pir)');
 .sub main :main
     \$I0 = 242
     \$I1 = 1982
 .end
 PIR
 
-pdb_output_like( <<PASM, "pasm", "t\np I0", qr/^242/m, 'print an integer register');
+pdb_output_like( <<PASM, "pasm", "t\np I0", qr/^\242/m, 'print an integer register');
     set I0, 242
 PASM