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

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

From:
fperrad
Date:
November 13, 2008 03:11
Subject:
[svn:parrot] r32605 - trunk/languages/lua/src/lib
Message ID:
20081113111129.6F84DCB9AF@x12.develooper.com
Author: fperrad
Date: Thu Nov 13 03:11:28 2008
New Revision: 32605

Modified:
   trunk/languages/lua/src/lib/lpeg.pir
   trunk/languages/lua/src/lib/struct.pir

Log:
[Lua] no std lib
use .tailcall


Modified: trunk/languages/lua/src/lib/lpeg.pir
==============================================================================
--- trunk/languages/lua/src/lib/lpeg.pir	(original)
+++ trunk/languages/lua/src/lib/lpeg.pir	Thu Nov 13 03:11:28 2008
@@ -778,7 +778,7 @@
 .sub 'C'
     .param pmc patt :optional
     .param pmc extra :slurpy
-    .return capture_aux(patt, Csimple, 0)
+    .tailcall capture_aux(patt, Csimple, 0)
 .end
 
 
@@ -880,7 +880,7 @@
     .param pmc func :optional
     .param pmc extra :slurpy
     lua_checktype(2, func, 'function')
-    .return capture_aux(patt, Cfold, 0)
+    .tailcall capture_aux(patt, Cfold, 0)
 .end
 
 
@@ -907,10 +907,10 @@
     $I0 = isa name, 'LuaNil'
     unless $I0 goto L2
   L1:
-    .return capture_aux(patt, Cgroup, 0)
+    .tailcall capture_aux(patt, Cgroup, 0)
   L2:
     lua_checkstring(2, name)
-    .return capture_aux(patt, Cgroup, 2)
+    .tailcall capture_aux(patt, Cgroup, 2)
 .end
 
 
@@ -945,7 +945,7 @@
 .sub 'Cs'
     .param pmc patt :optional
     .param pmc extra :slurpy
-    .return capture_aux(patt, Csubst, 0)
+    .tailcall capture_aux(patt, Csubst, 0)
 .end
 
 
@@ -964,7 +964,7 @@
 .sub 'Ct'
     .param pmc patt :optional
     .param pmc extra :slurpy
-    .return capture_aux(patt, Ctable, 0)
+    .tailcall capture_aux(patt, Ctable, 0)
 .end
 
 
@@ -1005,15 +1005,15 @@
     if $I0 goto L1
     goto L2
   L1:
-    .return capture_aux(patt, Cfunction, 2)
+    .tailcall capture_aux(patt, Cfunction, 2)
   L2:
     $I0 = isa arg, 'LuaTable'
     unless $I0 goto L3
-    .return capture_aux(patt, Cquery, 2)
+    .tailcall capture_aux(patt, Cquery, 2)
   L3:
     $I0 = isa arg, 'LuaString'
     unless $I0 goto L4
-    .return capture_aux(patt, Cstring, 2)
+    .tailcall capture_aux(patt, Cstring, 2)
   L4:
     lua_argerror(2, "invalid replacement value")
 .end

Modified: trunk/languages/lua/src/lib/struct.pir
==============================================================================
--- trunk/languages/lua/src/lib/struct.pir	(original)
+++ trunk/languages/lua/src/lib/struct.pir	Thu Nov 13 03:11:28 2008
@@ -217,10 +217,10 @@
   L6:
     unless $S0 == 'i' goto L7
     sysinfo $I0, .SYSINFO_PARROT_INTSIZE
-    .return getnum(fmt, $I0)
+    .tailcall getnum(fmt, $I0)
   L7:
     unless $S0 == 'c' goto L8
-    .return getnum(fmt, 1)
+    .tailcall getnum(fmt, 1)
   L8:
     unless $S0 == 's' goto L9
     .return (0, fmt)
@@ -238,7 +238,7 @@
   L1:
     fmt = substr fmt, 1
     $I0 = getmaxalign()
-    .return getnum(fmt, $I0)
+    .tailcall getnum(fmt, $I0)
 .end
 
 .sub 'gettoalign' :anon



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