aboutsummaryrefslogtreecommitdiff
path: root/lmem.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2010-04-02 11:37:41 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2010-04-02 11:37:41 -0300
commite54668b6961a610a1b83a78a11581e2e6cfc0c7e (patch)
tree3e5d44b4a151d95a662626d47c1e00ce23d0a25c /lmem.c
parent9eb832de5478fc8ac45bdc542178f49b390980b8 (diff)
downloadlua-e54668b6961a610a1b83a78a11581e2e6cfc0c7e.tar.gz
lua-e54668b6961a610a1b83a78a11581e2e6cfc0c7e.tar.bz2
lua-e54668b6961a610a1b83a78a11581e2e6cfc0c7e.zip
added proper code to trace garbage collection
Diffstat (limited to 'lmem.c')
-rw-r--r--lmem.c24
1 files changed, 23 insertions, 1 deletions
diff --git a/lmem.c b/lmem.c
index 63ee8b6a..41047b04 100644
--- a/lmem.c
+++ b/lmem.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lmem.c,v 1.73 2006/09/14 18:42:28 roberto Exp roberto $ 2** $Id: lmem.c,v 1.74 2009/12/16 16:42:58 roberto Exp roberto $
3** Interface to Memory Manager 3** Interface to Memory Manager
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -94,6 +94,28 @@ void *luaM_realloc_ (lua_State *L, void *block, size_t osize, size_t nsize) {
94 } 94 }
95 lua_assert((nsize == 0) == (newblock == NULL)); 95 lua_assert((nsize == 0) == (newblock == NULL));
96 g->totalbytes = (g->totalbytes - realosize) + nsize; 96 g->totalbytes = (g->totalbytes - realosize) + nsize;
97#if defined(TRACEMEM)
98 { /* auxiliar patch to monitor garbage collection.
99 ** To plot, gnuplot with following command:
100 ** plot TRACEMEM using 1:2 with lines, TRACEMEM using 1:3 with lines
101 */
102 static unsigned long total = 0; /* our "time" */
103 static lu_mem last = 0; /* last totalmem that generated an output */
104 static FILE *f = NULL; /* output file */
105 if (nsize <= osize) total += 1; /* "time" always grow */
106 else total += (nsize - osize);
107 if ((int)g->totalbytes - (int)last > 1000 ||
108 (int)g->totalbytes - (int)last < -1000) {
109 last = g->totalbytes;
110 if (f == NULL) f = fopen(TRACEMEM, "w");
111 fprintf(f, "%lu %u %u %d\n", total,
112 g->totalbytes,
113 g->GCthreshold < MAX_LUMEM ? g->GCthreshold : 0,
114 g->gcstate);
115 }
116 }
117#endif
118
97 return newblock; 119 return newblock;
98} 120}
99 121