diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-07-07 08:21:24 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-07-07 08:21:24 (GMT) |
| commit | 579f1a9429aeca6743a62756d12968c23190c0e0 (patch) | |
| tree | 3be7fb9e2d062b298c19c87a701143643d6d2a63 | |
| parent | 20d4b34f6477d15f854d40540e12bb756e48d90e (diff) | |
| download | tcl-579f1a9429aeca6743a62756d12968c23190c0e0.zip tcl-579f1a9429aeca6743a62756d12968c23190c0e0.tar.gz tcl-579f1a9429aeca6743a62756d12968c23190c0e0.tar.bz2 | |
Add missing objTypes to catalog
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclInt.h | 4 | ||||
| -rw-r--r-- | generic/tclObj.c | 4 |
3 files changed, 11 insertions, 2 deletions
@@ -1,3 +1,8 @@ +2004-07-07 Donal K. Fellows <donal.k.fellows@man.ac.uk> + + * generic/tclObj.c (TclInitObjSubsystem): Declare all current + object types. + 2004-07-06 Don Porter <dgp@users.sourceforge.net> * tests/cmdMZ.test (cmdMZ-return-2.17): Added a test that a word diff --git a/generic/tclInt.h b/generic/tclInt.h index f7d2026..1526c60 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -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: tclInt.h,v 1.167 2004/06/23 00:24:42 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.168 2004/07/07 08:21:26 dkf Exp $ */ #ifndef _TCLINT @@ -1666,6 +1666,8 @@ extern Tcl_ObjType tclIndexType; extern Tcl_ObjType tclNsNameType; extern Tcl_ObjType tclEnsembleCmdType; extern Tcl_ObjType tclWideIntType; +extern Tcl_ObjType tclLocalVarNameType; +extern Tcl_ObjType tclRegexpType; /* * Variables denoting the hash key types defined in the core. diff --git a/generic/tclObj.c b/generic/tclObj.c index ec3eeb5..c5d3c7c 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -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: tclObj.c,v 1.62 2004/06/18 15:12:39 dkf Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.63 2004/07/07 08:21:26 dkf Exp $ */ #include "tclInt.h" @@ -287,6 +287,8 @@ TclInitObjSubsystem() Tcl_RegisterObjType(&tclNsNameType); Tcl_RegisterObjType(&tclEnsembleCmdType); Tcl_RegisterObjType(&tclCmdNameType); + Tcl_RegisterObjType(&tclLocalVarNameType); + Tcl_RegisterObjType(&tclRegexpType); #ifdef TCL_COMPILE_STATS Tcl_MutexLock(&tclObjMutex); |