Skip to content

Commit

Permalink
Fix some pir:: signatures.
Browse files Browse the repository at this point in the history
  • Loading branch information
@jnthn
jnthn committed Sep 8, 2012
1 parent f65b95d commit 8d54157
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions bin/perl6-debug.nqp
View file
Expand Up @@ -67,7 +67,7 @@ class Perl6::HookRegexActions is Perl6::RegexActions {
QAST::Op.new( QAST::Op.new(
:op('call'), :op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('regex_atom')) ), 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(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
ps_qast(), ps_qast(),
$*W.add_numeric_constant('Int', $/.from), $*W.add_numeric_constant('Int', $/.from),
$*W.add_numeric_constant('Int', $/.to) $*W.add_numeric_constant('Int', $/.to)
Expand Down Expand Up @@ -119,7 +119,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new( QAST::Op.new(
:op('call'), :op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_simple')) ), 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(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
ps_qast(), ps_qast(),
$*W.add_numeric_constant('Int', $/.from), $*W.add_numeric_constant('Int', $/.from),
$*W.add_numeric_constant('Int', $/.to) $*W.add_numeric_constant('Int', $/.to)
Expand All @@ -139,7 +139,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new( QAST::Op.new(
:op('call'), :op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_cond')) ), 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(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
ps_qast(), ps_qast(),
$*W.add_string_constant('if'), $*W.add_string_constant('if'),
$*W.add_numeric_constant('Int', $from), $*W.add_numeric_constant('Int', $from),
Expand All @@ -160,7 +160,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new( QAST::Op.new(
:op('call'), :op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_cond')) ), 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(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
ps_qast(), ps_qast(),
$*W.add_string_constant(~$<sym>), $*W.add_string_constant(~$<sym>),
$*W.add_numeric_constant('Int', $<sym>.from), $*W.add_numeric_constant('Int', $<sym>.from),
Expand Down Expand Up @@ -189,7 +189,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new( QAST::Op.new(
:op('call'), :op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_cond')) ), 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(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
ps_qast(), ps_qast(),
$*W.add_string_constant(~$<wu>), $*W.add_string_constant(~$<wu>),
$*W.add_numeric_constant('Int', $<wu>.from), $*W.add_numeric_constant('Int', $<wu>.from),
Expand All @@ -210,7 +210,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new( QAST::Op.new(
:op('call'), :op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_cond')) ), 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(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
ps_qast(), ps_qast(),
$*W.add_string_constant('loop'), $*W.add_string_constant('loop'),
$*W.add_numeric_constant('Int', widen_expr_from($m[0])), $*W.add_numeric_constant('Int', widen_expr_from($m[0])),
Expand Down Expand Up @@ -266,7 +266,7 @@ class Perl6::HookActions is Perl6::Actions {
QAST::Op.new( QAST::Op.new(
:op('call'), :op('call'),
QAST::WVal.new( :value($*DEBUG_HOOKS.get_hook('statement_simple')) ), 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(pir::find_caller_lex__Ps('$?FILES') // '<unknown>'),
ps_qast(), ps_qast(),
$*W.add_numeric_constant('Int', $/.from), $*W.add_numeric_constant('Int', $/.from),
$*W.add_numeric_constant('Int', $/.to) $*W.add_numeric_constant('Int', $/.to)
Expand Down

0 comments on commit 8d54157

Please sign in to comment.