diff options
| author | das <das@noemail.net> | 2007-04-23 20:33:55 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2007-04-23 20:33:55 (GMT) |
| commit | bdbeacdd587cac6a7b3ea9b836165fd836b4a61b (patch) | |
| tree | 2f5c20af8f2af9e9114e732d6557893ae4dfaf08 /generic/tclCkalloc.c | |
| parent | 2134a0e7016276f2b3a853cbce5d68eb6cce1f4f (diff) | |
| download | tcl-bdbeacdd587cac6a7b3ea9b836165fd836b4a61b.zip tcl-bdbeacdd587cac6a7b3ea9b836165fd836b4a61b.tar.gz tcl-bdbeacdd587cac6a7b3ea9b836165fd836b4a61b.tar.bz2 | |
* generic/tclCkalloc.c: fix warnings from gcc build configured with
* generic/tclCompile.c: --enable-64bit --enable-symbols=all.
* generic/tclExecute.c:
FossilOrigin-Name: d021f527a389a010e7ed0994fb037f753c256dea
Diffstat (limited to 'generic/tclCkalloc.c')
| -rw-r--r-- | generic/tclCkalloc.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c index 6deaf34..ee259d4 100644 --- a/generic/tclCkalloc.c +++ b/generic/tclCkalloc.c @@ -14,7 +14,7 @@ * * This code contributed by Karl Lehenbauer and Mark Diekhans * - * RCS: @(#) $Id: tclCkalloc.c,v 1.31 2007/04/20 05:51:09 kennykb Exp $ + * RCS: @(#) $Id: tclCkalloc.c,v 1.32 2007/04/23 20:33:56 das Exp $ */ #include "tclInt.h" @@ -213,7 +213,7 @@ ValidateMemory( * been printed */ { unsigned char *hiPtr; - int idx; + size_t idx; int guard_failed = FALSE; int byte; @@ -223,7 +223,7 @@ ValidateMemory( guard_failed = TRUE; fflush(stdout); byte &= 0xff; - fprintf(stderr, "low guard byte %d is 0x%x \t%c\n", idx, byte, + fprintf(stderr, "low guard byte %d is 0x%x \t%c\n", (int)idx, byte, (isprint(UCHAR(byte)) ? byte : ' ')); /* INTL: bytes */ } } @@ -244,7 +244,7 @@ ValidateMemory( guard_failed = TRUE; fflush(stdout); byte &= 0xff; - fprintf(stderr, "hi guard byte %d is 0x%x \t%c\n", idx, byte, + fprintf(stderr, "hi guard byte %d is 0x%x \t%c\n", (int)idx, byte, (isprint(UCHAR(byte)) ? byte : ' ')); /* INTL: bytes */ } } |