develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34517 - branches/rvar/compilers/pct/src/PAST

From:
pmichaud
Date:
December 28, 2008 13:06
Subject:
[svn:parrot] r34517 - branches/rvar/compilers/pct/src/PAST
Message ID:
20081228210604.00E14CB9FA@x12.develooper.com
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'



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About