diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-01-25 21:36:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-01-25 21:36:09 (GMT) |
| commit | fd92b8826ad83d09e08d67e70a6deae1deb9a06f (patch) | |
| tree | 54697caaa61e187b7d32cb6fb844d0d2671da6c9 /generic/tclVar.c | |
| parent | 7bb89f954aeb2e32b07d01513217ab6930f80ccf (diff) | |
| download | tcl-fd92b8826ad83d09e08d67e70a6deae1deb9a06f.zip tcl-fd92b8826ad83d09e08d67e70a6deae1deb9a06f.tar.gz tcl-fd92b8826ad83d09e08d67e70a6deae1deb9a06f.tar.bz2 | |
* [Patch 505630] Updated interfaces of generic/tclBasic.cc (TIP 27).
* [Patch 506818] Updated interfaces of generic/tclHash.c (TIP 27).
* [Patch 506807] Updated interfaces of generic/tclObj.c (TIP 27).
* [Patch 507304] Updated interfaces of win/tclWin32.c (TIP 27).
* Update all callers.
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index f632780..a827dea 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclVar.c,v 1.46 2002/01/25 20:40:56 dgp Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.47 2002/01/25 21:36:09 dgp Exp $ */ #include "tclInt.h" @@ -3579,7 +3579,7 @@ Tcl_ArrayObjCmd(dummy, interp, objc, objv) } case ARRAY_STATISTICS: { - char *stats; + CONST char *stats; if (notArray) { goto error; @@ -3587,7 +3587,7 @@ Tcl_ArrayObjCmd(dummy, interp, objc, objv) stats = Tcl_HashStats(varPtr->value.tablePtr); if (stats != NULL) { - Tcl_SetResult(interp, stats, TCL_VOLATILE); + Tcl_SetStringObj(Tcl_GetObjResult(interp), stats, -1); ckfree((void *)stats); } else { Tcl_SetResult(interp, "error reading array statistics", |