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

[jonathan at svn.parrot.org]

Author: jonathan
Date: Sun Jul 11 20:42:32 2010
New Revision: 48074
URL: https://trac.parrot.org/parrot/changeset/48074

Log:
[pct] Emit a missing pop_eh to fix TT#1631.

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

Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir	Sun Jul 11 16:47:36 2010	(r48073)
+++ trunk/compilers/pct/src/PAST/Compiler.pir	Sun Jul 11 20:42:32 2010	(r48074)
@@ -694,6 +694,7 @@
     concat $S0, rtype
     ops.'push_pirop'('.local pmc exception')
     ops.'push_pirop'('.get_results (exception)')
+    ops.'push_pirop'('pop_eh')
     children = self.'post_children'(node, 'signature'=>$S0)
     ops.'push'(children)
     handled = self.'uniquereg'('I')