nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changes in patch to monitor garbage collection

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2010-05-04 15:10:02 -03:00
parent 3e662cec89
commit e7ce7e1850
1 changed files with 6 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lmem.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lmem.c,v 1.76 2010/04/29 17:33:17 roberto Exp roberto $ ** $Id: lmem.c,v 1.77 2010/04/30 18:17:24 roberto Exp roberto $
** Interface to Memory Manager ** Interface to Memory Manager
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -103,18 +103,14 @@ void *luaM_realloc_ (lua_State *L, void *block, size_t osize, size_t nsize) {
** plot TRACEMEM using 1:2 with lines, TRACEMEM using 1:3 with lines ** plot TRACEMEM using 1:2 with lines, TRACEMEM using 1:3 with lines
*/ */
static unsigned long total = 0; /* our "time" */ static unsigned long total = 0; /* our "time" */
static lu_mem last = 0; /* last totalmem that generated an output */
static FILE *f = NULL; /* output file */ static FILE *f = NULL; /* output file */
if (nsize <= osize) total += 1; /* "time" always grow */ total++; /* "time" always grow */
else total += (nsize - osize); if ((total % 200) == 0) {
if ((int)g->totalbytes - (int)last > 1000 ||
(int)g->totalbytes - (int)last < -1000) {
last = g->totalbytes;
if (f == NULL) f = fopen(TRACEMEM, "w"); if (f == NULL) f = fopen(TRACEMEM, "w");
fprintf(f, "%lu %u %u %d\n", total, fprintf(f, "%lu %u %d %d\n", total,
g->totalbytes, g->totalbytes,
g->GCthreshold < MAX_LUMEM ? g->GCthreshold : 0, gcstopped(g) ? 0 : g->GCdebt,
g->gcstate); g->gcstate * 1000);
} }
} }
#endif #endif