diff options
Diffstat (limited to 'lfunc.c')
| -rw-r--r-- | lfunc.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lfunc.c,v 2.3 2004/03/15 21:04:33 roberto Exp roberto $ | 2 | ** $Id: lfunc.c,v 2.4 2004/04/30 20:13:38 roberto Exp roberto $ |
| 3 | ** Auxiliary functions to manipulate prototypes and closures | 3 | ** Auxiliary functions to manipulate prototypes and closures |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -75,7 +75,7 @@ void luaF_close (lua_State *L, StkId level) { | |||
| 75 | lua_assert(!isblack(o)); | 75 | lua_assert(!isblack(o)); |
| 76 | L->openupval = uv->next; /* remove from `open' list */ | 76 | L->openupval = uv->next; /* remove from `open' list */ |
| 77 | if (isdead(g, o)) | 77 | if (isdead(g, o)) |
| 78 | luaM_freelem(L, uv); /* free upvalue */ | 78 | luaM_free(L, uv); /* free upvalue */ |
| 79 | else { | 79 | else { |
| 80 | setobj(L, &uv->value, uv->v); | 80 | setobj(L, &uv->value, uv->v); |
| 81 | uv->v = &uv->value; /* now current value lives here */ | 81 | uv->v = &uv->value; /* now current value lives here */ |
| @@ -117,14 +117,14 @@ void luaF_freeproto (lua_State *L, Proto *f) { | |||
| 117 | luaM_freearray(L, f->lineinfo, f->sizelineinfo, int); | 117 | luaM_freearray(L, f->lineinfo, f->sizelineinfo, int); |
| 118 | luaM_freearray(L, f->locvars, f->sizelocvars, struct LocVar); | 118 | luaM_freearray(L, f->locvars, f->sizelocvars, struct LocVar); |
| 119 | luaM_freearray(L, f->upvalues, f->sizeupvalues, TString *); | 119 | luaM_freearray(L, f->upvalues, f->sizeupvalues, TString *); |
| 120 | luaM_freelem(L, f); | 120 | luaM_free(L, f); |
| 121 | } | 121 | } |
| 122 | 122 | ||
| 123 | 123 | ||
| 124 | void luaF_freeclosure (lua_State *L, Closure *c) { | 124 | void luaF_freeclosure (lua_State *L, Closure *c) { |
| 125 | int size = (c->c.isC) ? sizeCclosure(c->c.nupvalues) : | 125 | int size = (c->c.isC) ? sizeCclosure(c->c.nupvalues) : |
| 126 | sizeLclosure(c->l.nupvalues); | 126 | sizeLclosure(c->l.nupvalues); |
| 127 | luaM_free(L, c, size); | 127 | luaM_freemem(L, c, size); |
| 128 | } | 128 | } |
| 129 | 129 | ||
| 130 | 130 | ||
