diff options
| author | das <das> | 2006-08-29 06:28:38 (GMT) |
|---|---|---|
| committer | das <das> | 2006-08-29 06:28:38 (GMT) |
| commit | 14399ffc4716be22d31ded0e4cc5c6f2d7235ce7 (patch) | |
| tree | ef4289f24679eae4bd0d8dfbef7deee16cac2213 /generic/tclCompile.c | |
| parent | 3faa694500b76066d4dcc0917f145042350d7910 (diff) | |
| download | tcl-14399ffc4716be22d31ded0e4cc5c6f2d7235ce7.zip tcl-14399ffc4716be22d31ded0e4cc5c6f2d7235ce7.tar.gz tcl-14399ffc4716be22d31ded0e4cc5c6f2d7235ce7.tar.bz2 | |
add casts to make gcc2 happy with previous commit [Bug 1548330]
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 4e85464..2be8b05 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.96 2006/08/28 08:47:05 das Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.97 2006/08/29 06:28:38 das Exp $ */ #include "tclInt.h" @@ -2930,13 +2930,13 @@ TclPrintByteCodeObj( #ifdef TCL_COMPILE_STATS fprintf(stdout, - " Code %ld = header %ld+inst %d+litObj %ld+exc %ld+aux %ld+cmdMap %d\n", + " Code %lu = header %lu+inst %d+litObj %lu+exc %lu+aux %lu+cmdMap %d\n", (unsigned long) codePtr->structureSize, - (sizeof(ByteCode) - (sizeof(size_t) + sizeof(Tcl_Time))), + (unsigned long) (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 */ |