summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
authorkennykb <kennykb@noemail.net>2007-04-20 06:10:55 (GMT)
committerkennykb <kennykb@noemail.net>2007-04-20 06:10:55 (GMT)
commita1162009514cbf06ae4518ff6561cca654eb8cc9 (patch)
tree103cdcd515ae38406063be74a3bb942be25c9ebd /unix
parentc22a629d769c281bd084ababea123dc858705794 (diff)
downloadtcl-a1162009514cbf06ae4518ff6561cca654eb8cc9.zip
tcl-a1162009514cbf06ae4518ff6561cca654eb8cc9.tar.gz
tcl-a1162009514cbf06ae4518ff6561cca654eb8cc9.tar.bz2
Replaced commas in varargs with string concatenation where possible [Patch 1515234]
FossilOrigin-Name: d0d3c30f1a60ecb75cdca7e63593bb7d7a98f017
Diffstat (limited to 'unix')
-rw-r--r--unix/tclUnixChan.c8
-rw-r--r--unix/tclUnixTest.c4
2 files changed, 6 insertions, 6 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index 12ddaad..904a991 100644
--- a/unix/tclUnixChan.c
+++ b/unix/tclUnixChan.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixChan.c,v 1.76 2007/02/20 23:24:07 nijtmans Exp $
+ * RCS: @(#) $Id: tclUnixChan.c,v 1.77 2007/04/20 06:11:00 kennykb Exp $
*/
#include "tclInt.h" /* Internal definitions for Tcl. */
@@ -947,7 +947,7 @@ TtySetOptionProc(
return TCL_ERROR;
} else {
if (interp) {
- Tcl_AppendResult(interp, "bad value for -handshake: ",
+ Tcl_AppendResult(interp, "bad value for -handshake: "
"must be one of xonxoff, rtscts, dtrdsr or none",
NULL);
}
@@ -1012,7 +1012,7 @@ TtySetOptionProc(
if ((argc % 2) == 1) {
if (interp) {
Tcl_AppendResult(interp,
- "bad value for -ttycontrol: should be a list of",
+ "bad value for -ttycontrol: should be a list of"
"signal,value pairs", NULL);
}
ckfree((char *) argv);
@@ -1060,7 +1060,7 @@ TtySetOptionProc(
} else {
if (interp) {
Tcl_AppendResult(interp, "bad signal \"", argv[i],
- "\" for -ttycontrol: must be ",
+ "\" for -ttycontrol: must be "
"DTR, RTS or BREAK", NULL);
}
ckfree((char *) argv);
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c
index acfa5fc..a894d4d 100644
--- a/unix/tclUnixTest.c
+++ b/unix/tclUnixTest.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixTest.c,v 1.25 2007/04/17 14:49:53 dkf Exp $
+ * RCS: @(#) $Id: tclUnixTest.c,v 1.26 2007/04/20 06:11:00 kennykb Exp $
*/
#include "tclInt.h"
@@ -324,7 +324,7 @@ TestfilehandlerCmd(
Tcl_DoOneEvent(TCL_WINDOW_EVENTS|TCL_DONT_WAIT);
} else {
Tcl_AppendResult(interp, "bad option \"", argv[1],
- "\": must be close, clear, counts, create, empty, fill, ",
+ "\": must be close, clear, counts, create, empty, fill, "
"fillpartial, oneevent, wait, or windowevent", NULL);
return TCL_ERROR;
}