diff options
| author | hobbs <hobbs> | 2000-05-26 08:51:44 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-05-26 08:51:44 (GMT) |
| commit | 72217c070e0958b9982d859aa9bad1248fb95f20 (patch) | |
| tree | 0a21675c34ab5430f4c907a72ae464e0846bac80 /generic/tclInt.h | |
| parent | eb8c96f7b284ef2edd736fb55e5ff1ea399c631a (diff) | |
| download | tcl-72217c070e0958b9982d859aa9bad1248fb95f20.zip tcl-72217c070e0958b9982d859aa9bad1248fb95f20.tar.gz tcl-72217c070e0958b9982d859aa9bad1248fb95f20.tar.bz2 | |
* generic/tclInt.h:
* generic/tclObj.c (Tcl_DbIsShared): added support for checking
result of Tcl_IsShared in evalstats (TCL_COMPILE_STATS).
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 0c26e19..5edf6f1 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.44 2000/05/23 22:10:52 ericm Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.45 2000/05/26 08:51:44 hobbs Exp $ */ #ifndef _TCLINT @@ -1549,6 +1549,8 @@ extern Tcl_Obj * tclFreeObjList; #ifdef TCL_COMPILE_STATS extern long tclObjsAlloced; extern long tclObjsFreed; +#define TCL_MAX_SHARED_OBJ_STATS 5 +extern long tclObjsShared[TCL_MAX_SHARED_OBJ_STATS]; #endif /* TCL_COMPILE_STATS */ /* |