Skip to content
This repository
Browse code

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 authored April 21, 2011

Showing 1 changed file with 0 additions and 12 deletions. Show diff stats Hide diff stats

  1. 12  compilers/pct/src/PAST/Compiler.pir
12  compilers/pct/src/PAST/Compiler.pir
@@ -854,23 +854,11 @@ Return the POST representation of a C<PAST::Block>.
854 854
     ##  pir-encode name and namespace
855 855
     .local string blockreg, blockref
856 856
     blockreg = self.'uniquereg'('P')
857  
-    if ns goto block_ns
858 857
     blockref = concat ".const 'Sub' ", blockreg
859 858
     blockref = concat blockref, ' = '
860 859
     $P0 = bpost.'subid'()
861 860
     $S0 = self.'escape'($P0)
862 861
     blockref = concat blockref, $S0
863  
-    goto have_blockref
864  
-  block_ns:
865  
-    $P0 = get_hll_global ['POST'], 'Compiler'
866  
-    blockref = concat 'get_hll_global ', blockreg
867  
-    $S0 = $P0.'key_pir'(ns)
868  
-    blockref = concat blockref, ', '
869  
-    blockref = concat blockref, $S0
870  
-    $S0 = self.'escape'(name)
871  
-    blockref = concat blockref, ', '
872  
-    blockref = concat blockref, $S0
873  
-  have_blockref:
874 862
 
875 863
     ##  determine the outer POST::Sub for the new one
876 864
     .local pmc outerpost

0 notes on commit 3c7fb39

Please sign in to comment.
Something went wrong with that request. Please try again.