nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

comments

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2000-08-15 15:28:48 -03:00
parent ddc8d94a08
commit 44eb7d91ac
6 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lbuiltin.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lbuiltin.c,v 1.119 2000/08/09 19:16:57 roberto Exp roberto $
** $Id: lbuiltin.c,v 1.120 2000/08/14 19:10:14 roberto Exp roberto $
** Built-in functions
** See Copyright Notice in lua.h
*/
@@ -401,7 +401,7 @@ void luaB_getn (lua_State *L) {
}
/* auxiliar function */
/* auxiliary function */
static void t_move (lua_State *L, Hash *t, int from, int to) {
TObject *p = luaH_setint(L, t, to); /* may change following `get' */
*p = *luaH_getnum(t, from);
@@ -613,16 +613,16 @@ static void deprecated_funcs (lua_State *L) {
#else
/*
** gives an explicit error in any attempt to call an obsolet function
** gives an explicit error in any attempt to call a deprecated function
*/
static void obsolete_func (lua_State *L) {
luaL_verror(L, "function `%.20s' is obsolete", luaL_check_string(L, 1));
static void deprecated_func (lua_State *L) {
luaL_verror(L, "function `%.20s' is deprecated", luaL_check_string(L, 1));
}
#define num_deprecated 6
static const char *const obsolete_names [num_deprecated] = {
static const char *const deprecated_names [num_deprecated] = {
"foreachvar", "nextvar", "rawgetglobal",
"rawgettable", "rawsetglobal", "rawsettable"
};
@@ -631,9 +631,9 @@ static const char *const obsolete_names [num_deprecated] = {
static void deprecated_funcs (lua_State *L) {
int i;
for (i=0; i<num_deprecated; i++) {
lua_pushstring(L, obsolete_names[i]);
lua_pushcclosure(L, obsolete_func, 1);
lua_setglobal(L, obsolete_names[i]);
lua_pushstring(L, deprecated_names[i]);
lua_pushcclosure(L, deprecated_func, 1);
lua_setglobal(L, deprecated_names[i]);
}
}

4
lcode.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lcode.c,v 1.47 2000/08/10 19:50:47 roberto Exp roberto $
** $Id: lcode.c,v 1.48 2000/08/14 17:46:27 roberto Exp roberto $
** Code generator for Lua
** See Copyright Notice in lua.h
*/
@@ -330,7 +330,7 @@ void luaK_tostack (LexState *ls, expdesc *v, int onlyone) {
luaK_concat(fs, &v->u.l.t, fs->pc-1); /* put `previous' in t. list */
else {
j = code_label(fs, OP_JMP, NO_JUMP); /* to jump over both pushes */
/* correct stack for compiler and simbolic execution */
/* correct stack for compiler and symbolic execution */
luaK_adjuststack(fs, 1);
}
p_nil = code_label(fs, OP_PUSHNILJMP, 0);

6
ldebug.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: ldebug.c,v 1.34 2000/08/14 17:46:27 roberto Exp roberto $
** $Id: ldebug.c,v 1.35 2000/08/14 17:59:20 roberto Exp roberto $
** Debug Interface
** See Copyright Notice in lua.h
*/
@@ -391,7 +391,7 @@ static const char *getobjname (lua_State *L, StkId obj, const char **name) {
return "field";
}
default:
return NULL; /* no usefull name found */
return NULL; /* no useful name found */
}
}
}
@@ -408,7 +408,7 @@ static const char *getfuncname (lua_State *L, StkId f, const char **name) {
case OP_CALL: case OP_TAILCALL:
return getobjname(L, (func+1)+GETARG_A(i), name);
default:
return NULL; /* no usefull name found */
return NULL; /* no useful name found */
}
}
}

4
llimits.h
View File

@@ -1,6 +1,6 @@
/*
** $Id: llimits.h,v 1.10 2000/06/16 17:16:34 roberto Exp roberto $
** Limits, basic types, and some other "instalation-dependent" definitions
** $Id: llimits.h,v 1.11 2000/06/28 17:03:32 roberto Exp roberto $
** Limits, basic types, and some other "installation-dependent" definitions
** See Copyright Notice in lua.h
*/

4
lopcodes.h
View File

@@ -1,5 +1,5 @@
/*
** $Id: lopcodes.h,v 1.64 2000/06/21 17:05:49 roberto Exp roberto $
** $Id: lopcodes.h,v 1.65 2000/06/26 19:28:31 roberto Exp roberto $
** Opcodes for Lua virtual machine
** See Copyright Notice in lua.h
*/
@@ -30,7 +30,7 @@
The size of each argument is defined in `llimits.h'. The usual is an
instruction with 32 bits, U arguments with 26 bits (32-6), B arguments
with 9 bits, and A arguments with 17 bits (32-6-9). For small
instalations, the instruction size can be 16, so U has 10 bits,
installations, the instruction size can be 16, so U has 10 bits,
and A and B have 5 bits each.
===========================================================================*/

4
lparser.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lparser.c,v 1.107 2000/08/09 19:16:57 roberto Exp roberto $
** $Id: lparser.c,v 1.108 2000/08/14 17:46:27 roberto Exp roberto $
** LL(1) Parser and code generator for Lua
** See Copyright Notice in lua.h
*/
@@ -1024,7 +1024,7 @@ static void breakstat (LexState *ls) {
next(ls); /* skip BREAK */
luaK_adjuststack(fs, currentlevel - bl->stacklevel);
luaK_concat(fs, &bl->breaklist, luaK_jump(fs));
/* correct stack for compiler and simbolic execution */
/* correct stack for compiler and symbolic execution */
luaK_adjuststack(fs, bl->stacklevel - currentlevel);
}