Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

perl6-debug fails with a commented 'when' clause in a module #3309

Open
p6rt opened this issue Jan 9, 2014 · 1 comment
Open

perl6-debug fails with a commented 'when' clause in a module #3309

p6rt opened this issue Jan 9, 2014 · 1 comment
Labels

Comments

@p6rt
Copy link

p6rt commented Jan 9, 2014

Migrated from rt.perl.org#120956 (status was 'new')

Searchable as RT120956$

@p6rt
Copy link
Author

p6rt commented Jan 9, 2014

From @finanalyst

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

LOADING goo.p6
$
$ rm *.pir
$ perl6-debug -I. goo.p6
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)
$
$

@p6rt p6rt added the Bug label Jan 5, 2020
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
Projects
None yet
Development

No branches or pull requests

1 participant