open-autonomous-connection/luaj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 2 Wiki Activity

Fix getmetatable when metatable contains __metatable tag

Browse Source
This commit is contained in:
James Roseborough
2008-05-24 00:03:15 +00:00
parent 2583228b87
commit bb3465c375
3 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/core/org/luaj/lib/BaseLib.java
View File

@@ -175,8 +175,13 @@ public class BaseLib extends LFunction {
vm.resettop();
vm.pushnil();
} else {
vm.insert(1);
vm.replace(1);
vm.settop(1);
vm.getfield(-1,LValue.TM_METATABLE);
if ( vm.isnil(-1) )
vm.pop(1);
else
vm.remove(1);
}
break;
}

2
src/core/org/luaj/vm/LTable.java
View File

@@ -270,7 +270,7 @@ public class LTable extends LValue {
}
/** Valid for tables */
public org.luaj.vm.LTable luaGetMetatable() {
public LTable luaGetMetatable() {
return this.m_metatable;
}

18
src/core/org/luaj/vm/LuaState.java
View File

@@ -899,7 +899,11 @@ public class LuaState extends Lua {
return calls[cc-callStackDepth];
}
private LValue mtget(LValue t, LString tag) {
private void indexError(LValue nontable) {
error( "attempt to index ? (a "+nontable.luaGetTypeName()+" value)", 1 );
}
private LValue luaV_getmetafield(LValue t, LString tag) {
LTable mt = t.luaGetMetatable();
if ( mt == null )
return null;
@@ -907,10 +911,6 @@ public class LuaState extends Lua {
return h.isNil()? null: h;
}
private void indexError(LValue nontable) {
error( "attempt to index ? (a "+nontable.luaGetTypeName()+" value)", 1 );
}
public LValue luaV_gettable(LValue table, LValue key) {
LValue h=LNil.NIL,t=table;
for ( int loop=0; loop<MAXTAGLOOP; loop++ ) {
@@ -919,12 +919,12 @@ public class LuaState extends Lua {
if ( !v.isNil() ) {
return v;
}
h = mtget(t, LTable.TM_INDEX);
h = luaV_getmetafield(t, LTable.TM_INDEX);
if ( h == null ) {
return v;
}
} else {
h = mtget(t, LTable.TM_INDEX);
h = luaV_getmetafield(t, LTable.TM_INDEX);
if ( h == null ) {
indexError(t);
}
@@ -961,13 +961,13 @@ public class LuaState extends Lua {
lt.put(key, val);
return;
}
h = mtget(t, LTable.TM_NEWINDEX);
h = luaV_getmetafield(t, LTable.TM_NEWINDEX);
if ( h == null ) {
lt.put(key, val);
return;
}
} else {
h = mtget(t, LTable.TM_NEWINDEX);
h = luaV_getmetafield(t, LTable.TM_NEWINDEX);
if ( h == null ) {
indexError(t);
}