diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2010-05-31 13:08:55 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2010-05-31 13:08:55 -0300 |
| commit | bd619b931173fc35f38dfbb07746bcdc5ef11808 (patch) | |
| tree | 2fdcf32609e853c0490af52a9590a40982749a8e /lparser.c | |
| parent | aca84ee1a04987f7cfe8c4e4126c953351d1216f (diff) | |
| download | lua-bd619b931173fc35f38dfbb07746bcdc5ef11808.tar.gz lua-bd619b931173fc35f38dfbb07746bcdc5ef11808.tar.bz2 lua-bd619b931173fc35f38dfbb07746bcdc5ef11808.zip | |
new macro MAXUPVAL (maximum number of upvalues per closure)
Diffstat (limited to 'lparser.c')
| -rw-r--r-- | lparser.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lparser.c,v 2.85 2010/05/14 15:03:43 roberto Exp roberto $ | 2 | ** $Id: lparser.c,v 2.86 2010/05/15 13:32:02 roberto Exp roberto $ |
| 3 | ** Lua Parser | 3 | ** Lua Parser |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -221,9 +221,9 @@ static int searchupvalue (FuncState *fs, TString *name) { | |||
| 221 | static int newupvalue (FuncState *fs, TString *name, expdesc *v) { | 221 | static int newupvalue (FuncState *fs, TString *name, expdesc *v) { |
| 222 | Proto *f = fs->f; | 222 | Proto *f = fs->f; |
| 223 | int oldsize = f->sizeupvalues; | 223 | int oldsize = f->sizeupvalues; |
| 224 | checklimit(fs, fs->nups + 1, UCHAR_MAX, "upvalues"); | 224 | checklimit(fs, fs->nups + 1, MAXUPVAL, "upvalues"); |
| 225 | luaM_growvector(fs->L, f->upvalues, fs->nups, f->sizeupvalues, | 225 | luaM_growvector(fs->L, f->upvalues, fs->nups, f->sizeupvalues, |
| 226 | Upvaldesc, UCHAR_MAX, "upvalues"); | 226 | Upvaldesc, MAXUPVAL, "upvalues"); |
| 227 | while (oldsize < f->sizeupvalues) f->upvalues[oldsize++].name = NULL; | 227 | while (oldsize < f->sizeupvalues) f->upvalues[oldsize++].name = NULL; |
| 228 | f->upvalues[fs->nups].instack = (v->k == VLOCAL); | 228 | f->upvalues[fs->nups].instack = (v->k == VLOCAL); |
| 229 | f->upvalues[fs->nups].idx = cast_byte(v->u.s.info); | 229 | f->upvalues[fs->nups].idx = cast_byte(v->u.s.info); |