|
|
@ -1,5 +1,5 @@ |
|
|
|
/*
|
|
|
|
** $Id: lparser.c,v 2.73 2009/11/26 11:39:20 roberto Exp roberto $ |
|
|
|
** $Id: lparser.c,v 2.74 2010/01/05 18:46:58 roberto Exp roberto $ |
|
|
|
** Lua Parser |
|
|
|
** See Copyright Notice in lua.h |
|
|
|
*/ |
|
|
@ -164,10 +164,6 @@ static int registerlocalvar (LexState *ls, TString *varname) { |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
#define new_localvarliteral(ls,v) \ |
|
|
|
new_localvar(ls, luaX_newstring(ls, "" v, (sizeof(v)/sizeof(char))-1)) |
|
|
|
|
|
|
|
|
|
|
|
static void new_localvar (LexState *ls, TString *name) { |
|
|
|
FuncState *fs = ls->fs; |
|
|
|
Varlist *vl = ls->varl; |
|
|
@ -180,6 +176,14 @@ static void new_localvar (LexState *ls, TString *name) { |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
static void new_localvarliteral_ (LexState *ls, const char *name, size_t sz) { |
|
|
|
new_localvar(ls, luaX_newstring(ls, name, sz)); |
|
|
|
} |
|
|
|
|
|
|
|
#define new_localvarliteral(ls,v) \ |
|
|
|
new_localvarliteral_(ls, "" v, (sizeof(v)/sizeof(char))-1) |
|
|
|
|
|
|
|
|
|
|
|
static LocVar *getlocvar (FuncState *fs, int i) { |
|
|
|
int idx = fs->ls->varl->actvar[fs->firstlocal + i].idx; |
|
|
|
lua_assert(idx < fs->nlocvars); |
|
|
|