rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

avoid the use of `strlen' (strings are literals)

This commit is contained in:
Roberto Ierusalimschy 2003-10-03 13:04:24 -03:00
parent 6becdb3e70
commit 3a508b8bd7
1 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lparser.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lparser.c,v 1.218 2003/09/05 14:00:27 roberto Exp roberto $ ** $Id: lparser.c,v 1.219 2003/09/29 16:41:35 roberto Exp roberto $
** Lua Parser ** Lua Parser
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -156,6 +156,10 @@ static int luaI_registerlocalvar (LexState *ls, TString *varname) {
} }
#define new_localvarliteral(ls,v,n) \
new_localvar(ls, luaX_newstring(ls, "" v, (sizeof(v)/sizeof(char))-1), n)
static void new_localvar (LexState *ls, TString *name, int n) { static void new_localvar (LexState *ls, TString *name, int n) {
FuncState *fs = ls->fs; FuncState *fs = ls->fs;
luaX_checklimit(ls, fs->nactvar+n+1, MAXVARS, "local variables"); luaX_checklimit(ls, fs->nactvar+n+1, MAXVARS, "local variables");
@ -180,12 +184,6 @@ static void removevars (LexState *ls, int tolevel) {
} }
static void new_localvarstr (LexState *ls, const char *name, int n) {
TString *ts = luaX_newstring(ls, name, strlen(name));
new_localvar(ls, ts, n);
}
static int indexupvalue (FuncState *fs, TString *name, expdesc *v) { static int indexupvalue (FuncState *fs, TString *name, expdesc *v) {
int i; int i;
Proto *f = fs->f; Proto *f = fs->f;
@ -556,7 +554,7 @@ static void parlist (LexState *ls) {
case TK_DOTS: { /* param -> `...' */ case TK_DOTS: { /* param -> `...' */
next(ls); next(ls);
/* use `arg' as default name */ /* use `arg' as default name */
new_localvarstr(ls, "arg", nparams++); new_localvarliteral(ls, "arg", nparams++);
f->is_vararg = 1; f->is_vararg = 1;
break; break;
} }
@ -577,7 +575,7 @@ static void body (LexState *ls, expdesc *e, int needself, int line) {
new_fs.f->lineDefined = line; new_fs.f->lineDefined = line;
check(ls, '('); check(ls, '(');
if (needself) { if (needself) {
new_localvarstr(ls, "self", 0); new_localvarliteral(ls, "self", 0);
adjustlocalvars(ls, 1); adjustlocalvars(ls, 1);
} }
parlist(ls); parlist(ls);
@ -1071,9 +1069,9 @@ static void fornum (LexState *ls, TString *varname, int line) {
/* fornum -> NAME = exp1,exp1[,exp1] forbody */ /* fornum -> NAME = exp1,exp1[,exp1] forbody */
FuncState *fs = ls->fs; FuncState *fs = ls->fs;
int base = fs->freereg; int base = fs->freereg;
new_localvarstr(ls, "(for index)", 0); new_localvarliteral(ls, "(for index)", 0);
new_localvarstr(ls, "(for limit)", 1); new_localvarliteral(ls, "(for limit)", 1);
new_localvarstr(ls, "(for step)", 2); new_localvarliteral(ls, "(for step)", 2);
new_localvar(ls, varname, 3); new_localvar(ls, varname, 3);
check(ls, '='); check(ls, '=');
exp1(ls); /* initial value */ exp1(ls); /* initial value */
@ -1097,9 +1095,9 @@ static void forlist (LexState *ls, TString *indexname) {
int line; int line;
int base = fs->freereg; int base = fs->freereg;
/* create control variables */ /* create control variables */
new_localvarstr(ls, "(for generator)", nvars++); new_localvarliteral(ls, "(for generator)", nvars++);
new_localvarstr(ls, "(for state)", nvars++); new_localvarliteral(ls, "(for state)", nvars++);
new_localvarstr(ls, "(for control)", nvars++); new_localvarliteral(ls, "(for control)", nvars++);
/* create declared variables */ /* create declared variables */
new_localvar(ls, indexname, nvars++); new_localvar(ls, indexname, nvars++);
while (testnext(ls, ',')) while (testnext(ls, ','))