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