Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Some pir:: -> nqp:: in prep for JVM support.

  • Loading branch information...
commit c901e44c03489af637eab1279cc7d4bc0b9b4997 1 parent af2f675
@jnthn authored
Showing with 13 additions and 13 deletions.
  1. +13 −13 bin/perl6-debug.nqp
View
26 bin/perl6-debug.nqp
@@ -49,7 +49,7 @@ grammar Perl6::HookRegexGrammar is Perl6::RegexGrammar {
class Perl6::HookRegexActions is Perl6::RegexActions {
method nibbler($/) {
if $*RX_TOP_LEVEL_NIBBLER && $*DEBUG_HOOKS.has_hook('regex_region') {
- my $file := pir::find_caller_lex__Ps('$?FILES') // '<unknown>';
+ my $file := nqp::getlexcaller('$?FILES') // '<unknown>';
$*DEBUG_HOOKS.get_hook('regex_region')($file, $/.from, $/.to);
}
Perl6::RegexActions.nibbler($/);
@@ -77,7 +77,7 @@ class Perl6::HookRegexActions is Perl6::RegexActions {
QAST::Op.new(
:op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('regex_atom')) ),
- $*W.add_string_constant(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
+ $*W.add_string_constant(nqp::getlexcaller('$?FILES') // '<unknown>'),
ps_qast(),
$*W.add_numeric_constant($/, 'Int', $/.from),
$*W.add_numeric_constant($/, 'Int', $/.to)
@@ -104,7 +104,7 @@ grammar QRegex::P5Regex::HookGrammar is Perl6::P5RegexGrammar {
class QRegex::P5Regex::HookActions is Perl6::P5RegexActions {
method nibbler($/) {
if $*RX_TOP_LEVEL_NIBBLER && $*DEBUG_HOOKS.has_hook('regex_region') {
- my $file := pir::find_caller_lex__Ps('$?FILES') // '<unknown>';
+ my $file := nqp::getlexcaller('$?FILES') // '<unknown>';
$*DEBUG_HOOKS.get_hook('regex_region')($file, $/.from, $/.to);
}
QRegex::P5Regex::Actions.nibbler($/);
@@ -122,7 +122,7 @@ class QRegex::P5Regex::HookActions is Perl6::P5RegexActions {
QAST::Op.new(
:op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('regex_atom')) ),
- $*W.add_string_constant(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
+ $*W.add_string_constant(nqp::getlexcaller('$?FILES') // '<unknown>'),
ps_qast(),
$*W.add_numeric_constant($/, 'Int', $/.from),
$*W.add_numeric_constant($/, 'Int', $/.to)
@@ -183,7 +183,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new(
:op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_simple')) ),
- $*W.add_string_constant(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
+ $*W.add_string_constant(nqp::getlexcaller('$?FILES') // '<unknown>'),
ps_qast(),
$*W.add_numeric_constant($/, 'Int', $/.from),
$*W.add_numeric_constant($/, 'Int', $/.to)
@@ -203,7 +203,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new(
:op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_cond')) ),
- $*W.add_string_constant(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
+ $*W.add_string_constant(nqp::getlexcaller('$?FILES') // '<unknown>'),
ps_qast(),
$*W.add_string_constant('if'),
$*W.add_numeric_constant($/, 'Int', $from),
@@ -224,7 +224,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new(
:op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_cond')) ),
- $*W.add_string_constant(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
+ $*W.add_string_constant(nqp::getlexcaller('$?FILES') // '<unknown>'),
ps_qast(),
$*W.add_string_constant(~$<sym>),
$*W.add_numeric_constant($/, 'Int', $<sym>.from),
@@ -253,7 +253,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new(
:op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_cond')) ),
- $*W.add_string_constant(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
+ $*W.add_string_constant(nqp::getlexcaller('$?FILES') // '<unknown>'),
ps_qast(),
$*W.add_string_constant(~$<wu>),
$*W.add_numeric_constant($/, 'Int', $<wu>.from),
@@ -274,7 +274,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new(
:op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_cond')) ),
- $*W.add_string_constant(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
+ $*W.add_string_constant(nqp::getlexcaller('$?FILES') // '<unknown>'),
ps_qast(),
$*W.add_string_constant('loop'),
$*W.add_numeric_constant($/, 'Int', widen_expr_from($m[0])),
@@ -330,7 +330,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new(
:op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_simple')) ),
- $*W.add_string_constant(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
+ $*W.add_string_constant(nqp::getlexcaller('$?FILES') // '<unknown>'),
ps_qast(),
$*W.add_numeric_constant($/, 'Int', $/.from),
$*W.add_numeric_constant($/, 'Int', $/.to)
@@ -342,7 +342,7 @@ class Perl6::HookActions is Perl6::Actions {
sub routine_hook($/, $body, $type, $name) {
if $*DEBUG_HOOKS.has_hook('routine_region') {
- my $file := pir::find_caller_lex__Ps('$?FILES') // '<unknown>';
+ my $file := nqp::getlexcaller('$?FILES') // '<unknown>';
$*DEBUG_HOOKS.get_hook('routine_region')($file, $/.from, $/.to, $type, $name);
}
}
@@ -373,7 +373,7 @@ class Perl6::HookGrammar is Perl6::Grammar {
my %seen_files;
method statementlist() {
- my $file := pir::find_caller_lex__Ps('$?FILES') // '<unknown>';
+ my $file := nqp::getlexcaller('$?FILES') // '<unknown>';
unless nqp::existskey(%*SEEN_FILES, $file) {
if $*DEBUG_HOOKS.has_hook('new_file') {
# First time we've seen this file; register it.
@@ -421,7 +421,7 @@ class Perl6::HookGrammar is Perl6::Grammar {
my $comment := $c.MATCH.Str;
if $comment ~~ /'#?BREAK'/ {
if $*DEBUG_HOOKS.has_hook('new_breakpoint') {
- my $file := pir::find_caller_lex__Ps('$?FILES') // '<unknown>';
+ my $file := nqp::getlexcaller('$?FILES') // '<unknown>';
$*DEBUG_HOOKS.get_hook('new_breakpoint')($file, $c.MATCH().from());
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.