[svn:parrot] r49326 - trunk/compilers/pct/src/PAST
jimmy at svn.parrot.org
jimmy at svn.parrot.org
Sun Sep 26 01:59:20 UTC 2010
Author: jimmy
Date: Sun Sep 26 01:59:20 2010
New Revision: 49326
URL: https://trac.parrot.org/parrot/changeset/49326
Log:
reverted retrogression introduced by r49325
Modified:
trunk/compilers/pct/src/PAST/Compiler.pir
Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir Sat Sep 25 22:46:43 2010 (r49325)
+++ trunk/compilers/pct/src/PAST/Compiler.pir Sun Sep 26 01:59:20 2010 (r49326)
@@ -932,9 +932,8 @@
$S0 = self.'unique'('control_')
ctrllabel = $P0.'new'('result'=>$S0)
$S0 = self.'uniquereg'('P')
- bpost.'push_pirop'('new', $S0, "'ExceptionHandler'")
+ bpost.'push_pirop'('new', $S0, "['ExceptionHandler']", '.CONTROL_RETURN')
bpost.'push_pirop'('set_addr', $S0, ctrllabel)
- bpost.'push_pirop'('callmethod', '"handle_types"', $S0, '.CONTROL_RETURN')
bpost.'push_pirop'('push_eh', $S0)
bpost.'add_directive'('.include "except_types.pasm"')
@@ -2088,7 +2087,7 @@
$S0 = files
sourceline = concat ' (', $S0
concat sourceline, ':'
- $I0 = source.'lineof'(pos)
+ $I0 = self.'lineof'(pos)
inc $I0
$S0 = $I0
concat sourceline, $S0
More information about the parrot-commits
mailing list