diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-12-28 10:55:41 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-12-28 10:55:41 -0200 |
commit | 0183b8030c80f57b87874ff7867ccdb172d9d3dc (patch) | |
tree | 1033b5a84489a2f1f1bd210b1b120155cd7aeed7 /lobject.c | |
parent | 8c49e198654567f770a7d5081b886a7c35201d81 (diff) | |
download | lua-0183b8030c80f57b87874ff7867ccdb172d9d3dc.tar.gz lua-0183b8030c80f57b87874ff7867ccdb172d9d3dc.tar.bz2 lua-0183b8030c80f57b87874ff7867ccdb172d9d3dc.zip |
`free' gets size of the block: complete control over memory use
Diffstat (limited to 'lobject.c')
-rw-r--r-- | lobject.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lobject.c,v 1.56 2000/11/24 17:39:56 roberto Exp roberto $ | 2 | ** $Id: lobject.c,v 1.57 2000/12/04 18:33:40 roberto Exp roberto $ |
3 | ** Some generic functions over Lua objects | 3 | ** Some generic functions over Lua objects |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -57,8 +57,7 @@ int luaO_equalObj (const TObject *t1, const TObject *t2) { | |||
57 | 57 | ||
58 | char *luaO_openspace (lua_State *L, size_t n) { | 58 | char *luaO_openspace (lua_State *L, size_t n) { |
59 | if (n > L->Mbuffsize) { | 59 | if (n > L->Mbuffsize) { |
60 | luaM_reallocvector(L, L->Mbuffer, n, char); | 60 | luaM_reallocvector(L, L->Mbuffer, L->Mbuffsize, n, char); |
61 | L->nblocks += (n - L->Mbuffsize)*sizeof(char); | ||
62 | L->Mbuffsize = n; | 61 | L->Mbuffsize = n; |
63 | } | 62 | } |
64 | return L->Mbuffer; | 63 | return L->Mbuffer; |