diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2007-04-20 06:10:56 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2007-04-20 06:10:56 (GMT) |
| commit | 2e1d6b21db75a43a44e02272dce97955e9aecde1 (patch) | |
| tree | 103cdcd515ae38406063be74a3bb942be25c9ebd /unix | |
| parent | 19d1741894fc2c56ad61073c9004a90afabf2e56 (diff) | |
| download | tcl-2e1d6b21db75a43a44e02272dce97955e9aecde1.zip tcl-2e1d6b21db75a43a44e02272dce97955e9aecde1.tar.gz tcl-2e1d6b21db75a43a44e02272dce97955e9aecde1.tar.bz2 | |
Replaced commas in varargs with string concatenation where possible [Patch 1515234]
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclUnixChan.c | 8 | ||||
| -rw-r--r-- | unix/tclUnixTest.c | 4 |
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; } |