cvsuser 04/01/19 17:50:48
Modified: imcc/t/syn pcc.t Log: More for documentation than anything else. Revision Changes Path 1.31 +37 -1 parrot/imcc/t/syn/pcc.t Index: pcc.t =================================================================== RCS file: /cvs/public/parrot/imcc/t/syn/pcc.t,v retrieving revision 1.30 retrieving revision 1.31 diff -u -w -r1.30 -r1.31 --- pcc.t 16 Jan 2004 16:58:31 -0000 1.30 +++ pcc.t 20 Jan 2004 01:50:47 -0000 1.31 @@ -1,6 +1,6 @@ #!perl use strict; -use TestCompiler tests => 33; +use TestCompiler tests => 34; ############################## # Parrot Calling Conventions @@ -60,6 +60,42 @@ 5 6 7 +OUT + +output_is(<<'CODE', <<'OUT', "basic syntax - order of return values"); +.sub _main + .local Sub sub + newsub sub, .Sub, _sub + .pcc_begin prototyped + .pcc_call sub + ret: + .local int A + .local int B + .local int C + .result A + .result B + .result C + .pcc_end + print A + print "\n" + print B + print "\n" + print C + print "\n" + end +.end +.pcc_sub _sub prototyped + .pcc_begin_return + .return 10 + .return 20 + .return 30 + .pcc_end_return + end +.end +CODE +10 +20 +30 OUT ##############################
