diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-28 03:02:13 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-28 03:02:13 (GMT) |
| commit | 6be516b44a873f6ced4a54f374e2eb4be624a6ce (patch) | |
| tree | 3b7b8cfca0bef90c815c93d85ac285800be6a935 /generic/tclPipe.c | |
| parent | c6139c195316122d0e72fde74fcaac9b1f7f9dc5 (diff) | |
| parent | 978c979608e7c2abc738ff8e3ac4f472dd893316 (diff) | |
| download | tcl-6be516b44a873f6ced4a54f374e2eb4be624a6ce.zip tcl-6be516b44a873f6ced4a54f374e2eb4be624a6ce.tar.gz tcl-6be516b44a873f6ced4a54f374e2eb4be624a6ce.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclPipe.c')
| -rw-r--r-- | generic/tclPipe.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclPipe.c b/generic/tclPipe.c index 854ecd5..73f291a 100644 --- a/generic/tclPipe.c +++ b/generic/tclPipe.c @@ -111,7 +111,7 @@ FileForRedirect( Tcl_GetChannelName(chan), ((writing) ? "writing" : "reading"))); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", - "BADCHAN", (void *)NULL); + "BADCHAN", (char *)NULL); } return NULL; } @@ -155,7 +155,7 @@ FileForRedirect( badLastArg: Tcl_SetObjResult(interp, Tcl_ObjPrintf( "can't specify \"%s\" as last word in command", arg)); - Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", "SYNTAX", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", "SYNTAX", (char *)NULL); return NULL; } @@ -514,7 +514,7 @@ TclCreatePipeline( Tcl_SetObjResult(interp, Tcl_NewStringObj( "illegal use of | or |& in command", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", - "PIPESYNTAX", (void *)NULL); + "PIPESYNTAX", (char *)NULL); goto error; } } @@ -543,7 +543,7 @@ TclCreatePipeline( "can't specify \"%s\" as last word in command", argv[i])); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", - "PIPESYNTAX", (void *)NULL); + "PIPESYNTAX", (char *)NULL); goto error; } skip = 2; @@ -660,7 +660,7 @@ TclCreatePipeline( "must specify \"%s\" as last word in command", argv[i])); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", - "PIPESYNTAX", (void *)NULL); + "PIPESYNTAX", (char *)NULL); goto error; } errorFile = outputFile; @@ -702,7 +702,7 @@ TclCreatePipeline( Tcl_SetObjResult(interp, Tcl_NewStringObj( "illegal use of | or |& in command", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", "PIPESYNTAX", - (void *)NULL); + (char *)NULL); goto error; } @@ -1056,7 +1056,7 @@ Tcl_OpenCommandChannel( "can't read output from command:" " standard output was redirected", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", - "BADREDIRECT", (void *)NULL); + "BADREDIRECT", (char *)NULL); goto error; } if ((flags & TCL_STDIN) && (inPipe == NULL)) { @@ -1064,7 +1064,7 @@ Tcl_OpenCommandChannel( "can't write input to command:" " standard input was redirected", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", - "BADREDIRECT", (void *)NULL); + "BADREDIRECT", (char *)NULL); goto error; } } @@ -1075,7 +1075,7 @@ Tcl_OpenCommandChannel( if (channel == NULL) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "pipe for command could not be created", -1)); - Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", "NOPIPE", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", "NOPIPE", (char *)NULL); goto error; } return channel; |