Tcl Source Code

Check-in [c98cb23f45]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Silence type match warnings in debug print.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: c98cb23f4519966e754ba49e56e2e79d93d57e86
User & Date: dgp 2011-07-12 15:19:43
Context
2011-07-13
21:19
merge new test check-in: 38a5642a29 user: dgp tags: core-8-5-branch
2011-07-12
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
15:08
platform portable type matching in debug prints. check-in: 27b5f75270 user: dgp tags: core-8-4-branch
2011-07-08
12:32
[FRQ 3358415]: Minor doc improvement check-in: 643ae1361a user: dkf tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCkalloc.c.

175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
	    "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,
	    current_bytes_malloced,
	    maximum_malloc_packets,
	    maximum_bytes_malloced);
    if (flags == 0) {
	fprintf((FILE *)clientData, buf);
    } else {
	/* Assume objPtr to append to */
	Tcl_AppendToObj((Tcl_Obj *) clientData, buf, -1);
    }
    return 1;







|

|







175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
	    "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, buf);
    } else {
	/* Assume objPtr to append to */
	Tcl_AppendToObj((Tcl_Obj *) clientData, buf, -1);
    }
    return 1;