diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-17 06:02:36 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-17 06:02:36 (GMT) |
commit | 6def0d48c1fff35f9f5b3bfbe1ddbe6cedd2c247 (patch) | |
tree | 764a634adc0ddab6d9a9456d74fc449175c34275 /generic/tclIO.c | |
parent | fdb568c35f1cd6de7f1acd05fdbd4f8b6cf5aee1 (diff) | |
download | tcl-6def0d48c1fff35f9f5b3bfbe1ddbe6cedd2c247.zip tcl-6def0d48c1fff35f9f5b3bfbe1ddbe6cedd2c247.tar.gz tcl-6def0d48c1fff35f9f5b3bfbe1ddbe6cedd2c247.tar.bz2 |
Handle sentinels for any C++ compiler
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r-- | generic/tclIO.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 2e25d2d..d79397b 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -1468,7 +1468,7 @@ Tcl_GetChannel( if (hPtr == NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "can not find channel named \"%s\"", chanName)); - Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "CHANNEL", chanName, NULL); + Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "CHANNEL", chanName, (void *)NULL); return NULL; } @@ -9881,12 +9881,12 @@ CopyData( if (interp) { TclNewObj(errObj); Tcl_AppendStringsToObj(errObj, "error reading \"", - Tcl_GetChannelName(inChan), "\": ", NULL); + Tcl_GetChannelName(inChan), "\": ", (void *)NULL); if (msg != NULL) { Tcl_AppendObjToObj(errObj, msg); } else { Tcl_AppendStringsToObj(errObj, Tcl_PosixError(interp), - NULL); + (void *)NULL); } } if (msg != NULL) { @@ -9962,12 +9962,12 @@ CopyData( if (interp) { TclNewObj(errObj); Tcl_AppendStringsToObj(errObj, "error writing \"", - Tcl_GetChannelName(outChan), "\": ", NULL); + Tcl_GetChannelName(outChan), "\": ", (void *)NULL); if (msg != NULL) { Tcl_AppendObjToObj(errObj, msg); } else { Tcl_AppendStringsToObj(errObj, Tcl_PosixError(interp), - NULL); + (void *)NULL); } } if (msg != NULL) { |