rakudo-debug.nqp (rakudo-2020.08.2) | : | rakudo-debug.nqp (rakudo-2020.09) | ||
---|---|---|---|---|
skipping to change at line 457 | skipping to change at line 457 | |||
sub MAIN(*@ARGS) { | sub MAIN(*@ARGS) { | |||
# XXX Parrot compat hack. | # XXX Parrot compat hack. | |||
if nqp::islist(@ARGS[0]) { | if nqp::islist(@ARGS[0]) { | |||
@ARGS := @ARGS[0]; | @ARGS := @ARGS[0]; | |||
} | } | |||
# Initialize dynops. | # Initialize dynops. | |||
nqp::p6init(); | nqp::p6init(); | |||
nqp::bindhllsym('default', 'SysConfig', Perl6::SysConfig.new()); | my %rakudo-build-config := nqp::hash(); | |||
hll-config(nqp::gethllsym('default', 'SysConfig').rakudo-build-config); | hll-config(%rakudo-build-config); | |||
nqp::bindhllsym('default', 'SysConfig', Perl6::SysConfig.new(%rakudo-build-c | ||||
onfig)); | ||||
# Create and configure compiler object. | # Create and configure compiler object. | |||
my $comp := Perl6::Debugger.new(); | my $comp := Perl6::Debugger.new(); | |||
$comp.language('Raku'); | $comp.language('Raku'); | |||
$comp.parsegrammar(Perl6::HookGrammar); | $comp.parsegrammar(Perl6::HookGrammar); | |||
$comp.parseactions(Perl6::HookActions); | $comp.parseactions(Perl6::HookActions); | |||
$comp.addstage('syntaxcheck', :before<ast>); | $comp.addstage('syntaxcheck', :before<ast>); | |||
$comp.addstage('optimize', :after<ast>); | $comp.addstage('optimize', :after<ast>); | |||
End of changes. 1 change blocks. | ||||
2 lines changed or deleted | 4 lines changed or added |