diff options
author | dgp <dgp@users.sourceforge.net> | 2023-06-02 13:46:50 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2023-06-02 13:46:50 (GMT) |
commit | 73519e9804f39aa421be891947c0dc68203d0e9c (patch) | |
tree | 4d4a1faf3546e9b9c06958586d4c0c9e14a78671 /unix/tclUnixFile.c | |
parent | 2867ac26373a64724686df3d77d9d323343bcc84 (diff) | |
download | tcl-73519e9804f39aa421be891947c0dc68203d0e9c.zip tcl-73519e9804f39aa421be891947c0dc68203d0e9c.tar.gz tcl-73519e9804f39aa421be891947c0dc68203d0e9c.tar.bz2 |
silence compiler warning
Diffstat (limited to 'unix/tclUnixFile.c')
-rw-r--r-- | unix/tclUnixFile.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index b96c1dd..fc3adab 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,8 +139,7 @@ TclpFindExecutable( p++; } } - Tcl_Obj *obj; - TclNewObj(obj); + TclNewObj(obj); TclSetObjNameOfExecutable(obj, NULL); goto done; @@ -163,7 +163,6 @@ TclpFindExecutable( } if (TclpGetCwd(NULL, &cwd) == NULL) { - Tcl_Obj *obj; TclNewObj(obj); TclSetObjNameOfExecutable(obj, NULL); goto done; |