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

[svn:parrot] r33670 - trunk/examples/benchmarks

From:
coke
Date:
December 8, 2008 13:51
Subject:
[svn:parrot] r33670 - trunk/examples/benchmarks
Message ID:
20081208215120.E383BCB9AF@x12.develooper.com
Author: coke
Date: Mon Dec  8 13:51:19 2008
New Revision: 33670

Modified:
   trunk/examples/benchmarks/oofib.pir

Log:
Fix example PIR against recent PIR syntax cleanup



Modified: trunk/examples/benchmarks/oofib.pir
==============================================================================
--- trunk/examples/benchmarks/oofib.pir	(original)
+++ trunk/examples/benchmarks/oofib.pir	Mon Dec  8 13:51:19 2008
@@ -44,9 +44,7 @@
 .sub fib :method
     .param pmc n
     if n >= 2 goto rec
-    .begin_return
-    .return n
-    .end_return
+    .return (n)
 rec:
     .local pmc n1
     .local pmc n2
@@ -60,17 +58,13 @@
     r2 = self."fibB"(n2)
     n = new 'Integer'
     n = r1 + r2
-    .begin_return
-    .return n
-    .end_return
+    .return (n)
 .end
 
 .sub fibA :method
     .param pmc n
     if n >= 2 goto rec
-    .begin_return
-    .return n
-    .end_return
+    .return (n)
 rec:
     .local pmc n1
     .local pmc n2
@@ -84,9 +78,7 @@
     r2 = self."fibB"(n2)
     n = new 'Integer'
     n = r1 + r2
-    .begin_return
-    .return n
-    .end_return
+    .return (n)
 .end
 
 .namespace ["B"]
@@ -94,9 +86,7 @@
 .sub fibB :method
     .param pmc n
     if n >= 2 goto rec
-    .begin_return
-    .return n
-    .end_return
+    .return (n)
 rec:
     .local pmc n1
     .local pmc n2
@@ -110,9 +100,7 @@
     r2 = self."fibA"(n2)
     n = new 'Integer'
     n = r1 + r2
-    .begin_return
-    .return n
-    .end_return
+    .return (n)
 .end
 
 # Local Variables:



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