Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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
Jonathan Worthington jnthn authored
Showing with 0 additions and 12 deletions.
  1. +0 −12 compilers/pct/src/PAST/Compiler.pir
12 compilers/pct/src/PAST/Compiler.pir
View
@@ -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.