diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-26 16:31:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-26 16:31:27 (GMT) |
| commit | 4c97b25f81b1f2cbabe7f084e86e539bcbdbc21a (patch) | |
| tree | a2e6357521552e0fc9f322e4290940254aece001 /generic/tclIORChan.c | |
| parent | a021f251e2b1ea8a73540c6984aa332cb798bf60 (diff) | |
| download | tcl-4c97b25f81b1f2cbabe7f084e86e539bcbdbc21a.zip tcl-4c97b25f81b1f2cbabe7f084e86e539bcbdbc21a.tar.gz tcl-4c97b25f81b1f2cbabe7f084e86e539bcbdbc21a.tar.bz2 | |
Don't use TCL_SIZE_MODIFIER "u", since Tcl_Size can be negative
Diffstat (limited to 'generic/tclIORChan.c')
| -rw-r--r-- | generic/tclIORChan.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index e342126..41e9e88 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -587,6 +587,9 @@ TclChanCreateObjCmd( rcId = NextHandle(); rcPtr = NewReflectedChannel(interp, cmdObj, mode, rcId); + if (!rcPtr) { + return TCL_ERROR; + } /* * Invoke 'initialize' and validate that the handler is present and ok. @@ -1402,7 +1405,7 @@ ReflectInput( if (toRead < bytec) { SetChannelErrorStr(rcPtr->chan, msg_read_toomuch); - goto invalid; + goto invalid; } *errorCodePtr = EOK; @@ -3344,7 +3347,7 @@ ForwardProc( char *buf = (char *)ckalloc(200); snprintf(buf, 200, - "{Expected list with even number of elements, got %d %s instead}", + "{Expected list with even number of elements, got %" TCL_SIZE_MODIFIER "d %s instead}", listc, (listc == 1 ? "element" : "elements")); ForwardSetDynamicError(paramPtr, buf); |