[svn:parrot] r44641 - branches/pcc_hackathon_6Mar10/t/op

[allison at svn.parrot.org]

Author: allison
Date: Fri Mar  5 12:09:13 2010
New Revision: 44641
URL: https://trac.parrot.org/parrot/changeset/44641

Log:
[pcc] Reorder the 'get_results' opcode calls in PASM calling convention tests.

Modified:
   branches/pcc_hackathon_6Mar10/t/op/calling.t

Modified: branches/pcc_hackathon_6Mar10/t/op/calling.t
==============================================================================
--- branches/pcc_hackathon_6Mar10/t/op/calling.t	Fri Mar  5 11:54:15 2010	(r44640)
+++ branches/pcc_hackathon_6Mar10/t/op/calling.t	Fri Mar  5 12:09:13 2010	(r44641)
@@ -39,11 +39,12 @@
 .pcc_sub main:
     print "Ok 1\n"
     set_args "0, 0", P0, I0
-    get_results "0", I0
     find_name P1, "foo"
     print "Ok 2\n"
     invokecc P1
     print "Ok 5\n"
+    get_results "0", I0
+    print "Ok 6\n"
     end
 .pcc_sub foo:
     get_params "0, 0", P0, I0
@@ -57,6 +58,7 @@
 Ok 3
 Ok 4
 Ok 5
+Ok 6
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "call - i, ic" );
@@ -84,9 +86,9 @@
 .pcc_sub main:
     set I16, 77
     set_args "0, 0", 42, I16
-    get_results "0, 0", I16, I17
     find_name P1, "foo"
     invokecc P1
+    get_results "0, 0", I16, I17
     print I16
     print "\n"
     print I17
@@ -113,9 +115,9 @@
 .pcc_sub main:
     set I16, 77
     set_args "0, 0", 42, I16
-    get_results "0, 0", I16, I17
     find_name P1, "foo"
     invokecc P1
+    get_results "0, 0", I16, I17
     print I16
     print "\n"
     print I17
@@ -146,9 +148,9 @@
     new P16, 'Integer'
     set P16, 101
     set_args "0, 0, 0, 0, 0, 0, 0", 42, I16, 4.5, N16, S16, "ok 2\n", P16
-    get_results "0, 0, 0, 0", I16, N16, S16, P16
     find_name P1, "foo"
     invokecc P1
+    get_results "0, 0, 0, 0", I16, N16, S16, P16
     print I16
     print "\n"
     print N16
@@ -633,8 +635,8 @@
 .sub main :main
     .const 'Sub' f = "foo"
     print "main\n"
-    get_results "0", $S0
     invokecc f
+    get_results "0", $S0
     print $S0
 .end
 .sub foo
@@ -662,8 +664,8 @@
 .sub main :main
     .const 'Sub' f = "foo"
     print "main\n"
-    get_results "0", $S0
     invokecc f
+    get_results "0", $S0
     print $S0
 .end
 .sub foo
@@ -1716,9 +1718,9 @@
 pasm_output_is( <<'CODE', <<'OUTPUT', "named - 1" );
 .pcc_sub main:
     set_args "0x200, 0, 0x200, 0", "b", 10, "a", 20
-    get_results ""
     find_name P1, "foo"
     invokecc P1
+    get_results ""
     print "ok\n"
     end
 .pcc_sub foo:
@@ -1739,9 +1741,9 @@
     set P0['a'], 20
     set P0['b'], 10
     set_args "0x220", P0            # :flatten :named
-    get_results ""
     find_name P1, "foo"
     invokecc P1
+    get_results ""
     print "ok\n"
     end
 .pcc_sub foo:
@@ -1789,9 +1791,9 @@
 pasm_output_is( <<'CODE', <<'OUTPUT', "named - 3 slurpy hash" );
 .pcc_sub main:
     set_args "0x200, 0, 0x200, 0,0x200, 0", "a", 10, "b", 20, 'c', 30
-    get_results ""
     find_name P1, "foo"
     invokecc P1
+    get_results ""
     print "ok\n"
     end
 .pcc_sub foo:
@@ -1820,9 +1822,9 @@
 pasm_output_is( <<'CODE', <<'OUTPUT', "named - 4 positional -> named" );
 .pcc_sub main:
     set_args  "0, 0, 0", 10, 20, 30
-    get_results ""
     find_name P1, "foo"
     invokecc P1
+    get_results ""
     print "ok\n"
     end
 .pcc_sub foo: