diff options
Diffstat (limited to 'generic/tkFont.c')
| -rw-r--r-- | generic/tkFont.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tkFont.c b/generic/tkFont.c index 226f2a9..844ed78 100644 --- a/generic/tkFont.c +++ b/generic/tkFont.c @@ -422,12 +422,16 @@ TkFontPkgFree( TkFontInfo *fiPtr = mainPtr->fontInfoPtr; Tcl_HashEntry *hPtr, *searchPtr; Tcl_HashSearch search; +#ifdef PURIFY int fontsLeft = 0; +#endif for (searchPtr = Tcl_FirstHashEntry(&fiPtr->fontCache, &search); searchPtr != NULL; searchPtr = Tcl_NextHashEntry(&search)) { +#ifdef PURIFY fontsLeft++; +#endif #ifdef DEBUG_FONTS fprintf(stderr, "Font %s still in cache.\n", (char *) Tcl_GetHashKey(&fiPtr->fontCache, searchPtr)); |