Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Translate GLOBAL installation (still something vm-specific for now).
  • Loading branch information
jnthn committed Jul 2, 2012
1 parent 85bbebb commit a9770e0
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/QPerl6/Actions.pm
Expand Up @@ -251,9 +251,9 @@ class QPerl6::Actions is HLL::Actions {
# We'll install our view of GLOBAL as the main one; any other
# compilation unit that is using this one will then replace it
# with its view later (or be in a position to restore it).
my $global_install := PAST::Op.new(
:pasttype('bind_6model'),
PAST::Var.new( :name('GLOBAL'), :namespace([]), :scope('package') ),
my $global_install := QAST::VM.new(
pirop => 'set_hll_global vsP',
QAST::SVal.new( :value('GLOBAL') ),
QAST::WVal.new( :value($*GLOBALish) )
);
$*W.add_fixup_task(:deserialize_past($global_install), :fixup_past($global_install));
Expand Down

0 comments on commit a9770e0

Please sign in to comment.