diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-25 16:49:55 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-25 16:49:55 (GMT) |
| commit | 368d2d623f802dda05805c7e8c1d147a74018998 (patch) | |
| tree | 7c9044b579c67a3f855b8d0d24ea6d7e5953598e /generic/tclIOCmd.c | |
| parent | f148bcf93bd6308c33c81c54a462b10ab74a6eee (diff) | |
| download | tcl-368d2d623f802dda05805c7e8c1d147a74018998.zip tcl-368d2d623f802dda05805c7e8c1d147a74018998.tar.gz tcl-368d2d623f802dda05805c7e8c1d147a74018998.tar.bz2 | |
Woo hoo! Builds on one platform (Solaris8/SPARC with SunPro CC)
Diffstat (limited to 'generic/tclIOCmd.c')
| -rw-r--r-- | generic/tclIOCmd.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index a74b3b9..941de1e 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOCmd.c,v 1.10 2001/09/19 00:50:23 andreas_kupries Exp $ + * RCS: @(#) $Id: tclIOCmd.c,v 1.10.2.1 2001/09/25 16:49:56 dkf Exp $ */ #include "tclInt.h" @@ -99,7 +99,7 @@ Tcl_PutsObjCmd(dummy, interp, objc, objv) */ char *arg; - int length; + Tcl_Length length; arg = Tcl_GetStringFromObj(objv[3], &length); if (strncmp(arg, "nonewline", (size_t) length) != 0) { @@ -386,7 +386,7 @@ Tcl_ReadObjCmd(dummy, interp, objc, objv) if ((charactersRead > 0) && (newline != 0)) { char *result; - int length; + Tcl_Length length; result = Tcl_GetStringFromObj(resultPtr, &length); if (result[length - 1] == '\n') { @@ -561,7 +561,7 @@ Tcl_CloseObjCmd(clientData, interp, objc, objv) Tcl_Obj *resultPtr; char *string; - int len; + Tcl_Length len; resultPtr = Tcl_GetObjResult(interp); string = Tcl_GetStringFromObj(resultPtr, &len); @@ -735,7 +735,8 @@ Tcl_ExecObjCmd(dummy, interp, objc, objv) char *string; Tcl_Channel chan; char *argStorage[NUM_ARGS]; - int argc, background, i, index, keepNewline, result, skip, length; + int argc, background, i, index, keepNewline, result, skip; + Tcl_Length length; static char *options[] = { "-keepnewline", "--", NULL }; |