diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-21 13:55:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-21 13:55:11 (GMT) |
| commit | 0d615819b7678c25b7da29c7218b56f8ce8052d7 (patch) | |
| tree | 5c51da27a8473c687ab32cca8029ca2dc98d3af7 /unix/tclUnixTest.c | |
| parent | 2ffbe54c20f058377c1a6ebb30f783ec148c6dfe (diff) | |
| parent | 4d34ce202b3c9139e9046f447fa2b5d4dc87b72c (diff) | |
| download | tcl-0d615819b7678c25b7da29c7218b56f8ce8052d7.zip tcl-0d615819b7678c25b7da29c7218b56f8ce8052d7.tar.gz tcl-0d615819b7678c25b7da29c7218b56f8ce8052d7.tar.bz2 | |
Merge 8.7. Tcl_GetStringFromObj() -> TclGetStringFromObj() (optimization)
Diffstat (limited to 'unix/tclUnixTest.c')
| -rw-r--r-- | unix/tclUnixTest.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c index 7fe62f7..b204c77 100644 --- a/unix/tclUnixTest.c +++ b/unix/tclUnixTest.c @@ -104,7 +104,7 @@ TclplatformtestInit( Tcl_CreateObjCommand(interp, "testfindexecutable", TestfindexecutableCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "testfork", TestforkCmd, - NULL, NULL); + NULL, NULL); Tcl_CreateObjCommand(interp, "testalarm", TestalarmCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "testgotsig", TestgotsigCmd, @@ -156,7 +156,7 @@ TestfilehandlerCmd( if (objc < 2) { Tcl_WrongNumArgs(interp, 1, objv, "option ..."); - return TCL_ERROR; + return TCL_ERROR; } pipePtr = NULL; if (objc >= 3) { @@ -247,9 +247,9 @@ TestfilehandlerCmd( return TCL_ERROR; } - while (read(GetFd(pipePtr->readFile), buffer, 4000) > 0) { + while (read(GetFd(pipePtr->readFile), buffer, 4000) > 0) { /* Empty loop body. */ - } + } } else if (strcmp(Tcl_GetString(objv[1]), "fill") == 0) { if (objc != 3) { Tcl_WrongNumArgs(interp, 2, objv, "index"); @@ -463,14 +463,14 @@ TestforkCmd( pid_t pid; if (objc != 1) { - Tcl_WrongNumArgs(interp, 1, objv, ""); - return TCL_ERROR; + Tcl_WrongNumArgs(interp, 1, objv, ""); + return TCL_ERROR; } pid = fork(); if (pid == -1) { - Tcl_AppendResult(interp, - "Cannot fork", (char *)NULL); - return TCL_ERROR; + Tcl_AppendResult(interp, + "Cannot fork", (char *)NULL); + return TCL_ERROR; } /* Only needed when pthread_atfork is not present, * should not hurt otherwise. */ |