Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Make block references have consistent semantics (always use subid), w…

…hether they live in a package or not.
  • Loading branch information...
commit 3c7fb39da06353c2401cb3e77905fac4792c62a4 1 parent 71ed521
@jnthn jnthn authored
Showing with 0 additions and 12 deletions.
  1. +0 −12 compilers/pct/src/PAST/Compiler.pir
View
12 compilers/pct/src/PAST/Compiler.pir
@@ -854,23 +854,11 @@ Return the POST representation of a C<PAST::Block>.
## pir-encode name and namespace
.local string blockreg, blockref
blockreg = self.'uniquereg'('P')
- if ns goto block_ns
blockref = concat ".const 'Sub' ", blockreg
blockref = concat blockref, ' = '
$P0 = bpost.'subid'()
$S0 = self.'escape'($P0)
blockref = concat blockref, $S0
- goto have_blockref
- block_ns:
- $P0 = get_hll_global ['POST'], 'Compiler'
- blockref = concat 'get_hll_global ', blockreg
- $S0 = $P0.'key_pir'(ns)
- blockref = concat blockref, ', '
- blockref = concat blockref, $S0
- $S0 = self.'escape'(name)
- blockref = concat blockref, ', '
- blockref = concat blockref, $S0
- have_blockref:
## determine the outer POST::Sub for the new one
.local pmc outerpost
Please sign in to comment.
Something went wrong with that request. Please try again.