Still porting to lua 5.2
This commit is contained in:
@@ -154,7 +154,7 @@ void LuaStack::makeclass(LuaSlot classtab, LuaSlot classname) const {
|
|||||||
|
|
||||||
// Validate the class name.
|
// Validate the class name.
|
||||||
LS.checkstring(classname);
|
LS.checkstring(classname);
|
||||||
if (LS.equal(classname, "_G")) {
|
if (LS.rawequal(classname, "_G")) {
|
||||||
luaL_error(L_, "_G is explicitly not allowed as a class name");
|
luaL_error(L_, "_G is explicitly not allowed as a class name");
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@@ -403,13 +403,13 @@ public:
|
|||||||
lua_pop(L_, 1);
|
lua_pop(L_, 1);
|
||||||
}
|
}
|
||||||
|
|
||||||
bool equal(LuaSlot v1, LuaSlot v2) const {
|
bool rawequal(LuaSlot v1, LuaSlot v2) const {
|
||||||
return lua_compare(L_, v1, v2, LUA_OPEQ);
|
return lua_rawequal(L_, v1, v2);
|
||||||
}
|
}
|
||||||
|
|
||||||
bool equal(LuaSlot v1, const char *name) const {
|
bool rawequal(LuaSlot v1, const char *name) const {
|
||||||
push_any_value(name);
|
push_any_value(name);
|
||||||
bool result = lua_compare(L_, v1, -1, LUA_OPEQ);
|
bool result = lua_rawequal(L_, v1, -1);
|
||||||
lua_pop(L_, 1);
|
lua_pop(L_, 1);
|
||||||
return result;
|
return result;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -12,7 +12,7 @@ LuaDefine(table_equal, "c") {
|
|||||||
while (lua_next(L, t1.index()) != 0) {
|
while (lua_next(L, t1.index()) != 0) {
|
||||||
lua_pushvalue(L, -2); // k v1 k
|
lua_pushvalue(L, -2); // k v1 k
|
||||||
lua_rawget(L, t2.index()); // k v1 v2
|
lua_rawget(L, t2.index()); // k v1 v2
|
||||||
if (!lua_equal(L, -1, -2)) {
|
if (!lua_rawequal(L, -1, -2)) {
|
||||||
LS.set(eql, false);
|
LS.set(eql, false);
|
||||||
return LS.result();
|
return LS.result();
|
||||||
}
|
}
|
||||||
@@ -36,7 +36,7 @@ LuaDefine(table_findremove, "c") {
|
|||||||
while (true) {
|
while (true) {
|
||||||
lua_pushinteger(L, src);
|
lua_pushinteger(L, src);
|
||||||
lua_rawget(L, -3);
|
lua_rawget(L, -3);
|
||||||
if (lua_equal(L, -1, -2)) {
|
if (lua_rawequal(L, -1, -2)) {
|
||||||
src++;
|
src++;
|
||||||
lua_pop(L, 1);
|
lua_pop(L, 1);
|
||||||
} else if (lua_isnil(L, -1)) {
|
} else if (lua_isnil(L, -1)) {
|
||||||
@@ -68,7 +68,7 @@ LuaDefine(table_findremove, "c") {
|
|||||||
|
|
||||||
LuaDefine(table_push, "c") {
|
LuaDefine(table_push, "c") {
|
||||||
luaL_checktype(L, -2, LUA_TTABLE);
|
luaL_checktype(L, -2, LUA_TTABLE);
|
||||||
int len = lua_objlen(L, -2);
|
int len = lua_rawlen(L, -2);
|
||||||
lua_pushinteger(L, len+1);
|
lua_pushinteger(L, len+1);
|
||||||
lua_pushvalue(L, -2);
|
lua_pushvalue(L, -2);
|
||||||
lua_rawset(L, -4);
|
lua_rawset(L, -4);
|
||||||
@@ -81,7 +81,7 @@ LuaDefine(table_find, "c") {
|
|||||||
for (int i = 1; ; i++) {
|
for (int i = 1; ; i++) {
|
||||||
lua_pushinteger(L, i);
|
lua_pushinteger(L, i);
|
||||||
lua_rawget(L, -3);
|
lua_rawget(L, -3);
|
||||||
if (lua_equal(L, -1, -2)) {
|
if (lua_rawequal(L, -1, -2)) {
|
||||||
lua_pop(L, 3);
|
lua_pop(L, 3);
|
||||||
lua_pushinteger(L, i);
|
lua_pushinteger(L, i);
|
||||||
return 1;
|
return 1;
|
||||||
|
|||||||
Reference in New Issue
Block a user