diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-12 22:45:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-12 22:45:30 (GMT) |
| commit | 2e58eced0d47543779be15e4c9bcdd80b4cc4055 (patch) | |
| tree | 4b5b7e3154f9bddf8b0192b791ee9c6444624948 /unix/tclUnixFile.c | |
| parent | fc3837a30a391bbab01d37b92e2d77b88274e1e2 (diff) | |
| parent | d07e50e54a59bd0355c5fa01c44ef95b1677835c (diff) | |
| download | tcl-2e58eced0d47543779be15e4c9bcdd80b4cc4055.zip tcl-2e58eced0d47543779be15e4c9bcdd80b4cc4055.tar.gz tcl-2e58eced0d47543779be15e4c9bcdd80b4cc4055.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 41985ab..8606960 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -63,6 +63,7 @@ TclpFindExecutable( const char *name, *p; Tcl_StatBuf statBuf; Tcl_DString buffer, nameString, cwd, utfName; + Tcl_Obj *obj; if (argv0 == NULL) { return; @@ -138,7 +139,8 @@ TclpFindExecutable( p++; } } - TclSetObjNameOfExecutable(Tcl_NewObj(), NULL); + TclNewObj(obj); + TclSetObjNameOfExecutable(obj, NULL); goto done; /* @@ -161,7 +163,8 @@ TclpFindExecutable( } if (TclpGetCwd(NULL, &cwd) == NULL) { - TclSetObjNameOfExecutable(Tcl_NewObj(), NULL); + TclNewObj(obj); + TclSetObjNameOfExecutable(obj, NULL); goto done; } |