diff options
| author | nijtmans <nijtmans> | 2008-12-16 23:24:13 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-12-16 23:24:13 (GMT) |
| commit | 1d90238ed304fdd70f1a56dfc4f94a7add80c736 (patch) | |
| tree | 692c37174e83ec64e5f20f728d49cea200dae3f3 /win/tclWinFCmd.c | |
| parent | 74318119b04effffec948581aa1004b23fdd6c3b (diff) | |
| download | tcl-1d90238ed304fdd70f1a56dfc4f94a7add80c736.zip tcl-1d90238ed304fdd70f1a56dfc4f94a7add80c736.tar.gz tcl-1d90238ed304fdd70f1a56dfc4f94a7add80c736.tar.bz2 | |
eliminate -Wwrite-strings warnings in enable-threads build.
use TclNewLiteralStringObj()
Diffstat (limited to 'win/tclWinFCmd.c')
| -rw-r--r-- | win/tclWinFCmd.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index 93ea1bc..c0de916 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinFCmd.c,v 1.55 2008/10/26 18:43:26 dkf Exp $ + * RCS: @(#) $Id: tclWinFCmd.c,v 1.56 2008/12/16 23:24:13 nijtmans Exp $ */ #include "tclWinInt.h" @@ -1806,7 +1806,7 @@ ConvertFileNameFormat( */ if (Tcl_DStringValue(&dsTemp)[0] == '~') { - tempPath = Tcl_NewStringObj("./",2); + TclNewLiteralStringObj(tempPath, "./"); Tcl_AppendToObj(tempPath, Tcl_DStringValue(&dsTemp), Tcl_DStringLength(&dsTemp)); } else { |