Bruce/lua-immutable
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Keep tostring on the stack to avoid looking it up multiple times in the

Browse Source 
__tostring loop.
This commit is contained in:
Bruce Hill 2018-02-10 15:56:03 -08:00
parent dadbf86640
commit e7e59d4b0e
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
limmutable.c
View File

@ -261,33 +261,35 @@ static int Ltostring(lua_State *L)
// Stack: [mt, buckets, bucket, inst_udata] // Stack: [mt, buckets, bucket, inst_udata]
lua_rawget(L, -2); lua_rawget(L, -2);
// Stack: [mt, buckets, bucket, inst_table] // Stack: [mt, buckets, bucket, inst_table]
lua_getglobal(L, "tostring");
// Stack: [mt, buckets, bucket, inst_table, tostring]
lua_getfield(L, -4, "__fields"); lua_getfield(L, -4, "__fields");
// Stack: [mt, buckets, bucket, inst_table, fields] // Stack: [mt, buckets, bucket, inst_table, tostring, fields]
lua_pushnil(L); lua_pushnil(L);
int needs_comma = 0; int needs_comma = 0;
while (lua_next(L, -2) != 0) { while (lua_next(L, -2) != 0) {
// Stack: [mt, buckets, bucket, inst_table, fields, i, fieldname] // Stack: [mt, buckets, bucket, inst_table, tostring, fields, i, fieldname]
if (needs_comma) { if (needs_comma) {
luaL_addstring(&b, ", "); luaL_addstring(&b, ", ");
} else { } else {
needs_comma = 1; needs_comma = 1;
} }
// Stack: [mt, buckets, bucket, inst_table, fields, i, fieldname] // Stack: [mt, buckets, bucket, inst_table, tostring, fields, i, fieldname]
lua_getglobal(L, "tostring"); lua_pushvalue(L, -4);
// Stack: [mt, buckets, bucket, inst_table, tostring, fields, i, fieldname, tostring]
lua_insert(L, -2); lua_insert(L, -2);
lua_call(L, 1, 1); lua_call(L, 1, 1);
luaL_addvalue(&b); luaL_addvalue(&b);
// Stack: [mt, buckets, bucket, inst_table, fields, i] // Stack: [mt, buckets, bucket, inst_table, tostring, fields, i]
luaL_addstring(&b, "="); luaL_addstring(&b, "=");
lua_rawgeti(L, -3, lua_tonumber(L, -1)); lua_rawgeti(L, -3, lua_tonumber(L, -1));
// Stack: [mt, buckets, bucket, inst_table, fields, i, value] // Stack: [mt, buckets, bucket, inst_table, tostring, fields, i, value]
lua_getglobal(L, "tostring"); lua_pushvalue(L, -4);
lua_insert(L, -2); lua_insert(L, -2);
lua_call(L, 1, 1); lua_call(L, 1, 1);
luaL_addvalue(&b); luaL_addvalue(&b);
// Stack: [mt, buckets, bucket, inst_table, fields, i] // Stack: [mt, buckets, bucket, inst_table, tostring, fields, i]
} }
luaL_addstring(&b, ")"); luaL_addstring(&b, ")");
luaL_pushresult(&b); luaL_pushresult(&b);