diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-02-14 20:05:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-02-14 20:05:11 (GMT) |
| commit | a475e0b1ee3d2716a524c722064a7e3e404d3e38 (patch) | |
| tree | 41d255a37c3dbe955fb413564812575b6bdd4c13 /unix/tclUnixTest.c | |
| parent | cc6faa155b3ac525cab5b017159361b62c4a9c6a (diff) | |
| parent | 5fd6fc8ae4d88e17f66c93e521c89fba72b77fd4 (diff) | |
| download | tcl-a475e0b1ee3d2716a524c722064a7e3e404d3e38.zip tcl-a475e0b1ee3d2716a524c722064a7e3e404d3e38.tar.gz tcl-a475e0b1ee3d2716a524c722064a7e3e404d3e38.tar.bz2 | |
merge 8.7
Diffstat (limited to 'unix/tclUnixTest.c')
| -rw-r--r-- | unix/tclUnixTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c index ceb64d9..e59a0e3 100644 --- a/unix/tclUnixTest.c +++ b/unix/tclUnixTest.c @@ -570,7 +570,7 @@ TestforkObjCmd( if (pid==0) { Tcl_InitNotifier(); } - Tcl_SetObjResult(interp, Tcl_NewIntObj(pid)); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj(pid)); return TCL_OK; } @@ -761,7 +761,7 @@ TestchmodCmd( if (translated == NULL) { return TCL_ERROR; } - if (chmod(translated, (unsigned) mode) != 0) { + if (chmod(translated, mode) != 0) { Tcl_AppendResult(interp, translated, ": ", Tcl_PosixError(interp), NULL); return TCL_ERROR; |