Miroirs/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-09-28 15:20:31 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

details

Browse source
This commit is contained in:
Roberto Ierusalimschy 2002-06-26 13:37:23 -03:00
parent 6de93e2932
commit 88607acc2c
5 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lapi.c
View file

@ -1,5 +1,5 @@
/*
** $Id: lapi.c,v 1.201 2002/06/20 20:41:46 roberto Exp roberto $
** $Id: lapi.c,v 1.202 2002/06/24 13:08:45 roberto Exp roberto $
** Lua API
** See Copyright Notice in lua.h
*/
@ -426,7 +426,7 @@ LUA_API void lua_gettable (lua_State *L, int index) {
const TObject *v;
lua_lock(L);
t = luaA_index(L, index);
v = luaV_gettable(L, t, L->top-1);
v = luaV_gettable(L, t, L->top-1, 0);
setobj(L->top - 1, v);
lua_unlock(L);
}
@ -597,7 +597,7 @@ LUA_API int lua_setglobals (lua_State *L, int level) {
** `load' and `call' functions (run Lua code)
*/
LUA_API void lua_upcall (lua_State *L, int nargs, int nresults) {
LUA_API void lua_call (lua_State *L, int nargs, int nresults) {
StkId func;
lua_lock(L);
api_checknelems(L, nargs+1);

6
lbaselib.c
View file

@ -1,5 +1,5 @@
/*
** $Id: lbaselib.c,v 1.84 2002/06/24 17:23:16 roberto Exp roberto $
** $Id: lbaselib.c,v 1.85 2002/06/25 19:19:33 roberto Exp roberto $
** Basic library
** See Copyright Notice in lua.h
*/
@ -357,7 +357,7 @@ static int luaB_newproxy (lua_State *L) {
#endif
#ifndef LUA_PATH_DEFAULT
#define LUA_PATH_DEFAULT "?.lua"
#define LUA_PATH_DEFAULT "?;?.lua"
#endif
@ -403,7 +403,7 @@ static int luaB_require (lua_State *L) {
lua_pushvalue(L, 1);
lua_setglobal(L, "_REQUIREDNAME");
lua_getglobal(L, REQTAB);
if (!lua_istable(L, 2)) return luaL_error(L, REQTAB " is not a table");
if (!lua_istable(L, 2)) return luaL_error(L, "`" REQTAB "' is not a table");
path = getpath(L);
lua_pushvalue(L, 1); /* check package's name in book-keeping table */
lua_rawget(L, 2);

6
ldo.c
View file

@ -1,5 +1,5 @@
/*
** $Id: ldo.c,v 1.182 2002/06/18 17:42:52 roberto Exp roberto $
** $Id: ldo.c,v 1.183 2002/06/20 20:41:46 roberto Exp roberto $
** Stack and Call structure of Lua
** See Copyright Notice in lua.h
*/
@ -283,7 +283,7 @@ void luaD_call (lua_State *L, StkId func, int nResults) {
firstResult = luaV_execute(L); /* call it */
if (firstResult == NULL) {
luaD_poscall(L, 0, L->top);
luaG_runerror(L, "attempt to `yield' across tag-method/C-call boundary");
luaG_runerror(L, "attempt to yield across tag-method/C-call boundary");
}
}
luaD_poscall(L, nResults, firstResult);
@ -357,7 +357,7 @@ LUA_API int lua_yield (lua_State *L, int nresults) {
lua_lock(L);
ci = L->ci;
if (ci_func(ci-1)->c.isC)
luaG_runerror(L, "cannot `yield' a C function");
luaG_runerror(L, "cannot yield a C function");
ci->yield_results = nresults;
lua_unlock(L);
return -1;

4
liolib.c
View file

@ -1,5 +1,5 @@
/*
** $Id: liolib.c,v 2.10 2002/06/06 18:17:33 roberto Exp roberto $
** $Id: liolib.c,v 2.11 2002/06/18 15:16:18 roberto Exp roberto $
** Standard I/O (and system) library
** See Copyright Notice in lua.h
*/
@ -519,7 +519,7 @@ static int io_date (lua_State *L) {
if (strftime(b, sizeof(b), s, stm))
lua_pushstring(L, b);
else
return luaL_error(L, "invalid `date' format");
return luaL_error(L, "`date' format too long");
}
return 1;
}

4
lparser.c
View file

@ -1,5 +1,5 @@
/*
** $Id: lparser.c,v 1.187 2002/06/06 13:52:37 roberto Exp roberto $
** $Id: lparser.c,v 1.188 2002/06/06 17:29:53 roberto Exp roberto $
** Lua Parser
** See Copyright Notice in lua.h
*/
@ -927,7 +927,7 @@ static void whilestat (LexState *ls, int line) {
fs->jpc = NO_JUMP;
sizeexp = fs->pc - expinit; /* size of expression code */
if (sizeexp > MAXEXPWHILE)
luaX_syntaxerror(ls, "while condition too complex");
luaX_syntaxerror(ls, "`while' condition too complex");
for (i = 0; i < sizeexp; i++) /* save `exp' code */
codeexp[i] = fs->f->code[expinit + i];
fs->pc = expinit; /* remove `exp' code */