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

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 ** Built-in functions
** See Copyright Notice in lua.h ** 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) { static void t_move (lua_State *L, Hash *t, int from, int to) {
TObject *p = luaH_setint(L, t, to); /* may change following `get' */ TObject *p = luaH_setint(L, t, to); /* may change following `get' */
*p = *luaH_getnum(t, from); *p = *luaH_getnum(t, from);
@@ -613,16 +613,16 @@ static void deprecated_funcs (lua_State *L) {
#else #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) { static void deprecated_func (lua_State *L) {
luaL_verror(L, "function `%.20s' is obsolete", luaL_check_string(L, 1)); luaL_verror(L, "function `%.20s' is deprecated", luaL_check_string(L, 1));
} }
#define num_deprecated 6 #define num_deprecated 6
static const char *const obsolete_names [num_deprecated] = { static const char *const deprecated_names [num_deprecated] = {
"foreachvar", "nextvar", "rawgetglobal", "foreachvar", "nextvar", "rawgetglobal",
"rawgettable", "rawsetglobal", "rawsettable" "rawgettable", "rawsetglobal", "rawsettable"
}; };
@@ -631,9 +631,9 @@ static const char *const obsolete_names [num_deprecated] = {
static void deprecated_funcs (lua_State *L) { static void deprecated_funcs (lua_State *L) {
int i; int i;
for (i=0; i<num_deprecated; i++) { for (i=0; i<num_deprecated; i++) {
lua_pushstring(L, obsolete_names[i]); lua_pushstring(L, deprecated_names[i]);
lua_pushcclosure(L, obsolete_func, 1); lua_pushcclosure(L, deprecated_func, 1);
lua_setglobal(L, obsolete_names[i]); lua_setglobal(L, deprecated_names[i]);
} }
} }

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 ** Code generator for Lua
** See Copyright Notice in lua.h ** 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 */ luaK_concat(fs, &v->u.l.t, fs->pc-1); /* put `previous' in t. list */
else { else {
j = code_label(fs, OP_JMP, NO_JUMP); /* to jump over both pushes */ 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); luaK_adjuststack(fs, 1);
} }
p_nil = code_label(fs, OP_PUSHNILJMP, 0); p_nil = code_label(fs, OP_PUSHNILJMP, 0);

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 ** Debug Interface
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -391,7 +391,7 @@ static const char *getobjname (lua_State *L, StkId obj, const char **name) {
return "field"; return "field";
} }
default: 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: case OP_CALL: case OP_TAILCALL:
return getobjname(L, (func+1)+GETARG_A(i), name); return getobjname(L, (func+1)+GETARG_A(i), name);
default: default:
return NULL; /* no usefull name found */ return NULL; /* no useful name found */
} }
} }
} }

View File

@@ -1,6 +1,6 @@
/* /*
** $Id: llimits.h,v 1.10 2000/06/16 17:16:34 roberto Exp roberto $ ** $Id: llimits.h,v 1.11 2000/06/28 17:03:32 roberto Exp roberto $
** Limits, basic types, and some other "instalation-dependent" definitions ** Limits, basic types, and some other "installation-dependent" definitions
** See Copyright Notice in lua.h ** See Copyright Notice in lua.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 ** Opcodes for Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -30,7 +30,7 @@
The size of each argument is defined in `llimits.h'. The usual is an 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 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 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. and A and B have 5 bits each.
===========================================================================*/ ===========================================================================*/

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 ** LL(1) Parser and code generator for Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -1024,7 +1024,7 @@ static void breakstat (LexState *ls) {
next(ls); /* skip BREAK */ next(ls); /* skip BREAK */
luaK_adjuststack(fs, currentlevel - bl->stacklevel); luaK_adjuststack(fs, currentlevel - bl->stacklevel);
luaK_concat(fs, &bl->breaklist, luaK_jump(fs)); 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); luaK_adjuststack(fs, bl->stacklevel - currentlevel);
} }