diff options
| author | dgp <dgp@noemail.net> | 2002-01-25 21:36:08 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2002-01-25 21:36:08 (GMT) |
| commit | 222ad06ccbcc936b9c7251f2b0cfa2f2c65daf3d (patch) | |
| tree | 54697caaa61e187b7d32cb6fb844d0d2671da6c9 /generic/tclVar.c | |
| parent | 153a2262c8103be50550bcebaa3e905212e69f76 (diff) | |
| download | tcl-222ad06ccbcc936b9c7251f2b0cfa2f2c65daf3d.zip tcl-222ad06ccbcc936b9c7251f2b0cfa2f2c65daf3d.tar.gz tcl-222ad06ccbcc936b9c7251f2b0cfa2f2c65daf3d.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.
FossilOrigin-Name: 375ac8d641fa53159537f27eb1f836c043495c3b
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", |