comments
This commit is contained in:
18
lbuiltin.c
18
lbuiltin.c
@@ -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]);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
4
lcode.c
4
lcode.c
@@ -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);
|
||||||
|
|||||||
6
ldebug.c
6
ldebug.c
@@ -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 */
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -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
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
|||||||
@@ -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.
|
||||||
===========================================================================*/
|
===========================================================================*/
|
||||||
|
|
||||||
|
|||||||
@@ -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);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user