no more compatibility code for 4.0

This commit is contained in:
Roberto Ierusalimschy 2003-05-14 18:02:39 -03:00
parent f93051155c
commit 9eb0f25a29
2 changed files with 2 additions and 17 deletions

5
ldo.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ldo.c,v 1.217 2003/04/03 13:35:34 roberto Exp roberto $
** $Id: ldo.c,v 1.218 2003/05/13 19:22:19 roberto Exp roberto $
** Stack and Call structure of Lua
** See Copyright Notice in lua.h
*/
@ -269,9 +269,6 @@ StkId luaD_precall (lua_State *L, StkId func) {
if (L->hookmask & LUA_MASKCALL)
luaD_callhook(L, LUA_HOOKCALL, -1);
lua_unlock(L);
#ifdef LUA_COMPATUPVALUES
lua_pushupvalues(L);
#endif
n = (*clvalue(L->base - 1)->c.f)(L); /* do the actual call */
lua_lock(L);
return L->top - n;

View File

@ -1,5 +1,5 @@
/*
** $Id: lparser.c,v 1.209 2003/05/13 20:15:59 roberto Exp roberto $
** $Id: lparser.c,v 1.210 2003/05/14 12:32:46 roberto Exp roberto $
** Lua Parser
** See Copyright Notice in lua.h
*/
@ -651,18 +651,6 @@ static void prefixexp (LexState *ls, expdesc *v) {
singlevar(ls, v, 1);
return;
}
#ifdef LUA_COMPATUPSYNTAX
case '%': { /* for compatibility only */
TString *varname;
int line = ls->linenumber;
next(ls); /* skip `%' */
varname = singlevar(ls, v, 1);
if (v->k != VUPVAL)
luaX_errorline(ls, "global upvalues are obsolete",
getstr(varname), line);
return;
}
#endif
default: {
luaX_syntaxerror(ls, "unexpected symbol");
return;