diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-25 12:58:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-25 12:58:20 (GMT) |
| commit | ff878198efcc37e57031dcf223c086e00471f852 (patch) | |
| tree | 2f8828416d8432593252efda2b82a1dca54b7c79 /unix/tclUnixTest.c | |
| parent | 84707cf7026c7f710ca6ffd4d7a1e7bde4f9ca51 (diff) | |
| parent | 6ec16f5f96257f9a6ac5d507f8f19258c7ceaa28 (diff) | |
| download | tcl-ff878198efcc37e57031dcf223c086e00471f852.zip tcl-ff878198efcc37e57031dcf223c086e00471f852.tar.gz tcl-ff878198efcc37e57031dcf223c086e00471f852.tar.bz2 | |
merge trunk
Add -Wwrite-strings to compiler options, so we can guarantee correct "const" usage.
Diffstat (limited to 'unix/tclUnixTest.c')
| -rw-r--r-- | unix/tclUnixTest.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c index 35445d2..fcfe18e 100644 --- a/unix/tclUnixTest.c +++ b/unix/tclUnixTest.c @@ -200,7 +200,7 @@ TestfilehandlerCmd( return TCL_ERROR; } sprintf(buf, "%d %d", pipePtr->readCount, pipePtr->writeCount); - Tcl_SetResult(interp, buf, TCL_VOLATILE); + Tcl_AppendResult(interp, buf, NULL); } else if (strcmp(argv[1], "create") == 0) { if (argc != 5) { Tcl_AppendResult(interp, "wrong # arguments: should be \"", @@ -217,8 +217,8 @@ TestfilehandlerCmd( fcntl(GetFd(pipePtr->readFile), F_SETFL, O_NONBLOCK); fcntl(GetFd(pipePtr->writeFile), F_SETFL, O_NONBLOCK); #else - Tcl_SetResult(interp, "can't make pipes non-blocking", - TCL_STATIC); + Tcl_AppendResult(interp, "can't make pipes non-blocking", + NULL); return TCL_ERROR; #endif } @@ -281,7 +281,7 @@ TestfilehandlerCmd( memset(buffer, 'b', 10); TclFormatInt(buf, write(GetFd(pipePtr->writeFile), buffer, 10)); - Tcl_SetResult(interp, buf, TCL_VOLATILE); + Tcl_AppendResult(interp, buf, NULL); } else if (strcmp(argv[1], "oneevent") == 0) { Tcl_DoOneEvent(TCL_FILE_EVENTS|TCL_DONT_WAIT); } else if (strcmp(argv[1], "wait") == 0) { @@ -390,7 +390,7 @@ TestfilewaitCmd( if (Tcl_GetChannelHandle(channel, (mask & TCL_READABLE) ? TCL_READABLE : TCL_WRITABLE, (ClientData*) &data) != TCL_OK) { - Tcl_SetResult(interp, "couldn't get channel file", TCL_STATIC); + Tcl_AppendResult(interp, "couldn't get channel file", NULL); return TCL_ERROR; } fd = PTR2INT(data); |