wipunproven

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.