# New Ticket Created by chromatic # Please include the string: [perl #28920] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=28920 >
The attached patch to the IMCC test suite demonstrates that .param directives must appear in one contiguous block, else an 'No entries on UserStack!' error will appear. This may be intentional -- however, it surprised me. -- c
Index: imcc/t/syn/pcc.t =================================================================== RCS file: /cvs/public/parrot/imcc/t/syn/pcc.t,v retrieving revision 1.40 diff -u -u -r1.40 pcc.t --- imcc/t/syn/pcc.t 30 Mar 2004 14:50:00 -0000 1.40 +++ imcc/t/syn/pcc.t 18 Apr 2004 00:32:11 -0000 @@ -1,6 +1,6 @@ #!perl use strict; -use TestCompiler tests => 36; +use TestCompiler tests => 37; ############################## # Parrot Calling Conventions @@ -1394,3 +1394,34 @@ P 0 OUT +output_is(<<'CODE', <<'OUT', '.param lines not contiguous'); +.sub _main + _func(1,2,3,'ok ', 'ok ', 'ok ') + end +.end +.sub _func + # integer arguments + .param int one + .param int two + .param int three + + # string arguments + .param string ok_one + .param string ok_two + .param string ok_three + + print ok_one + print one + print "\n" + print ok_two + print two + print "\n" + print ok_three + print three + print "\n" +.end +CODE +ok 1 +ok 2 +ok 3 +OUT
