diff options
| author | das <das> | 2006-08-28 08:47:05 (GMT) |
|---|---|---|
| committer | das <das> | 2006-08-28 08:47:05 (GMT) |
| commit | cbb9f9765dfcb25ac116bc06e4cb33aba4b6d2d4 (patch) | |
| tree | a63ae0bc789bfe87fa87017a34bf36bdad882124 | |
| parent | 1f7a4c65f4cdd102ebde7c2058fff469686829f8 (diff) | |
| download | tcl-cbb9f9765dfcb25ac116bc06e4cb33aba4b6d2d4.zip tcl-cbb9f9765dfcb25ac116bc06e4cb33aba4b6d2d4.tar.gz tcl-cbb9f9765dfcb25ac116bc06e4cb33aba4b6d2d4.tar.bz2 | |
fixed printf format warnings from gcc4 when TCL_COMPILE_STATS defined
| -rw-r--r-- | generic/tclCompile.c | 6 | ||||
| -rw-r--r-- | generic/tclExecute.c | 14 |
2 files changed, 10 insertions, 10 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 56aa708..4e85464 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.c,v 1.95 2006/08/17 17:43:38 dgp Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.96 2006/08/28 08:47:05 das Exp $ */ #include "tclInt.h" @@ -2930,8 +2930,8 @@ TclPrintByteCodeObj( #ifdef TCL_COMPILE_STATS fprintf(stdout, - " Code %d = header %d+inst %d+litObj %d+exc %d+aux %d+cmdMap %d\n", - codePtr->structureSize, + " Code %ld = header %ld+inst %d+litObj %ld+exc %ld+aux %ld+cmdMap %d\n", + (unsigned long) codePtr->structureSize, (sizeof(ByteCode) - (sizeof(size_t) + sizeof(Tcl_Time))), codePtr->numCodeBytes, (codePtr->numLitObjects * sizeof(Tcl_Obj *)), diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 1ab1b02..1c89772 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.241 2006/08/10 12:15:31 dkf Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.242 2006/08/28 08:47:05 das Exp $ */ #include "tclInt.h" @@ -6266,8 +6266,8 @@ PrintByteCodeInfo( 0.0); #ifdef TCL_COMPILE_STATS - fprintf(stdout, " Code %d = header %d+inst %d+litObj %d+exc %d+aux %d+cmdMap %d\n", - codePtr->structureSize, + fprintf(stdout, " Code %ld = header %ld+inst %d+litObj %ld+exc %ld+aux %ld+cmdMap %d\n", + (unsigned long) codePtr->structureSize, (sizeof(ByteCode) - (sizeof(size_t) + sizeof(Tcl_Time))), codePtr->numCodeBytes, (codePtr->numLitObjects * sizeof(Tcl_Obj *)), @@ -6818,7 +6818,7 @@ EvalStatsCmd( statsPtr->totalByteCodeBytes); fprintf(stdout, " Literal bytes %.6g\n", totalLiteralBytes); - fprintf(stdout, " table %d + bkts %d + entries %ld + objects %ld + strings %.6g\n", + fprintf(stdout, " table %ld + bkts %ld + entries %ld + objects %ld + strings %.6g\n", sizeof(LiteralTable), iPtr->literalTable.numBuckets * sizeof(LiteralEntry *), statsPtr->numLiteralsCreated * sizeof(LiteralEntry), @@ -6839,7 +6839,7 @@ EvalStatsCmd( statsPtr->currentByteCodeBytes); fprintf(stdout, " Literal bytes %.6g\n", currentLiteralBytes); - fprintf(stdout, " table %d + bkts %d + entries %d + objects %d + strings %.6g\n", + fprintf(stdout, " table %ld + bkts %ld + entries %ld + objects %ld + strings %.6g\n", sizeof(LiteralTable), iPtr->literalTable.numBuckets * sizeof(LiteralEntry *), iPtr->literalTable.numEntries * sizeof(LiteralEntry), @@ -6933,7 +6933,7 @@ EvalStatsCmd( (sharingBytesSaved * 100.0) / (objBytesIfUnshared + strBytesIfUnshared)); fprintf(stdout, " Bytes with sharing %.6g\n", currentLiteralBytes); - fprintf(stdout, " table %d + bkts %d + entries %d + objects %d + strings %.6g\n", + fprintf(stdout, " table %ld + bkts %ld + entries %ld + objects %ld + strings %.6g\n", sizeof(LiteralTable), iPtr->literalTable.numBuckets * sizeof(LiteralEntry *), iPtr->literalTable.numEntries * sizeof(LiteralEntry), @@ -6948,7 +6948,7 @@ EvalStatsCmd( fprintf(stdout, " Literal mgmt overhead %ld (%0.1f%% of bytes with sharing)\n", literalMgmtBytes, (literalMgmtBytes * 100.0) / currentLiteralBytes); - fprintf(stdout, " table %d + buckets %d + entries %d\n", + fprintf(stdout, " table %ld + buckets %ld + entries %ld\n", sizeof(LiteralTable), iPtr->literalTable.numBuckets * sizeof(LiteralEntry *), iPtr->literalTable.numEntries * sizeof(LiteralEntry)); |