mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-02-28 11:03:58 +03:00
Code Issues Packages Projects Releases Wiki Activity

details

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2001-10-02 13:43:29 -03:00
parent f54cdb33a5
commit b840a7518d
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lbaselib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.39 2001/07/12 18:11:58 roberto Exp $ ** $Id: lbaselib.c,v 1.41 2001/08/31 19:46:07 roberto Exp $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -234,7 +234,7 @@ static int luaB_settagmethod (lua_State *L) {
luaL_arg_check(L, lua_isfunction(L, 3) || lua_isnil(L, 3), 3, luaL_arg_check(L, lua_isfunction(L, 3) || lua_isnil(L, 3), 3,
l_s("function or nil expected")); l_s("function or nil expected"));
if (strcmp(event, l_s("gc")) == 0) if (strcmp(event, l_s("gc")) == 0)
lua_error(L, l_s("deprecated use: cannot set the `gc' tag method from Lua")); lua_error(L, l_s("cannot set `gc' tag method from Lua"));
lua_gettagmethod(L, tag, event); lua_gettagmethod(L, tag, event);
lua_pushvalue(L, 3); lua_pushvalue(L, 3);
lua_settagmethod(L, tag, event); lua_settagmethod(L, tag, event);
@ -246,7 +246,7 @@ static int luaB_gettagmethod (lua_State *L) {
int tag = gettag(L, 1); int tag = gettag(L, 1);
const l_char *event = luaL_check_string(L, 2); const l_char *event = luaL_check_string(L, 2);
if (strcmp(event, l_s("gc")) == 0) if (strcmp(event, l_s("gc")) == 0)
lua_error(L, l_s("deprecated use: cannot get the `gc' tag method from Lua")); lua_error(L, l_s("cannot get `gc' tag method from Lua"));
lua_gettagmethod(L, tag, event); lua_gettagmethod(L, tag, event);
return 1; return 1;
} }
@ -451,7 +451,7 @@ static int luaB_call (lua_State *L) {
return 1; return 1;
} }
if (strchr(options, l_c('p'))) /* pack results? */ if (strchr(options, l_c('p'))) /* pack results? */
lua_error(L, l_s("deprecated option `p' in `call'")); lua_error(L, l_s("obsolete option `p' in `call'"));
return lua_gettop(L) - oldtop; /* results are already on the stack */ return lua_gettop(L) - oldtop; /* results are already on the stack */
} }

4
liolib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 1.121 2001/07/22 00:59:36 roberto Exp $ ** $Id: liolib.c,v 1.122 2001/08/31 19:46:07 roberto Exp $
** Standard I/O (and system) library ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -322,7 +322,7 @@ static int io_read (lua_State *L) {
success = 1; /* always success */ success = 1; /* always success */
break; break;
case l_c('w'): /* word */ case l_c('w'): /* word */
lua_error(L, l_s("option `*w' is deprecated")); lua_error(L, l_s("obsolete option `*w'"));
break; break;
case l_c('u'): { /* read until */ case l_c('u'): { /* read until */
size_t pl = lua_strlen(L, n) - 2; size_t pl = lua_strlen(L, n) - 2;

2
lparser.c
View File

@ -627,7 +627,7 @@ static void prefixexp (LexState *ls, expdesc *v) {
case l_c('%'): { /* for compatibility only */ case l_c('%'): { /* for compatibility only */
next(ls); /* skip `%' */ next(ls); /* skip `%' */
singlevar(ls->fs, str_checkname(ls), v, 1); singlevar(ls->fs, str_checkname(ls), v, 1);
check_condition(ls, v->k == VUPVAL, l_s("global upvalues are deprecated")); check_condition(ls, v->k == VUPVAL, l_s("global upvalues are obsolete"));
next(ls); next(ls);
return; return;
} }

4
lstate.h
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstate.h,v 1.58 2001/06/15 19:16:41 roberto Exp $ ** $Id: lstate.h,v 1.59 2001/09/07 17:39:10 roberto Exp $
** Global State ** Global State
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -66,7 +66,7 @@ typedef struct global_State {
lu_mem GCthreshold; lu_mem GCthreshold;
lu_mem nblocks; /* number of `bytes' currently allocated */ lu_mem nblocks; /* number of `bytes' currently allocated */
Proto *rootproto; /* list of all prototypes */ Proto *rootproto; /* list of all prototypes */
Closure *rootcl; /* list of all closed closures */ Closure *rootcl; /* list of all C closures and closed Lua closures */
Hash *roottable; /* list of all tables */ Hash *roottable; /* list of all tables */
Udata *rootudata; /* list of all userdata */ Udata *rootudata; /* list of all userdata */
UpVal *rootupval; /* list of all up values */ UpVal *rootupval; /* list of all up values */