diff options
| author | nijtmans <nijtmans> | 2008-10-28 23:29:54 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-10-28 23:29:54 (GMT) |
| commit | e53905d94a0952de627b0d26c1ee06b56bb9b349 (patch) | |
| tree | 153430fe71b4849249604a88201de3691f0073f3 /generic/tclEnv.c | |
| parent | 1a13bcfa51bd2ef9f1fef875680257ac38fc7e85 (diff) | |
| download | tcl-e53905d94a0952de627b0d26c1ee06b56bb9b349.zip tcl-e53905d94a0952de627b0d26c1ee06b56bb9b349.tar.gz tcl-e53905d94a0952de627b0d26c1ee06b56bb9b349.tar.bz2 | |
CONSTify TclDTraceInfo
Eliminate some -Wstrings-write warnings
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); |