diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-27 13:59:54 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-27 13:59:54 (GMT) |
| commit | c0e12b46bd7db9fb801970fde35f5d19802b7478 (patch) | |
| tree | a79341f8cbdd6a216fd9d2780335fe1f11b127b4 /generic/tclTest.c | |
| parent | 48ba730972e2f4c8050e174a98cf3d4fdc7e9663 (diff) | |
| download | tcl-c0e12b46bd7db9fb801970fde35f5d19802b7478.zip tcl-c0e12b46bd7db9fb801970fde35f5d19802b7478.tar.gz tcl-c0e12b46bd7db9fb801970fde35f5d19802b7478.tar.bz2 | |
Updated to use Tcl_StatBuf instead of 'struct stat'
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 212c8fd..15f1f06 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.31.2.1 2001/09/25 10:24:07 dkf Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.31.2.2 2001/09/27 13:59:54 dkf Exp $ */ #define TCL_TEST @@ -4633,7 +4633,7 @@ TestChannelCmd(clientData, interp, argc, argv) TclFormatInt(buf, IOQueued); Tcl_AppendElement(interp, buf); - TclFormatInt(buf, Tcl_Tell((Tcl_Channel) chanPtr)); + TclFormatInt(buf, (int)Tcl_Tell((Tcl_Channel) chanPtr)); Tcl_AppendElement(interp, buf); TclFormatInt(buf, statePtr->refCount); |