diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-06-19 15:27:20 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-06-19 15:27:20 -0300 |
commit | 89b56e7d84d84de58fcc9d540c2003c6c2f8c134 (patch) | |
tree | 85ba9c3aa3cdb5ff57fd4f82bf322fb2e75e7292 /ldo.c | |
parent | 14929f5764a7990dfb62c8792cfdfe03c061da21 (diff) | |
download | lua-89b56e7d84d84de58fcc9d540c2003c6c2f8c134.tar.gz lua-89b56e7d84d84de58fcc9d540c2003c6c2f8c134.tar.bz2 lua-89b56e7d84d84de58fcc9d540c2003c6c2f8c134.zip |
more precision between closure types ('LClosure' x 'CClosure')
Diffstat (limited to 'ldo.c')
-rw-r--r-- | ldo.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldo.c,v 2.121 2014/06/11 16:01:55 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 2.122 2014/06/12 19:07:30 roberto Exp roberto $ |
3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -667,7 +667,7 @@ static void checkmode (lua_State *L, const char *mode, const char *x) { | |||
667 | 667 | ||
668 | 668 | ||
669 | static void f_parser (lua_State *L, void *ud) { | 669 | static void f_parser (lua_State *L, void *ud) { |
670 | Closure *cl; | 670 | LClosure *cl; |
671 | struct SParser *p = cast(struct SParser *, ud); | 671 | struct SParser *p = cast(struct SParser *, ud); |
672 | int c = zgetc(p->z); /* read first character */ | 672 | int c = zgetc(p->z); /* read first character */ |
673 | if (c == LUA_SIGNATURE[0]) { | 673 | if (c == LUA_SIGNATURE[0]) { |
@@ -678,8 +678,8 @@ static void f_parser (lua_State *L, void *ud) { | |||
678 | checkmode(L, p->mode, "text"); | 678 | checkmode(L, p->mode, "text"); |
679 | cl = luaY_parser(L, p->z, &p->buff, &p->dyd, p->name, c); | 679 | cl = luaY_parser(L, p->z, &p->buff, &p->dyd, p->name, c); |
680 | } | 680 | } |
681 | lua_assert(cl->l.nupvalues == cl->l.p->sizeupvalues); | 681 | lua_assert(cl->nupvalues == cl->p->sizeupvalues); |
682 | luaF_initupvals(L, &cl->l); | 682 | luaF_initupvals(L, cl); |
683 | } | 683 | } |
684 | 684 | ||
685 | 685 | ||