rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

auxiliar patch to monitor garbage collection

This commit is contained in:
Roberto Ierusalimschy 2005-01-14 12:21:16 -02:00
parent 5be517602e
commit 8e346d875a
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lmem.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lmem.c,v 1.66 2004/11/19 15:52:40 roberto Exp roberto $ ** $Id: lmem.c,v 1.67 2004/12/01 15:46:18 roberto Exp roberto $
** Interface to Memory Manager ** Interface to Memory Manager
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -81,6 +81,22 @@ void *luaM_realloc_ (lua_State *L, void *block, size_t osize, size_t nsize) {
luaD_throw(L, LUA_ERRMEM); luaD_throw(L, LUA_ERRMEM);
lua_assert((nsize == 0) == (block == NULL)); lua_assert((nsize == 0) == (block == NULL));
g->totalbytes = (g->totalbytes - osize) + nsize; g->totalbytes = (g->totalbytes - osize) + nsize;
#if 0
{ /* auxiliar patch to monitor garbage collection */
static unsigned long total = 0; /* our "time" */
static lu_mem last = 0; /* last totalmem that generated an output */
static FILE *f = NULL; /* output file */
if (nsize <= osize) total += 1; /* "time" always grow */
else total += (nsize - osize);
if ((int)g->totalbytes - (int)last > 1000 ||
(int)g->totalbytes - (int)last < -1000) {
last = g->totalbytes;
if (f == NULL) f = fopen("trace", "w");
fprintf(f, "%lu %u %u %u %d\n", total, g->totalbytes, g->GCthreshold,
g->estimate, g->gcstate);
}
}
#endif
return block; return block;
} }