Author: fperrad
Date: Fri Jan 26 00:43:51 2007
New Revision: 16808
Modified:
trunk/languages/lua/lib/luabasic.pir
trunk/languages/lua/lib/luadebug.pir
trunk/languages/lua/t/debug.t
Log:
[Lua]
- fix debug.setmetatable
Modified: trunk/languages/lua/lib/luabasic.pir
==============================================================================
--- trunk/languages/lua/lib/luabasic.pir (original)
+++ trunk/languages/lua/lib/luabasic.pir Fri Jan 26 00:43:51 2007
@@ -594,7 +594,7 @@
.local pmc ret
checktype(table, 'table')
checkany(index)
- ret = table.'rawget'(index)
+ ret = table.'rawget'(index)
.return (ret)
.end
Modified: trunk/languages/lua/lib/luadebug.pir
==============================================================================
--- trunk/languages/lua/lib/luadebug.pir (original)
+++ trunk/languages/lua/lib/luadebug.pir Fri Jan 26 00:43:51 2007
@@ -328,6 +328,7 @@
.sub '_debug_setmetatable' :anon
.param pmc table :optional
.param pmc metatable :optional
+ .local pmc ret
checktype(table, 'table')
if_null metatable, L0
$S0 = typeof metatable
@@ -337,7 +338,9 @@
argerror("nil or table expected")
L1:
table.'set_metatable'(metatable)
- .return ()
+ new ret, .LuaBoolean
+ ret = 1
+ .return (ret)
.end
Modified: trunk/languages/lua/t/debug.t
==============================================================================
--- trunk/languages/lua/t/debug.t (original)
+++ trunk/languages/lua/t/debug.t Fri Jan 26 00:43:51 2007
@@ -42,7 +42,7 @@
language_output_is( 'lua', <<'CODE', <<'OUT', 'setmetatable' );
t = {}
t1 = {}
-debug.setmetatable(t, t1)
+assert(debug.setmetatable(t, t1) == true)
assert(getmetatable(t) == t1)
print "ok"
CODE
