summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-05-17 21:28:59 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-05-17 21:28:59 (GMT)
commit51a0c200366a96df5068e05042f8a70c7243423f (patch)
treee62cc6e2e3528990434f7a5a5a7009a8caed78ec /generic
parent53781d7b887dd8f12daf4bdb95edace085a7db77 (diff)
downloadtcl-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')
-rw-r--r--generic/tclObj.c8
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);