GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-14 05:43:00 +08:00
Code Issues Projects Releases Wiki Activity

details

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2004-03-24 12:46:49 -03:00
parent 227bddafe8
commit 26a9b249db
3 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ldo.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ldo.c,v 1.229 2003/11/11 16:34:17 roberto Exp roberto $
** $Id: ldo.c,v 2.1 2003/12/10 12:13:36 roberto Exp roberto $
** Stack and Call structure of Lua
** See Copyright Notice in lua.h
*/
@ -268,7 +268,7 @@ StkId luaD_precall (lua_State *L, StkId func) {
if (L->hookmask & LUA_MASKCALL)
luaD_callhook(L, LUA_HOOKCALL, -1);
lua_unlock(L);
n = (*clvalue(L->base - 1)->c.f)(L); /* do the actual call */
n = (*curr_func(L)->c.f)(L); /* do the actual call */
lua_lock(L);
return L->top - n;
}

3
lstate.h
View File

@ -1,5 +1,5 @@
/*
** $Id: lstate.h,v 1.119 2003/12/04 18:52:23 roberto Exp roberto $
** $Id: lstate.h,v 2.1 2003/12/10 12:13:36 roberto Exp roberto $
** Global State
** See Copyright Notice in lua.h
*/
@ -85,6 +85,7 @@ typedef struct CallInfo {
#define curr_func(L) (clvalue(L->base - 1))
#define ci_func(ci) (clvalue((ci)->base - 1))
#define f_isLua(ci) (!ci_func(ci)->c.isC)
#define isLua(ci) (ttisfunction((ci)->base - 1) && f_isLua(ci))

11
lualib.h
View File

@ -1,5 +1,5 @@
/*
** $Id: lualib.h,v 1.27 2003/03/17 13:04:58 roberto Exp roberto $
** $Id: lualib.h,v 1.28 2003/03/18 12:24:26 roberto Exp roberto $
** Lua standard libraries
** See Copyright Notice in lua.h
*/
@ -44,13 +44,4 @@ LUALIB_API int luaopen_loadlib (lua_State *L);
#define lua_assert(c) /* empty */
#endif
/* compatibility code */
#define lua_baselibopen luaopen_base
#define lua_tablibopen luaopen_table
#define lua_iolibopen luaopen_io
#define lua_strlibopen luaopen_string
#define lua_mathlibopen luaopen_math
#define lua_dblibopen luaopen_debug
#endif