Author: pmichaud
Date: Sat Dec 13 15:24:13 2008
New Revision: 33871
Modified:
trunk/compilers/pct/src/PAST/Compiler.pir
Log:
[pct]: Have PAST::Compiler start to use :subid instead of :name.
Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir (original)
+++ trunk/compilers/pct/src/PAST/Compiler.pir Sat Dec 13 15:24:13 2008
@@ -737,7 +737,9 @@
if ns goto block_ns
blockref = concat ".const 'Sub' ", blockreg
concat blockref, ' = '
- concat blockref, name
+ $P0 = bpost.'subid'()
+ $S0 = self.'escape'($P0)
+ concat blockref, $S0
goto have_blockref
block_ns:
$P0 = get_global '%!codestring'
