diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-05-17 21:28:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-05-17 21:28:59 (GMT) |
| commit | 51a0c200366a96df5068e05042f8a70c7243423f (patch) | |
| tree | e62cc6e2e3528990434f7a5a5a7009a8caed78ec /generic/tclObj.c | |
| parent | 53781d7b887dd8f12daf4bdb95edace085a7db77 (diff) | |
| download | tcl-51a0c200366a96df5068e05042f8a70c7243423f.zip tcl-51a0c200366a96df5068e05042f8a70c7243423f.tar.gz tcl-51a0c200366a96df5068e05042f8a70c7243423f.tar.bz2 | |
* generic/tclObj.c (TclInitObjSubsystem): Removed the
* tests/listObj.test: registration of the Tcl_ObjType's "list",
* tests/obj.test: "procbody", "index", "ensembleCommand",
"localVarName", and "levelReference". The only reason to register
a Tcl_ObjType is to have it returned by Tcl_GetObjType, and the
only reason for that is to retrieve a (Tcl_ObjType *) to pass to
Tcl_ConvertToType(). None of the types above can support a
Tcl_ConvertToType() call; they panic. Better not to offer something
than to lead users into a panic.
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 5f5cfb2..88d31f0 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.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: tclObj.c,v 1.83 2005/05/10 18:34:46 kennykb Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.84 2005/05/17 21:29:17 dgp Exp $ */ #include "tclInt.h" @@ -383,18 +383,12 @@ TclInitObjSubsystem() Tcl_RegisterObjType(&tclWideIntType); Tcl_RegisterObjType( &tclBignumType ); Tcl_RegisterObjType(&tclStringType); - Tcl_RegisterObjType(&tclListType); Tcl_RegisterObjType(&tclDictType); Tcl_RegisterObjType(&tclByteCodeType); - Tcl_RegisterObjType(&tclProcBodyType); Tcl_RegisterObjType(&tclArraySearchType); - Tcl_RegisterObjType(&tclIndexType); Tcl_RegisterObjType(&tclNsNameType); - Tcl_RegisterObjType(&tclEnsembleCmdType); Tcl_RegisterObjType(&tclCmdNameType); - Tcl_RegisterObjType(&tclLocalVarNameType); Tcl_RegisterObjType(&tclRegexpType); - Tcl_RegisterObjType(&tclLevelReferenceType); #ifdef TCL_COMPILE_STATS Tcl_MutexLock(&tclObjMutex); |