mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-04-11 07:22:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

details.

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2001-11-06 19:41:43 -02:00
parent 617008f552
commit fd48dcc7c8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ltests.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 1.94 2001/10/25 19:14:14 roberto Exp $ ** $Id: ltests.c,v 1.95 2001/10/26 17:33:30 roberto Exp $
** Internal Module for Debugging of the Lua Implementation ** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -312,9 +312,10 @@ static int string_query (lua_State *L) {
static int tref (lua_State *L) { static int tref (lua_State *L) {
int level = lua_gettop(L); int level = lua_gettop(L);
int lock = luaL_opt_int(L, 2, 1);
luaL_check_any(L, 1); luaL_check_any(L, 1);
lua_pushvalue(L, 1); lua_pushvalue(L, 1);
lua_pushnumber(L, lua_ref(L, 1)); lua_pushnumber(L, lua_ref(L, lock));
assert(lua_gettop(L) == level+1); /* +1 for result */ assert(lua_gettop(L) == level+1); /* +1 for result */
return 1; return 1;
} }