diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-10-21 17:41:46 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-10-21 17:41:46 -0300 |
| commit | 425e5813b0e9c43889b8649c87c8ac693e6afd11 (patch) | |
| tree | 4d3ddea841545965b7abdafa627337c7ef76c631 | |
| parent | 6505503b49c90c069db6ed8ea28b7d1a8c922678 (diff) | |
| download | lua-425e5813b0e9c43889b8649c87c8ac693e6afd11.tar.gz lua-425e5813b0e9c43889b8649c87c8ac693e6afd11.tar.bz2 lua-425e5813b0e9c43889b8649c87c8ac693e6afd11.zip | |
free prototype in (more or less) the same order it is created by
`undump'
| -rw-r--r-- | lfunc.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lfunc.c,v 1.59 2002/08/30 19:09:21 roberto Exp roberto $ | 2 | ** $Id: lfunc.c,v 1.60 2002/10/16 20:40:58 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 | */ |
| @@ -96,10 +96,10 @@ Proto *luaF_newproto (lua_State *L) { | |||
| 96 | 96 | ||
| 97 | void luaF_freeproto (lua_State *L, Proto *f) { | 97 | void luaF_freeproto (lua_State *L, Proto *f) { |
| 98 | luaM_freearray(L, f->code, f->sizecode, Instruction); | 98 | luaM_freearray(L, f->code, f->sizecode, Instruction); |
| 99 | luaM_freearray(L, f->p, f->sizep, Proto *); | ||
| 100 | luaM_freearray(L, f->k, f->sizek, TObject); | ||
| 99 | luaM_freearray(L, f->lineinfo, f->sizelineinfo, int); | 101 | luaM_freearray(L, f->lineinfo, f->sizelineinfo, int); |
| 100 | luaM_freearray(L, f->locvars, f->sizelocvars, struct LocVar); | 102 | luaM_freearray(L, f->locvars, f->sizelocvars, struct LocVar); |
| 101 | luaM_freearray(L, f->k, f->sizek, TObject); | ||
| 102 | luaM_freearray(L, f->p, f->sizep, Proto *); | ||
| 103 | luaM_freelem(L, f); | 103 | luaM_freelem(L, f); |
| 104 | } | 104 | } |
| 105 | 105 | ||
