[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