# New Ticket Created by Chris Dolan
# Please include the string: [perl #63384]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=63384 >
gen_actions.pir and gen_setting.pir both have ":subid("16")" and the
wrong one is being called during compilation. I'm using parrot
0.9.1, compiled from svn tag RELEASE_0_9_1 and building Rakudo from
git head (commit f23eda2c5251db5a90f5fdd3b587d4c234ee70e4) on Mac OSX
10.4, intel
../../parrot perl6.pbc -e 'say 1'
too few arguments passed (0) - 1 params expected
current instr.: 'parrot;Bool;pick' pc 23552 (src/gen_setting.pir:335)
called from Sub 'parrot;Perl6;Grammar;Actions;statement_block' pc
117523 (src/gen_actions.pir:453)
called from Sub 'parrot;Perl6;Grammar;statement_block' pc 31748 (src/
gen_grammar.pir:1821)
called from Sub 'parrot;Perl6;Grammar;TOP' pc 27721 (src/
gen_grammar.pir:230)
called from Sub 'parrot;PCT;HLLCompiler;parse' pc 665 (src/PCT/
HLLCompiler.pir:400)
called from Sub 'parrot;PCT;HLLCompiler;compile' pc 428 (src/PCT/
HLLCompiler.pir:301)
called from Sub 'parrot;PCT;HLLCompiler;eval' pc 920 (src/PCT/
HLLCompiler.pir:519)
called from Sub 'parrot;PCT;HLLCompiler;command_line' pc 1496 (src/
PCT/HLLCompiler.pir:787)
called from Sub 'parrot;Perl6;Compiler;main' pc 22337 (perl6.pir:162)
=== gen_setting.pir ===
.namespace ["Bool"]
.sub "pick" :subid("16") :method :outer("13")
=== gen_actions.pir ===
.namespace ["Perl6";"Grammar";"Actions"]
.sub "statement_block" :subid("15") :method :outer("11")
...
.const 'Sub' $P94 = "16"
capture_lex $P94
$P94()
...
.namespace ["Perl6";"Grammar";"Actions"]
.sub "_block93" :anon :subid("16") :outer("15")
