summaryrefslogtreecommitdiff
path: root/lfunc.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2004-11-24 17:20:21 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2004-11-24 17:20:21 -0200
commit0e002005b1bf17e962d4640ef7b9fae900514f1a (patch)
treec68a025d99d1dfa7a033baa765ba701909d8a4fb /lfunc.c
parent1d99a7360beaf1a50a3739413b1ad6ed4b71491d (diff)
downloadlua-0e002005b1bf17e962d4640ef7b9fae900514f1a.tar.gz
lua-0e002005b1bf17e962d4640ef7b9fae900514f1a.tar.bz2
lua-0e002005b1bf17e962d4640ef7b9fae900514f1a.zip
better names for `luaM_free...' macros
Diffstat (limited to 'lfunc.c')
-rw-r--r--lfunc.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/lfunc.c b/lfunc.c
index c088cfa0..8513ce22 100644
--- a/lfunc.c
+++ b/lfunc.c
@@ -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
124void luaF_freeclosure (lua_State *L, Closure *c) { 124void 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