Skip Menu |
Report information
Id: 120956
Status: new
Priority: 0/
Queue: perl6

Owner: Nobody
Requestors: rnhainsworth [at] gmail.com
Cc:
AdminCc:

Severity: (no value)
Tag: Bug
Platform: (no value)
Patch Status: (no value)
VM: (no value)



Date: Thu, 09 Jan 2014 11:51:03 +0800
From: Richard Hainsworth <rnhainsworth [...] gmail.com>
To: jnthn [...] jnthn.net, rakudobug [...] perl.org
Subject: [BUG] perl6-debug fails with a commented 'when' clause in a module
Download (untitled) / with headers
text/plain 9.5k
The following snippet illustrates code that a) compiles correctly b) works without perl6-debug c) will not load into perl6-debug unless the module is compiled. The problem occurs when a 'when' clause has a comment and is followed by another 'when' or 'default' clause. The work around is to remove or relocate the comments to the end of the 'default' clause or to the 'given' line. As I wrote this, I realised that the module was not necessary, but the failure is more spectacular - so I left it. All that is necessary is for a 'when' clause to have a comment on the end of the line and to be followed by another 'when' or 'default', eg. when / ss / { say 'something' ; succeed } # comment default { say 'something else' } This works fine when run, but causes perl6-debug to issue a 'confused' error. In other words, it appears to be a debug bug rather than a rakudo bug. I am using Rakudo * on Ubuntu. $ perl6 -v This is perl6 version 2013.11 built on parrot 5.9.0 revision 0 $ perl6-debug -v This is perl6 version built on parrot 5.9.0 revision 0 $ perl6 -v This is perl6 version 2013.11 built on parrot 5.9.0 revision 0 $ perl6-debug -v This is perl6 version built on parrot 5.9.0 revision 0 $ $ cat goo.p6 use v6; use NewClass; $ $ cat NewClass.pm6 use v6; class NewClass is export { method a { given 'a' { when /^ 'ss' / { succeed } # comment default {} } } } $ $ perl6 -I. --target=pir NewClass.pm6 > NewClass.pir $ perl6-debug -I. goo.p6 Show quoted text
>>> LOADING goo.p6
$ $ rm *.pir $ perl6-debug -I. goo.p6 Show quoted text
>>> LOADING goo.p6 >>> LOADING /home/richard/development/Micro_Macro/test/NewClass.pm6
Null PMC access in get_attr_str() current instr.: '' pc 5982 (src/gen/perl6-moduleloader.pir:2536) (gen/parrot/ModuleLoader.nqp:274) called from Sub '' pc 4896 (src/gen/perl6-moduleloader.pir:2075) (gen/parrot/ModuleLoader.nqp:226) called from Sub 'load_module' pc 4073 (src/gen/perl6-moduleloader.pir:1733) (gen/parrot/ModuleLoader.nqp:215) called from Sub 'load_module' pc 5768 (src/gen/perl6-symboltable.pir:2306) (src/Perl6/World.nqp:334) called from Sub '' pc 86351 (src/gen/perl6-grammar.pir:30852) (src/Perl6/Grammar.nqp:1309) called from Sub '' pc 86077 (src/gen/perl6-grammar.pir:30738) (src/Perl6/Grammar.nqp:1304) called from Sub 'statement_control:sym<use>' pc 84785 (src/gen/perl6-grammar.pir:30225) (src/Perl6/Grammar.nqp:1258) called from Sub '!protoregex' pc 12863 (gen/parrot/stage2/QRegex.pir:5259) (gen/parrot/stage2/QRegex.nqp:746) called from Sub 'statement_control' pc 71336 (src/gen/perl6-grammar.pir:26329) (src/Perl6/Grammar.nqp:1155) called from Sub 'statement' pc 62523 (src/gen/perl6-grammar.pir:23108) (src/Perl6/Grammar.nqp:1037) called from Sub 'statementlist' pc 59870 (src/gen/perl6-grammar.pir:22274) (src/Perl6/Grammar.nqp:1005) called from Sub '' pc 12130 (modules/rakudo-debugger/perl6-debug.pir:4909) (modules/rakudo-debugger/bin/perl6-debug.nqp:389) called from Sub 'statementlist' pc 12064 (modules/rakudo-debugger/perl6-debug.pir:4885) (modules/rakudo-debugger/bin/perl6-debug.nqp:382) called from Sub 'comp_unit' pc 52582 (src/gen/perl6-grammar.pir:19294) (src/Perl6/Grammar.nqp:796) called from Sub 'comp_unit' pc 12633 (modules/rakudo-debugger/perl6-debug.pir:5121) (modules/rakudo-debugger/bin/perl6-debug.nqp:405) called from Sub 'TOP' pc 17841 (src/gen/perl6-grammar.pir:7221) (src/Perl6/Grammar.nqp:345) called from Sub 'parse' pc 20976 (gen/parrot/stage2/QRegex.pir:8408) (gen/parrot/stage2/QRegex.nqp:1253) called from Sub 'parse' pc 33805 (gen/parrot/stage2/NQPHLL.pir:13321) (gen/parrot/stage2/NQPHLL.nqp:1425) called from Sub '' pc 33222 (gen/parrot/stage2/NQPHLL.pir:13107) (gen/parrot/stage2/NQPHLL.nqp:1380) called from Sub 'compile' pc 32999 (gen/parrot/stage2/NQPHLL.pir:13018) (gen/parrot/stage2/NQPHLL.nqp:1372) called from Sub 'eval' pc 28505 (gen/parrot/stage2/NQPHLL.pir:11151) (gen/parrot/stage2/NQPHLL.nqp:1129) called from Sub 'eval' pc 13668 (modules/rakudo-debugger/perl6-debug.pir:5543) (modules/rakudo-debugger/bin/perl6-debug.nqp:449) called from Sub 'evalfiles' pc 31923 (gen/parrot/stage2/NQPHLL.pir:12581) (gen/parrot/stage2/NQPHLL.nqp:1339) called from Sub 'command_eval' pc 30665 (gen/parrot/stage2/NQPHLL.pir:12092) (gen/parrot/stage2/NQPHLL.nqp:1276) called from Sub 'command_eval' pc 369 (src/gen/perl6-compiler.pir:194) (src/Perl6/Compiler.nqp:17) called from Sub 'command_line' pc 29669 (gen/parrot/stage2/NQPHLL.pir:11680) (gen/parrot/stage2/NQPHLL.nqp:1218) called from Sub 'MAIN' pc 779 (modules/rakudo-debugger/perl6-debug.pir:289) (modules/rakudo-debugger/bin/perl6-debug.nqp:499) called from Sub '' pc 226 (modules/rakudo-debugger/perl6-debug.pir:100) (modules/rakudo-debugger/bin/perl6-debug.nqp:1) called from Sub '' pc 18407 (modules/rakudo-debugger/perl6-debug.pir:7084) (modules/rakudo-debugger/bin/perl6-debug.nqp:449) thrown from: current instr.: '' pc 376105 (src/gen/p-CORE.setting.pir:158719) (gen/parrot/CORE.setting:9209) called from Sub 'at_key' pc 377173 (src/gen/p-CORE.setting.pir:159212) (gen/parrot/CORE.setting:9273) called from Sub 'postcircumfix:<{ }>' pc 75370 (src/gen/p-CORE.setting.pir:29941) (gen/parrot/CORE.setting:2465) called from Sub 'postcircumfix:<{ }>' pc 75340 (src/gen/p-CORE.setting.pir:29918) (gen/parrot/CORE.setting:2461) called from Sub '' pc 4712 (/home/richard/development/perl6/rakudo-star-2013.11/install/lib/parrot/5.9.0/languages/perl6/lib/Debugger/UI/CommandLine.pir:1770) (/home/richard/development/perl6/rakudo-star-2013.11/install/lib/parrot/5.9.0/languages/perl6/lib/Debugger/UI/CommandLine.pm:732) called from Sub '' pc 328412 (src/gen/p-CORE.setting.pir:138334) (gen/parrot/CORE.setting:7243) called from Sub 'reify' pc 327392 (src/gen/p-CORE.setting.pir:137963) (gen/parrot/CORE.setting:7220) called from Sub '' pc 325749 (src/gen/p-CORE.setting.pir:137230) (gen/parrot/CORE.setting:7138) called from Sub 'reify' pc 324936 (src/gen/p-CORE.setting.pir:136912) (gen/parrot/CORE.setting:7110) called from Sub 'gimme' pc 334305 (src/gen/p-CORE.setting.pir:140951) (gen/parrot/CORE.setting:7566) called from Sub 'sink' pc 346020 (src/gen/p-CORE.setting.pir:145670) (gen/parrot/CORE.setting:7976) called from Sub 'unhandled' pc 4518 (/home/richard/development/perl6/rakudo-star-2013.11/install/lib/parrot/5.9.0/languages/perl6/lib/Debugger/UI/CommandLine.pir:1697) (/home/richard/development/perl6/rakudo-star-2013.11/install/lib/parrot/5.9.0/languages/perl6/lib/Debugger/UI/CommandLine.pm:726) called from Sub '' pc 5982 (src/gen/perl6-moduleloader.pir:2536) (gen/parrot/ModuleLoader.nqp:274) called from Sub '' pc 4896 (src/gen/perl6-moduleloader.pir:2075) (gen/parrot/ModuleLoader.nqp:226) called from Sub 'load_module' pc 4073 (src/gen/perl6-moduleloader.pir:1733) (gen/parrot/ModuleLoader.nqp:215) called from Sub 'load_module' pc 5768 (src/gen/perl6-symboltable.pir:2306) (src/Perl6/World.nqp:334) called from Sub '' pc 86351 (src/gen/perl6-grammar.pir:30852) (src/Perl6/Grammar.nqp:1309) called from Sub '' pc 86077 (src/gen/perl6-grammar.pir:30738) (src/Perl6/Grammar.nqp:1304) called from Sub 'statement_control:sym<use>' pc 84785 (src/gen/perl6-grammar.pir:30225) (src/Perl6/Grammar.nqp:1258) called from Sub '!protoregex' pc 12863 (gen/parrot/stage2/QRegex.pir:5259) (gen/parrot/stage2/QRegex.nqp:746) called from Sub 'statement_control' pc 71336 (src/gen/perl6-grammar.pir:26329) (src/Perl6/Grammar.nqp:1155) called from Sub 'statement' pc 62523 (src/gen/perl6-grammar.pir:23108) (src/Perl6/Grammar.nqp:1037) called from Sub 'statementlist' pc 59870 (src/gen/perl6-grammar.pir:22274) (src/Perl6/Grammar.nqp:1005) called from Sub '' pc 12130 (modules/rakudo-debugger/perl6-debug.pir:4909) (modules/rakudo-debugger/bin/perl6-debug.nqp:389) called from Sub 'statementlist' pc 12064 (modules/rakudo-debugger/perl6-debug.pir:4885) (modules/rakudo-debugger/bin/perl6-debug.nqp:382) called from Sub 'comp_unit' pc 52582 (src/gen/perl6-grammar.pir:19294) (src/Perl6/Grammar.nqp:796) called from Sub 'comp_unit' pc 12633 (modules/rakudo-debugger/perl6-debug.pir:5121) (modules/rakudo-debugger/bin/perl6-debug.nqp:405) called from Sub 'TOP' pc 17841 (src/gen/perl6-grammar.pir:7221) (src/Perl6/Grammar.nqp:345) called from Sub 'parse' pc 20976 (gen/parrot/stage2/QRegex.pir:8408) (gen/parrot/stage2/QRegex.nqp:1253) called from Sub 'parse' pc 33805 (gen/parrot/stage2/NQPHLL.pir:13321) (gen/parrot/stage2/NQPHLL.nqp:1425) called from Sub '' pc 33222 (gen/parrot/stage2/NQPHLL.pir:13107) (gen/parrot/stage2/NQPHLL.nqp:1380) called from Sub 'compile' pc 32999 (gen/parrot/stage2/NQPHLL.pir:13018) (gen/parrot/stage2/NQPHLL.nqp:1372) called from Sub 'eval' pc 28505 (gen/parrot/stage2/NQPHLL.pir:11151) (gen/parrot/stage2/NQPHLL.nqp:1129) called from Sub 'eval' pc 13668 (modules/rakudo-debugger/perl6-debug.pir:5543) (modules/rakudo-debugger/bin/perl6-debug.nqp:449) called from Sub 'evalfiles' pc 31923 (gen/parrot/stage2/NQPHLL.pir:12581) (gen/parrot/stage2/NQPHLL.nqp:1339) called from Sub 'command_eval' pc 30665 (gen/parrot/stage2/NQPHLL.pir:12092) (gen/parrot/stage2/NQPHLL.nqp:1276) called from Sub 'command_eval' pc 369 (src/gen/perl6-compiler.pir:194) (src/Perl6/Compiler.nqp:17) called from Sub 'command_line' pc 29669 (gen/parrot/stage2/NQPHLL.pir:11680) (gen/parrot/stage2/NQPHLL.nqp:1218) called from Sub 'MAIN' pc 779 (modules/rakudo-debugger/perl6-debug.pir:289) (modules/rakudo-debugger/bin/perl6-debug.nqp:499) called from Sub '' pc 226 (modules/rakudo-debugger/perl6-debug.pir:100) (modules/rakudo-debugger/bin/perl6-debug.nqp:1) called from Sub '' pc 18407 (modules/rakudo-debugger/perl6-debug.pir:7084) (modules/rakudo-debugger/bin/perl6-debug.nqp:449) $ $


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org