166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
-
+
+
+
-
+
+
+
|
*
* Display the global memory management statistics.
*
*----------------------------------------------------------------------
*/
int
TclDumpMemoryInfo(ClientData clientData, int flags)
TclDumpMemoryInfo(
ClientData clientData,
int flags)
{
char buf[1024];
if (clientData == NULL) { return 0; }
if (clientData == NULL) {
return 0;
}
sprintf(buf,
"total mallocs %10d\n"
"total frees %10d\n"
"current packets allocated %10d\n"
"current bytes allocated %10lu\n"
"maximum packets allocated %10d\n"
"maximum bytes allocated %10lu\n",
|
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
|
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
|
-
+
+
+
|
Tcl_ValidateAllMemory(
const char *file,
int line)
{
}
int
TclDumpMemoryInfo(ClientData clientData, int flags)
TclDumpMemoryInfo(
ClientData clientData,
int flags)
{
return 1;
}
#endif /* TCL_MEM_DEBUG */
/*
|