cvsuser 05/03/31 03:25:22
Modified: imcc/t/imcpasm cfg.t opt0.t opt1.t sub.t Log: added a warning at the top of pasm files: # IMCC does produce b0rken PASM files # see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 Revision Changes Path 1.7 +7 -1 parrot/imcc/t/imcpasm/cfg.t Index: cfg.t =================================================================== RCS file: /cvs/public/parrot/imcc/t/imcpasm/cfg.t,v retrieving revision 1.6 retrieving revision 1.7 diff -u -r1.6 -r1.7 --- cfg.t 4 Mar 2005 17:49:00 -0000 1.6 +++ cfg.t 31 Mar 2005 11:25:22 -0000 1.7 @@ -1,6 +1,6 @@ #!perl # Copyright: 2005 The Perl Foundation. All Rights Reserved. -# $Id: cfg.t,v 1.6 2005/03/04 17:49:00 bernhard Exp $ +# $Id: cfg.t,v 1.7 2005/03/31 11:25:22 jrieks Exp $ use strict; use Parrot::Test tests => 3; @@ -16,6 +16,8 @@ ret .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _test: bsr L print "ok\n" @@ -33,6 +35,8 @@ noop .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _test: print "ok\n" end @@ -48,6 +52,8 @@ noop .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _test: end OUT 1.10 +9 -1 parrot/imcc/t/imcpasm/opt0.t Index: opt0.t =================================================================== RCS file: /cvs/public/parrot/imcc/t/imcpasm/opt0.t,v retrieving revision 1.9 retrieving revision 1.10 diff -u -r1.9 -r1.10 --- opt0.t 4 Mar 2005 17:49:01 -0000 1.9 +++ opt0.t 31 Mar 2005 11:25:22 -0000 1.10 @@ -1,6 +1,6 @@ #!perl # Copyright: 2005 The Perl Foundation. All Rights Reserved. -# $Id: opt0.t,v 1.9 2005/03/04 17:49:01 bernhard Exp $ +# $Id: opt0.t,v 1.10 2005/03/31 11:25:22 jrieks Exp $ use strict; use Parrot::Test tests => 6; @@ -26,6 +26,8 @@ div N0, 2, N1 .eom CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 sub N0, 2, N1 div N0, 2, N1 OUT @@ -54,6 +56,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _test: noop end @@ -66,6 +70,8 @@ exit 0 .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _test: noop exit 0 @@ -77,6 +83,8 @@ noop .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _test: noop null I0 1.13 +100 -2 parrot/imcc/t/imcpasm/opt1.t Index: opt1.t =================================================================== RCS file: /cvs/public/parrot/imcc/t/imcpasm/opt1.t,v retrieving revision 1.12 retrieving revision 1.13 diff -u -r1.12 -r1.13 --- opt1.t 15 Mar 2005 08:48:38 -0000 1.12 +++ opt1.t 31 Mar 2005 11:25:22 -0000 1.13 @@ -1,6 +1,6 @@ #!perl # Copyright: 2005 The Perl Foundation. All Rights Reserved. -# $Id: opt1.t,v 1.12 2005/03/15 08:48:38 leo Exp $ +# $Id: opt1.t,v 1.13 2005/03/31 11:25:22 jrieks Exp $ use strict; use Parrot::Test tests => 49; @@ -17,6 +17,8 @@ L2: end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: unless I0, L2 noop @@ -33,6 +35,8 @@ L2: end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: le I0, 1, L2 noop @@ -51,6 +55,8 @@ noop .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _test: end OUT @@ -62,6 +68,8 @@ L2: end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -73,6 +81,8 @@ _L2: end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: _L2: end @@ -94,6 +104,8 @@ goto l2 .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _test: noop print "ok\n" @@ -108,6 +120,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 25 set N0, 25 @@ -122,6 +136,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, -5 set N0, -5 @@ -136,6 +152,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 150 set N0, 150 @@ -150,6 +168,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 2 set N0, 2 @@ -164,6 +184,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 3 set N0, 3 @@ -178,6 +200,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 3 set N0, 3 @@ -192,6 +216,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -204,6 +230,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 5 end @@ -217,6 +245,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -229,6 +259,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 5 end @@ -242,6 +274,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -254,6 +288,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 5 end @@ -267,6 +303,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -279,6 +317,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 5 end @@ -292,6 +332,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -304,6 +346,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 5 end @@ -317,6 +361,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -329,6 +375,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 5 end @@ -342,6 +390,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -354,6 +404,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 5 end @@ -367,6 +419,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -379,6 +433,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 5 end @@ -392,6 +448,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -404,6 +462,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 5 end @@ -417,6 +477,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -429,6 +491,8 @@ L1:end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 5 end @@ -441,6 +505,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set N0, 25 end @@ -453,6 +519,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 10 end @@ -465,6 +533,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set N0, 5 end @@ -477,6 +547,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 0 end @@ -489,6 +561,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 0 end @@ -501,6 +575,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 0 end @@ -513,6 +589,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set N0, 0 end @@ -525,6 +603,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -536,6 +616,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, I1 end @@ -548,6 +630,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, I1 end @@ -560,6 +644,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set N0, N1 end @@ -572,6 +658,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: end OUT @@ -583,6 +671,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, I1 end @@ -595,6 +685,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set N0, N1 end @@ -611,6 +703,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set I0, 0 set I1, 1 @@ -628,7 +722,9 @@ end .end CODE -/^_main: +/^# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html\?id=32392 +_main: set N0, 1\.6e\+0?22 end$/ OUT @@ -642,6 +738,8 @@ end .end CODE +# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html?id=32392 _main: set S0, "Parrot rocks" end 1.13 +7 -3 parrot/imcc/t/imcpasm/sub.t Index: sub.t =================================================================== RCS file: /cvs/public/parrot/imcc/t/imcpasm/sub.t,v retrieving revision 1.12 retrieving revision 1.13 diff -u -r1.12 -r1.13 --- sub.t 4 Mar 2005 17:49:01 -0000 1.12 +++ sub.t 31 Mar 2005 11:25:22 -0000 1.13 @@ -1,6 +1,6 @@ #!perl # Copyright: 2005 The Perl Foundation. All Rights Reserved. -# $Id: sub.t,v 1.12 2005/03/04 17:49:01 bernhard Exp $ +# $Id: sub.t,v 1.13 2005/03/31 11:25:22 jrieks Exp $ use strict; use Parrot::Test tests => 2; @@ -17,7 +17,9 @@ ret .end CODE -/^_main: +/^# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html\?id=32392 +_main: new P(\d+), \d+ # \.Sub set_addr I(\d+), _sub1 set P\1, I\2 @@ -39,7 +41,9 @@ ret .end CODE -/^_main: +/^# IMCC does produce b0rken PASM files +# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html\?id=32392 +_main: new P(\d+), \d+ # \.Sub set_addr I(\d+), _f set P\1, I\2
