summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-07-12 14:54:45 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-07-12 14:54:45 (GMT)
commit768647c04d60b84308cdc21a86e43682d3094333 (patch)
tree81fddfc984b00375bb7a99c34c2262e343caf8cc
parent0b44568a3d94257675a1e678ef2066943a7d9c4e (diff)
downloadtcl-768647c04d60b84308cdc21a86e43682d3094333.zip
tcl-768647c04d60b84308cdc21a86e43682d3094333.tar.gz
tcl-768647c04d60b84308cdc21a86e43682d3094333.tar.bz2
-rw-r--r--generic/tclExecute.c50
1 files changed, 25 insertions, 25 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 64b9e96..1c9d99d 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -4577,13 +4577,13 @@ PrintByteCodeInfo(codePtr)
0.0);
#endif
#ifdef TCL_COMPILE_STATS
- fprintf(stdout, " Code %ld = header %lu+inst %d+litObj %lu+exc %lu+aux %lu+cmdMap %d\n",
- codePtr->structureSize,
- (sizeof(ByteCode) - (sizeof(size_t) + sizeof(Tcl_Time))),
+ fprintf(stdout, " Code %u = header %u+inst %d+litObj %lu+exc %lu+aux %lu+cmdMap %d\n",
+ (unsigned int)codePtr->structureSize,
+ (unsigned int)(sizeof(ByteCode) - (sizeof(size_t) + sizeof(Tcl_Time))),
codePtr->numCodeBytes,
- (codePtr->numLitObjects * sizeof(Tcl_Obj *)),
- (codePtr->numExceptRanges * sizeof(ExceptionRange)),
- (codePtr->numAuxDataItems * sizeof(AuxData)),
+ (unsigned long)(codePtr->numLitObjects * sizeof(Tcl_Obj *)),
+ (unsigned long)(codePtr->numExceptRanges * sizeof(ExceptionRange)),
+ (unsigned long)(codePtr->numAuxDataItems * sizeof(AuxData)),
codePtr->numCmdLocBytes);
#endif /* TCL_COMPILE_STATS */
if (procPtr != NULL) {
@@ -6241,11 +6241,11 @@ EvalStatsCmd(unused, interp, objc, objv)
statsPtr->totalByteCodeBytes);
fprintf(stdout, " Literal bytes %.6g\n",
totalLiteralBytes);
- fprintf(stdout, " table %lu + bkts %lu + entries %ld + objects %ld + strings %.6g\n",
- sizeof(LiteralTable),
- iPtr->literalTable.numBuckets * sizeof(LiteralEntry *),
- statsPtr->numLiteralsCreated * sizeof(LiteralEntry),
- statsPtr->numLiteralsCreated * sizeof(Tcl_Obj),
+ fprintf(stdout, " table %u + bkts %lu + entries %lu + objects %lu + strings %.6g\n",
+ (unsigned int)sizeof(LiteralTable),
+ (unsigned long)iPtr->literalTable.numBuckets * sizeof(LiteralEntry *),
+ (unsigned long)statsPtr->numLiteralsCreated * sizeof(LiteralEntry),
+ (unsigned long)statsPtr->numLiteralsCreated * sizeof(Tcl_Obj),
statsPtr->totalLitStringBytes);
fprintf(stdout, " Mean code/compile %.1f\n",
totalCodeBytes / statsPtr->numCompilations);
@@ -6262,11 +6262,11 @@ EvalStatsCmd(unused, interp, objc, objv)
statsPtr->currentByteCodeBytes);
fprintf(stdout, " Literal bytes %.6g\n",
currentLiteralBytes);
- fprintf(stdout, " table %lu + bkts %lu + entries %lu + objects %lu + strings %.6g\n",
- sizeof(LiteralTable),
- iPtr->literalTable.numBuckets * sizeof(LiteralEntry *),
- iPtr->literalTable.numEntries * sizeof(LiteralEntry),
- iPtr->literalTable.numEntries * sizeof(Tcl_Obj),
+ fprintf(stdout, " table %u + bkts %lu + entries %lu + objects %lu + strings %.6g\n",
+ (unsigned int)sizeof(LiteralTable),
+ (unsigned long)iPtr->literalTable.numBuckets * sizeof(LiteralEntry *),
+ (unsigned long)iPtr->literalTable.numEntries * sizeof(LiteralEntry),
+ (unsigned long)iPtr->literalTable.numEntries * sizeof(Tcl_Obj),
statsPtr->currentLitStringBytes);
fprintf(stdout, " Mean code/source %.1f\n",
currentCodeBytes / statsPtr->currentSrcBytes);
@@ -6357,11 +6357,11 @@ EvalStatsCmd(unused, interp, objc, objv)
(sharingBytesSaved * 100.0) / (objBytesIfUnshared + strBytesIfUnshared));
fprintf(stdout, " Bytes with sharing %.6g\n",
currentLiteralBytes);
- fprintf(stdout, " table %lu + bkts %lu + entries %lu + objects %lu + strings %.6g\n",
- sizeof(LiteralTable),
- iPtr->literalTable.numBuckets * sizeof(LiteralEntry *),
- iPtr->literalTable.numEntries * sizeof(LiteralEntry),
- iPtr->literalTable.numEntries * sizeof(Tcl_Obj),
+ fprintf(stdout, " table %u + bkts %lu + entries %lu + objects %lu + strings %.6g\n",
+ (unsigned int)sizeof(LiteralTable),
+ (unsigned long)iPtr->literalTable.numBuckets * sizeof(LiteralEntry *),
+ (unsigned long)iPtr->literalTable.numEntries * sizeof(LiteralEntry),
+ (unsigned long)iPtr->literalTable.numEntries * sizeof(Tcl_Obj),
statsPtr->currentLitStringBytes);
fprintf(stdout, " Bytes if no sharing %.6g = objects %.6g + strings %.6g\n",
(objBytesIfUnshared + strBytesIfUnshared),
@@ -6372,10 +6372,10 @@ EvalStatsCmd(unused, interp, objc, objv)
fprintf(stdout, " Literal mgmt overhead %ld (%0.1f%% of bytes with sharing)\n",
literalMgmtBytes,
(literalMgmtBytes * 100.0) / currentLiteralBytes);
- fprintf(stdout, " table %lu + buckets %lu + entries %lu\n",
- sizeof(LiteralTable),
- iPtr->literalTable.numBuckets * sizeof(LiteralEntry *),
- iPtr->literalTable.numEntries * sizeof(LiteralEntry));
+ fprintf(stdout, " table %u + buckets %lu + entries %lu\n",
+ (unsigned int)sizeof(LiteralTable),
+ (unsigned long)iPtr->literalTable.numBuckets * sizeof(LiteralEntry *),
+ (unsigned long)iPtr->literalTable.numEntries * sizeof(LiteralEntry));
/*
* Breakdown of current ByteCode space requirements.