Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | merge to trunk |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
ad32aec14b5bb3498b26439e35751d28 |
User & Date: | dgp 2011-07-12 15:51:07 |
Context
2011-07-12
| ||
16:05 | platform portable type matching in debug prints check-in: 83d26b2944 user: dgp tags: trunk | |
15:51 | merge to trunk check-in: ad32aec14b user: dgp tags: trunk | |
15:19 | Silence type match warnings in debug print. check-in: c98cb23f45 user: dgp tags: core-8-5-branch | |
2011-07-11
| ||
20:04 | Correct cast for CURR_DEPTH to silence compiler warning. [Bug 3339502] check-in: 9ab9f69d77 user: mistachkin tags: trunk | |
Changes
Changes to generic/tclCkalloc.c.
︙ | ︙ | |||
181 182 183 184 185 186 187 | "current packets allocated %10d\n" "current bytes allocated %10lu\n" "maximum packets allocated %10d\n" "maximum bytes allocated %10lu\n", total_mallocs, total_frees, current_malloc_packets, | | | | 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | "current packets allocated %10d\n" "current bytes allocated %10lu\n" "maximum packets allocated %10d\n" "maximum bytes allocated %10lu\n", total_mallocs, total_frees, current_malloc_packets, (unsigned long)current_bytes_malloced, maximum_malloc_packets, (unsigned long)maximum_bytes_malloced); if (flags == 0) { fprintf((FILE *)clientData, "%s", buf); } else { /* Assume objPtr to append to */ Tcl_AppendToObj((Tcl_Obj *) clientData, buf, -1); } return 1; |
︙ | ︙ | |||
848 849 850 851 852 853 854 | return TCL_OK; } if (strcmp(argv[1],"info") == 0) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "%-25s %10d\n%-25s %10d\n%-25s %10d\n%-25s %10lu\n%-25s %10d\n%-25s %10lu\n", "total mallocs", total_mallocs, "total frees", total_frees, "current packets allocated", current_malloc_packets, | | | | 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 | return TCL_OK; } if (strcmp(argv[1],"info") == 0) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "%-25s %10d\n%-25s %10d\n%-25s %10d\n%-25s %10lu\n%-25s %10d\n%-25s %10lu\n", "total mallocs", total_mallocs, "total frees", total_frees, "current packets allocated", current_malloc_packets, "current bytes allocated", (unsigned long)current_bytes_malloced, "maximum packets allocated", maximum_malloc_packets, "maximum bytes allocated", (unsigned long)maximum_bytes_malloced)); return TCL_OK; } if (strcmp(argv[1],"init") == 0) { if (argc != 3) { goto bad_suboption; } init_malloced_bodies = (strcmp(argv[2],"on") == 0); |
︙ | ︙ |