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)
