diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-24 20:10:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-24 20:10:25 (GMT) |
| commit | f786cb097f2b4dedaf17c38b8246e76df1a73ce5 (patch) | |
| tree | 44800cd8681e698777665467b8e06d5b2432d9df /generic/tclMain.c | |
| parent | 5a02d5db9cec007d16a60b24bd8cd0b1912d123f (diff) | |
| download | tcl-f786cb097f2b4dedaf17c38b8246e76df1a73ce5.zip tcl-f786cb097f2b4dedaf17c38b8246e76df1a73ce5.tar.gz tcl-f786cb097f2b4dedaf17c38b8246e76df1a73ce5.tar.bz2 | |
Another round of int -> size_t modifications, so strings > 2Gb are handled correctly on 64-bit platforms.
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index ed04ce7..f85f8aa 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -467,7 +467,7 @@ Tcl_MainEx( while ((is.input != NULL) && !Tcl_InterpDeleted(interp)) { mainLoopProc = TclGetMainLoop(); if (mainLoopProc == NULL) { - int length; + size_t length; if (is.tty) { Prompt(interp, &is); @@ -488,7 +488,7 @@ Tcl_MainEx( Tcl_IncrRefCount(is.commandPtr); } length = Tcl_GetsObj(is.input, is.commandPtr); - if (length < 0) { + if (length == (size_t)-1) { if (Tcl_InputBlocked(is.input)) { /* * This can only happen if stdin has been set to @@ -753,7 +753,8 @@ StdinProc( ClientData clientData, /* The state of interactive cmd line */ int mask) /* Not used. */ { - int code, length; + int code; + size_t length; InteractiveState *isPtr = clientData; Tcl_Channel chan = isPtr->input; Tcl_Obj *commandPtr = isPtr->commandPtr; @@ -765,7 +766,7 @@ StdinProc( Tcl_IncrRefCount(commandPtr); } length = Tcl_GetsObj(chan, commandPtr); - if (length < 0) { + if (length == (size_t)-1) { if (Tcl_InputBlocked(chan)) { return; } |