lua

A copy of the Lua development repository
Log | Files | Refs | README

commit ea2a75d19e260ad728d0b804d824c619bf2218d0
parent b3bb0f132b2a3dba88385f8d71ba3f34252d94e4
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Wed,  9 Jan 2002 19:50:44 -0200

new macro lua_userstateopen

Diffstat:
Mltests.c | 9++++++++-
Mltests.h | 5+++--
2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/ltests.c b/ltests.c @@ -254,6 +254,13 @@ static int hash_query (lua_State *L) { } +static int Cstacklevel (lua_State *L) { + unsigned long a = 0; + lua_pushnumber(L, (unsigned long)&a); + return 1; +} + + static int table_query (lua_State *L) { const Table *t; int i = luaL_opt_int(L, 2, -1); @@ -368,7 +375,6 @@ static int udataval (lua_State *L) { static int doonnewstack (lua_State *L) { lua_State *L1 = lua_newthread(L, luaL_check_int(L, 1)); if (L1 == NULL) return 0; - *cast(int **, L1) = &islocked; /* initialize the lock */ lua_dostring(L1, luaL_check_string(L, 2)); lua_pushnumber(L, 1); lua_close(L1); @@ -624,6 +630,7 @@ static const struct luaL_reg tests_funcs[] = { {"listk", listk}, {"listlocals", listlocals}, {"loadlib", loadlib}, + {"Cstacklevel", Cstacklevel}, {"querystr", string_query}, {"querytab", table_query}, {"testC", testC}, diff --git a/ltests.h b/ltests.h @@ -1,5 +1,5 @@ /* -** $Id: ltests.h,v 1.8 2001/08/31 19:46:07 roberto Exp $ +** $Id: ltests.h,v 1.1 2001/11/29 22:14:34 rieru Exp rieru $ ** Internal Header for Debugging of the Lua Implementation ** See Copyright Notice in lua.h */ @@ -41,8 +41,9 @@ void *debug_realloc (void *block, size_t oldsize, size_t size); /* test for lock/unlock */ -#define LUA_USERSTATE int *lock; extern int islocked; +#define LUA_USERSTATE int *lock; +#define lua_userstateopen(l) if (l != NULL) *cast(int **, l) = &islocked; #define lua_lock(L) lua_assert((**cast(int **, L))++ == 0) #define lua_unlock(L) lua_assert(--(**cast(int **, L)) == 0)