diff options
Diffstat (limited to 'ltests.c')
| -rw-r--r-- | ltests.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ltests.c,v 1.167 2003/10/20 12:25:23 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 1.168 2003/11/05 11:59:14 roberto Exp roberto $ |
| 3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -354,21 +354,21 @@ static int tref (lua_State *L) { | |||
| 354 | luaL_checkany(L, 1); | 354 | luaL_checkany(L, 1); |
| 355 | lua_pushvalue(L, 1); | 355 | lua_pushvalue(L, 1); |
| 356 | lua_pushinteger(L, lua_ref(L, lock)); | 356 | lua_pushinteger(L, lua_ref(L, lock)); |
| 357 | assert(lua_gettop(L) == level+1); /* +1 for result */ | 357 | lua_assert(lua_gettop(L) == level+1); /* +1 for result */ |
| 358 | return 1; | 358 | return 1; |
| 359 | } | 359 | } |
| 360 | 360 | ||
| 361 | static int getref (lua_State *L) { | 361 | static int getref (lua_State *L) { |
| 362 | int level = lua_gettop(L); | 362 | int level = lua_gettop(L); |
| 363 | lua_getref(L, luaL_checkint(L, 1)); | 363 | lua_getref(L, luaL_checkint(L, 1)); |
| 364 | assert(lua_gettop(L) == level+1); | 364 | lua_assert(lua_gettop(L) == level+1); |
| 365 | return 1; | 365 | return 1; |
| 366 | } | 366 | } |
| 367 | 367 | ||
| 368 | static int unref (lua_State *L) { | 368 | static int unref (lua_State *L) { |
| 369 | int level = lua_gettop(L); | 369 | int level = lua_gettop(L); |
| 370 | lua_unref(L, luaL_checkint(L, 1)); | 370 | lua_unref(L, luaL_checkint(L, 1)); |
| 371 | assert(lua_gettop(L) == level); | 371 | lua_assert(lua_gettop(L) == level); |
| 372 | return 0; | 372 | return 0; |
| 373 | } | 373 | } |
| 374 | 374 | ||
