diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-10-12 15:20:42 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-10-12 15:20:42 (GMT) |
| commit | e7582d10c6c53ea496551d815b3fb83bf984fd02 (patch) | |
| tree | b05139379a3ec0d70603ba676950621aa6aa2e5d | |
| parent | 5064777d1680c3ee168b4f474ba7d06d24458184 (diff) | |
| download | tcl-e7582d10c6c53ea496551d815b3fb83bf984fd02.zip tcl-e7582d10c6c53ea496551d815b3fb83bf984fd02.tar.gz tcl-e7582d10c6c53ea496551d815b3fb83bf984fd02.tar.bz2 | |
Eliminate variable which is only used once. And a minor end-of-line space reduction. No functional change.
| -rw-r--r-- | win/tclWinFCmd.c | 4 | ||||
| -rw-r--r-- | win/tclWinLoad.c | 2 |
2 files changed, 2 insertions, 4 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index 01af950..319ecf9 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.c @@ -1611,13 +1611,11 @@ ConvertFileNameFormat( for (i = 0; i < pathc; i++) { Tcl_Obj *elt; char *pathv; - size_t pathLen; Tcl_ListObjIndex(NULL, splitPath, i, &elt); pathv = TclGetString(elt); - pathLen = elt->length; - if ((pathv[0] == '/') || ((pathLen == 3) && (pathv[1] == ':')) + if ((pathv[0] == '/') || ((elt->length == 3) && (pathv[1] == ':')) || (strcmp(pathv, ".") == 0) || (strcmp(pathv, "..") == 0)) { /* * Handle "/", "//machine/export", "c:/", "." or ".." by just diff --git a/win/tclWinLoad.c b/win/tclWinLoad.c index 3ad6328..27eb8f3 100644 --- a/win/tclWinLoad.c +++ b/win/tclWinLoad.c @@ -85,7 +85,7 @@ TclpDlopen( Tcl_DString ds; - /* + /* * Remember the first error on load attempt to be used if the * second load attempt below also fails. */ |