diff options
author | nijtmans <nijtmans@noemail.net> | 2008-10-28 23:29:54 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2008-10-28 23:29:54 (GMT) |
commit | fa358a85d63203d7e896cdc26132983373a9264f (patch) | |
tree | 153430fe71b4849249604a88201de3691f0073f3 /generic/tclEnv.c | |
parent | 44ac9a9751be3694b49d86a854906e0478c8428e (diff) | |
download | tcl-fa358a85d63203d7e896cdc26132983373a9264f.zip tcl-fa358a85d63203d7e896cdc26132983373a9264f.tar.gz tcl-fa358a85d63203d7e896cdc26132983373a9264f.tar.bz2 |
CONSTify TclDTraceInfo
Eliminate some -Wstrings-write warnings
FossilOrigin-Name: f5c4b2c4b3c8439f4c332039b7a16441eda4fc06
Diffstat (limited to 'generic/tclEnv.c')
-rw-r--r-- | generic/tclEnv.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 49238a2..3a7a3c8 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEnv.c,v 1.37 2007/12/13 15:23:16 dgp Exp $ + * RCS: @(#) $Id: tclEnv.c,v 1.38 2008/10/28 23:29:54 nijtmans Exp $ */ #include "tclInt.h" @@ -562,7 +562,7 @@ EnvTraceProc( const char *value = TclGetEnv(name2, &valueString); if (value == NULL) { - return "no such variable"; + return (char *) "no such variable"; } Tcl_SetVar2(interp, name1, name2, value, 0); Tcl_DStringFree(&valueString); |