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

[svn:parrot] r34381 - trunk/languages/lua/src/lib

From:
fperrad
Date:
December 26, 2008 07:39
Subject:
[svn:parrot] r34381 - trunk/languages/lua/src/lib
Message ID:
20081226153921.E2262CBA12@x12.develooper.com
Author: fperrad
Date: Fri Dec 26 07:39:20 2008
New Revision: 34381

Modified:
   trunk/languages/lua/src/lib/complex.pir

Log:
[Lua] complex
- remove .tailcall in metamethod

Modified: trunk/languages/lua/src/lib/complex.pir
==============================================================================
--- trunk/languages/lua/src/lib/complex.pir	(original)
+++ trunk/languages/lua/src/lib/complex.pir	Fri Dec 26 07:39:20 2008
@@ -147,7 +147,8 @@
     $P1 = get(1, z)
     $P2 = get(2, w)
     $P0 = add $P1, $P2
-    .tailcall newcomplex($P0)
+    $P0 = newcomplex($P0)
+    .return ($P0)
 .end
 
 
@@ -162,7 +163,8 @@
     $P1 = get(1, z)
     $P2 = get(2, w)
     $P0 = div $P1, $P2
-    .tailcall newcomplex($P0)
+    $P0 = newcomplex($P0)
+    .return ($P0)
 .end
 
 
@@ -194,7 +196,8 @@
     $P1 = get(1, z)
     $P2 = get(2, w)
     $P0 = mul $P1, $P2
-    .tailcall newcomplex($P0)
+    $P0 = newcomplex($P0)
+    .return ($P0)
 .end
 
 
@@ -209,7 +212,8 @@
     $P1 = get(1, z)
     $P2 = get(2, w)
     $P0 = sub $P1, $P2
-    .tailcall newcomplex($P0)
+    $P0 = newcomplex($P0)
+    .return ($P0)
 .end
 
 



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