diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2019-11-18 14:54:06 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2019-11-18 14:54:06 -0300 |
| commit | 5f83fb658206d195e54d3574b989ce5285a5b18f (patch) | |
| tree | 2049d60a21ae33407c13c5e8452b539ae250b2f2 /lfunc.c | |
| parent | 679dc72c08a7c563a0c3f463332d6f22d573a106 (diff) | |
| download | lua-5f83fb658206d195e54d3574b989ce5285a5b18f.tar.gz lua-5f83fb658206d195e54d3574b989ce5285a5b18f.tar.bz2 lua-5f83fb658206d195e54d3574b989ce5285a5b18f.zip | |
Details
Diffstat (limited to 'lfunc.c')
| -rw-r--r-- | lfunc.c | 14 |
1 files changed, 7 insertions, 7 deletions
| @@ -24,20 +24,20 @@ | |||
| 24 | 24 | ||
| 25 | 25 | ||
| 26 | 26 | ||
| 27 | CClosure *luaF_newCclosure (lua_State *L, int n) { | 27 | CClosure *luaF_newCclosure (lua_State *L, int nupvals) { |
| 28 | GCObject *o = luaC_newobj(L, LUA_TCCL, sizeCclosure(n)); | 28 | GCObject *o = luaC_newobj(L, LUA_TCCL, sizeCclosure(nupvals)); |
| 29 | CClosure *c = gco2ccl(o); | 29 | CClosure *c = gco2ccl(o); |
| 30 | c->nupvalues = cast_byte(n); | 30 | c->nupvalues = cast_byte(nupvals); |
| 31 | return c; | 31 | return c; |
| 32 | } | 32 | } |
| 33 | 33 | ||
| 34 | 34 | ||
| 35 | LClosure *luaF_newLclosure (lua_State *L, int n) { | 35 | LClosure *luaF_newLclosure (lua_State *L, int nupvals) { |
| 36 | GCObject *o = luaC_newobj(L, LUA_TLCL, sizeLclosure(n)); | 36 | GCObject *o = luaC_newobj(L, LUA_TLCL, sizeLclosure(nupvals)); |
| 37 | LClosure *c = gco2lcl(o); | 37 | LClosure *c = gco2lcl(o); |
| 38 | c->p = NULL; | 38 | c->p = NULL; |
| 39 | c->nupvalues = cast_byte(n); | 39 | c->nupvalues = cast_byte(nupvals); |
| 40 | while (n--) c->upvals[n] = NULL; | 40 | while (nupvals--) c->upvals[nupvals] = NULL; |
| 41 | return c; | 41 | return c; |
| 42 | } | 42 | } |
| 43 | 43 | ||