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 | ||