Skip to content

Instantly share code, notes, and snippets.

Created March 23, 2015 12:32
Show Gist options
  • Save anonymous/2d5160e65ef9c12a5cd2 to your computer and use it in GitHub Desktop.
Save anonymous/2d5160e65ef9c12a5cd2 to your computer and use it in GitHub Desktop.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
index fddd361..d2461a1 100644
--- a/src/Perl6/Actions.nqp
+++ b/src/Perl6/Actions.nqp
@@ -4212,7 +4212,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
$past.name($name);
$past.node($/);
unless +$past.list() {
- $past.push($*W.add_string_constant('Stub code executed'));
+ $past.push($*W.typed_exception($/, ['X', 'Stub', 'Executed']));
}
$past
}
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
index 45cbfee..5b4db39 100644
--- a/src/core/Exception.pm
+++ b/src/core/Exception.pm
@@ -1203,6 +1203,10 @@ my class X::Package::Stubbed does X::Comp {
}
}
+my class X::Stub::Executed is Exception {
+ method message { 'Stub code executed' }
+}
+
my class X::Phaser::PrePost is Exception {
has $.phaser = 'PRE';
has $.condition;
Stage start : 0.000
Stage parse : Error while constructing error object:Could not locate compile-time value for symbol X::Stub::Executed
Error while compiling, type X::Stub::Executed
at line 8, near "}\nmy class"
at gen/moar/stage2/NQPHLL.nqp:493 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:panic:105)
from src/Perl6/World.nqp:3042 (blib/Perl6/World.moarvm:typed_exception:740)
from src/gen/m-Perl6-Actions.nqp:4214 (blib/Perl6/Actions.moarvm:make_yada:88)
from src/gen/m-Perl6-Actions.nqp:4220 (blib/Perl6/Actions.moarvm:term:sym<...>:11)
from gen/moar/stage2/QRegex.nqp:1241 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/QRegex.moarvm:!reduce:26)
from gen/moar/stage2/QRegex.nqp:1195 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/QRegex.moarvm:!cursor_pass:0)
from <unknown>:1 (blib/Perl6/Grammar.moarvm:term:sym<...>:197)
from gen/moar/stage2/QRegex.nqp:1278 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/QRegex.moarvm:!protoregex:110)
from <unknown>:1 (blib/Perl6/Grammar.moarvm:term:10)
from src/Perl6/Grammar.nqp:3748 (blib/Perl6/Grammar.moarvm:termish:359)
from gen/moar/stage2/NQPHLL.nqp:655 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:EXPR:75)
from src/Perl6/Grammar.nqp:3778 (blib/Perl6/Grammar.moarvm:EXPR:24)
from src/Perl6/Grammar.nqp:1343 (blib/Perl6/Grammar.moarvm:statement:355)
from src/Perl6/Grammar.nqp:1275 (blib/Perl6/Grammar.moarvm:statementlist:241)
from src/Perl6/Grammar.nqp:1436 (blib/Perl6/Grammar.moarvm:blockoid:193)
from src/Perl6/Grammar.nqp:2427 (blib/Perl6/Grammar.moarvm:package_def:2221)
from <unknown>:1 (blib/Perl6/Grammar.moarvm:package_declarator:sym<class>:175)
from gen/moar/stage2/QRegex.nqp:1278 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/QRegex.moarvm:!protoregex:110)
from <unknown>:1 (blib/Perl6/Grammar.moarvm:package_declarator:10)
from src/Perl6/Grammar.nqp:2538 (blib/Perl6/Grammar.moarvm:scoped:378)
from <unknown>:1 (blib/Perl6/Grammar.moarvm:scope_declarator:sym<my>:107)
from gen/moar/stage2/QRegex.nqp:1278 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/QRegex.moarvm:!protoregex:110)
from <unknown>:1 (blib/Perl6/Grammar.moarvm:scope_declarator:10)
from <unknown>:1 (blib/Perl6/Grammar.moarvm:term:sym<scope_declarator>:57)
from gen/moar/stage2/QRegex.nqp:1278 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/QRegex.moarvm:!protoregex:110)
from <unknown>:1 (blib/Perl6/Grammar.moarvm:term:10)
from src/Perl6/Grammar.nqp:3748 (blib/Perl6/Grammar.moarvm:termish:359)
from gen/moar/stage2/NQPHLL.nqp:655 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:EXPR:75)
from src/Perl6/Grammar.nqp:3778 (blib/Perl6/Grammar.moarvm:EXPR:24)
from src/Perl6/Grammar.nqp:1343 (blib/Perl6/Grammar.moarvm:statement:355)
from src/Perl6/Grammar.nqp:1275 (blib/Perl6/Grammar.moarvm:statementlist:241)
from gen/moar/stage2/NQPHLL.nqp:869 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:LANG:146)
from src/Perl6/Grammar.nqp:1688 (blib/Perl6/Grammar.moarvm:FOREIGN_LANG:67)
from src/Perl6/Grammar.nqp:1133 (blib/Perl6/Grammar.moarvm:comp_unit:2820)
from src/Perl6/Grammar.nqp:372 (blib/Perl6/Grammar.moarvm:TOP:487)
from gen/moar/stage2/QRegex.nqp:1873 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/QRegex.moarvm:parse:44)
from gen/moar/stage2/NQPHLL.nqp:1539 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:parse:80)
from gen/moar/stage2/NQPHLL.nqp:1495 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:compile:203)
from gen/moar/stage2/NQPHLL.nqp:1236 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:eval:53)
from gen/moar/stage2/NQPHLL.nqp:1451 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:evalfiles:91)
from gen/moar/stage2/NQPHLL.nqp:1349 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:command_eval:211)
from src/Perl6/Compiler.nqp:17 (blib/Perl6/Compiler.moarvm:command_eval:93)
from gen/moar/stage2/NQPHLL.nqp:1324 (/usr/local/cedric/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:command_line:116)
from src/gen/m-main.nqp:39 (perl6.moarvm:MAIN:18)
from src/gen/m-main.nqp:35 (perl6.moarvm:<mainline>:197)
from <unknown>:1 (perl6.moarvm:<main>:8)
from <unknown>:1 (perl6.moarvm:<entry>:9)
make: *** [CORE.setting.moarvm] Error 1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment