GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-28 06:03:00 +08:00
Code Issues Projects Releases Wiki Activity

more precise error messages for compiler limits.

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1997-10-28 15:26:53 -02:00
parent 6103dca8ee
commit 9c965d0ffb
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lua.stx
View File

@ -1,6 +1,6 @@
%{ %{
/* /*
** $Id: lua.stx,v 1.13 1997/10/24 17:17:24 roberto Exp roberto $ ** $Id: lua.stx,v 1.14 1997/10/24 18:40:29 roberto Exp roberto $
** Syntax analizer and code generator ** Syntax analizer and code generator
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -131,7 +131,7 @@ static void deltastack (int delta)
currState->stacksize += delta; currState->stacksize += delta;
if (currState->stacksize > currState->maxstacksize) { if (currState->stacksize > currState->maxstacksize) {
if (currState->stacksize > 255) if (currState->stacksize > 255)
luaY_error("expression too complex"); luaY_error("function/expression too complex (limit 256)");
currState->maxstacksize = currState->stacksize; currState->maxstacksize = currState->stacksize;
} }
} }
@ -155,7 +155,7 @@ static int code_oparg_at (int pc, OpCode op, int builtin, int arg, int delta)
currState->f->code[pc+2] = arg>>8; currState->f->code[pc+2] = arg>>8;
return 3; return 3;
} }
else luaY_error("construction too big - unable to compile"); else luaY_error("code too long (limit 64K)");
return 0; /* to avoid warnings */ return 0; /* to avoid warnings */
} }
@ -313,7 +313,7 @@ static void store_localvar (TaggedString *name, int n)
if (currState->nlocalvar+n < MAXLOCALS) if (currState->nlocalvar+n < MAXLOCALS)
currState->localvar[currState->nlocalvar+n] = name; currState->localvar[currState->nlocalvar+n] = name;
else else
luaY_error("too many local variables"); luaY_error("too many local variables (limit 32)");
luaI_registerlocalvar(name, luaX_linenumber); luaI_registerlocalvar(name, luaX_linenumber);
} }
@ -340,7 +340,7 @@ static vardesc var2store (vardesc var)
static void add_varbuffer (vardesc var, int n) static void add_varbuffer (vardesc var, int n)
{ {
if (n >= MAXVAR) if (n >= MAXVAR)
luaY_error("variable buffer overflow"); luaY_error("variable buffer overflow (limit 32)");
currState->varbuffer[n] = var2store(var); currState->varbuffer[n] = var2store(var);
} }
@ -378,7 +378,7 @@ static int indexupvalue (TaggedString *n)
} }
/* new one */ /* new one */
if (++(currState->nupvalues) > MAXUPVALUES) if (++(currState->nupvalues) > MAXUPVALUES)
luaY_error("too many upvalues in a single function"); luaY_error("too many upvalues in a single function (limit 16)");
currState->upvalues[i] = v; /* i = currState->nupvalues - 1 */ currState->upvalues[i] = v; /* i = currState->nupvalues - 1 */
return i; return i;
} }
@ -579,7 +579,7 @@ static void init_state (TaggedString *filename)
static void init_func (void) static void init_func (void)
{ {
if (currState-mainState >= MAXSTATES-1) if (currState-mainState >= MAXSTATES-1)
luaY_error("too many nested functions"); luaY_error("too many nested functions (limit 6)");
currState++; currState++;
init_state(mainState->f->fileName); init_state(mainState->f->fileName);
luaY_codedebugline(luaX_linenumber); luaY_codedebugline(luaX_linenumber);