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

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

From:
pmichaud
Date:
November 12, 2008 20:09
Subject:
[svn:parrot] r32586 - trunk/compilers/pct/src/PAST
Message ID:
20081113040855.54BBCCB9AF@x12.develooper.com
Author: pmichaud
Date: Wed Nov 12 20:08:53 2008
New Revision: 32586

Modified:
   trunk/compilers/pct/src/PAST/Compiler.pir

Log:
[pct]: Make sure callmethod quotes method names (Coke++)


Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir	(original)
+++ trunk/compilers/pct/src/PAST/Compiler.pir	Wed Nov 12 20:08:53 2008
@@ -600,7 +600,7 @@
     $S0 = self.'uniquereg'('P')
     bpost.'push_pirop'('new', $S0, "'ExceptionHandler'")
     bpost.'push_pirop'('set_addr', $S0, ctrllabel)
-    bpost.'push_pirop'('callmethod', 'handle_types', $S0, .CONTROL_RETURN)
+    bpost.'push_pirop'('callmethod', '"handle_types"', $S0, .CONTROL_RETURN)
     bpost.'push_pirop'('push_eh', $S0)
 
   children_past:
@@ -655,7 +655,7 @@
     lisub = $P0.'new'('outer'=>bpost, 'pirflags'=>':load :init')
     lisub.'push_pirop'('.local pmc', 'block')
     lisub.'push_pirop'('interpinfo', '$P20', .INTERPINFO_CURRENT_SUB)
-    lisub.'push_pirop'('callmethod', 'get_outer', '$P20', 'result'=>'block')
+    lisub.'push_pirop'('callmethod', '"get_outer"', '$P20', 'result'=>'block')
     .local pmc lipast, lipost
     lipast = node.'loadinit'()
     lipost = self.'as_post'(lipast, 'rtype'=>'v')
@@ -1171,7 +1171,7 @@
     next_handler = self.'uniquereg'('P')
     ops.'push_pirop'('new', next_handler, "'ExceptionHandler'")
     ops.'push_pirop'('set_addr', next_handler, nextlabel)
-    ops.'push_pirop'('callmethod', 'handle_types', next_handler, .CONTROL_LOOP_NEXT)
+    ops.'push_pirop'('callmethod', '"handle_types"', next_handler, .CONTROL_LOOP_NEXT)
     ops.'push_pirop'('push_eh', next_handler)
     ops.'push_pirop'('iter', iter, collpost)
     ops.'push'(looplabel)



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