[svn:parrot] r26508 - in trunk/languages/lua: . t

[fperrad]

Author: fperrad
Date: Fri Mar 21 01:19:06 2008
New Revision: 26508

Modified:
   trunk/languages/lua/lua.pir
   trunk/languages/lua/t/standalone.t

Log:
[Lua]
aligned with Lua 5.1.3 (part 4)

Modified: trunk/languages/lua/lua.pir
==============================================================================
--- trunk/languages/lua/lua.pir (original)
+++ trunk/languages/lua/lua.pir Fri Mar 21 01:19:06 2008
@@ -346,9 +346,9 @@
 
 
 .sub 'dostring' :anon
-    .param string s
+    .param string buf
     .param string name
-    ($P0, $S0) = lua_loadbuffer(s, name)
+    ($P0, $S0) = lua_loadbuffer(buf, name)
     if null $P0 goto L1
     ($P0 :slurpy) = docall($P0)
     .return report($P0 :flat)
@@ -365,12 +365,8 @@
     $P0 = env.'rawget'(k_require)
     new $P1, 'LuaString'
     set $P1, name
-    push_eh _handler
-    $P0($P1)
-    .return (0)
-  _handler:
-    .get_results ($P0, $S0)
-    .return report(1, $S0)
+    ($P0 :slurpy) = docall($P0, $P1)
+    .return report($P0 :flat)
 .end
 
 

Modified: trunk/languages/lua/t/standalone.t
==============================================================================
--- trunk/languages/lua/t/standalone.t  (original)
+++ trunk/languages/lua/t/standalone.t  Fri Mar 21 01:19:06 2008
@@ -194,7 +194,7 @@
 language_output_like( 'lua', << 'CODE', << 'OUTPUT', '-l no_lib' );
 print "hello"
 CODE
-/^lua.pbc: module 'no_lib' not found:\n/
+/^lua[^:]*: [^:]+:\d+: module 'no_lib' not found:\n/
 OUTPUT
 
 }