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

[svn:parrot] r33871 - trunk/compilers/pct/src/PAST

From:
pmichaud
Date:
December 13, 2008 15:24
Subject:
[svn:parrot] r33871 - trunk/compilers/pct/src/PAST
Message ID:
20081213232414.2433CCBAC8@x12.develooper.com
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'



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