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

[svn:parrot] r34268 - branches/pctloop/compilers/pct/src/PAST

From:
tene
Date:
December 22, 2008 22:53
Subject:
[svn:parrot] r34268 - branches/pctloop/compilers/pct/src/PAST
Message ID:
20081223065315.C6C68CBA12@x12.develooper.com
Author: tene
Date: Mon Dec 22 22:53:14 2008
New Revision: 34268

Modified:
   branches/pctloop/compilers/pct/src/PAST/Compiler.pir

Log:
[pct]: Use a goto instead of an exception in one place.

Modified: branches/pctloop/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- branches/pctloop/compilers/pct/src/PAST/Compiler.pir	(original)
+++ branches/pctloop/compilers/pct/src/PAST/Compiler.pir	Mon Dec 22 22:53:14 2008
@@ -1575,7 +1575,7 @@
     ops.'push'(start)
     ops.'push'(startlabel)
     ops.'push'(body)
-    self.'push_throw_typed'(ops, .CONTROL_LOOP_NEXT)
+    ops.'push_pirop'('goto', looplabel)
 
     ops.'push'(redolabel)
     ops.'push_pirop'('.local pmc exception')



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