Author: pmichaud
Date: Sun Dec 28 13:06:00 2008
New Revision: 34517
Modified:
branches/rvar/compilers/pct/src/PAST/Compiler.pir
Log:
[pct]: If a PAST::Var register node doesn't provide a name, generate one.
Modified: branches/rvar/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- branches/rvar/compilers/pct/src/PAST/Compiler.pir (original)
+++ branches/rvar/compilers/pct/src/PAST/Compiler.pir Sun Dec 28 13:06:00 2008
@@ -2219,6 +2219,10 @@
.local string name
name = node.'name'()
+ if name goto have_name
+ name = self.'uniquereg'('P')
+ node.'name'(name)
+ have_name:
.local pmc ops
$P0 = get_hll_global ['POST'], 'Ops'
