summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-11-18 15:58:18 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-11-18 15:58:18 (GMT)
commita8c8af2d7203f31a4c526483f57e1674db35d1e8 (patch)
tree187cd9e02b8e923a0b7f39c75104388a0a909376 /generic
parent4d8ccb4db88d7ce2ba04cdf1425f5373177a132f (diff)
downloadtcl-a8c8af2d7203f31a4c526483f57e1674db35d1e8.zip
tcl-a8c8af2d7203f31a4c526483f57e1674db35d1e8.tar.gz
tcl-a8c8af2d7203f31a4c526483f57e1674db35d1e8.tar.bz2
* generic/tclListObj.c: Restored the SetListFromAny routine to
* generic/tclObj.c: the "list" Tcl_ObjType, and restored the Tcl_RegisterObjType() call for "list". This addresses the needs of some "bridge" extensions to examine whether the Tcl_ObjType of a Tcl_Obj is that of the "list" Tcl_ObjType.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclListObj.c4
-rw-r--r--generic/tclObj.c3
2 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index 6ff5940..e750809 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclListObj.c,v 1.29 2005/11/11 23:46:34 dkf Exp $
+ * RCS: @(#) $Id: tclListObj.c,v 1.30 2005/11/18 15:58:18 dgp Exp $
*/
#include "tclInt.h"
@@ -43,7 +43,7 @@ Tcl_ObjType tclListType = {
FreeListInternalRep, /* freeIntRepProc */
DupListInternalRep, /* dupIntRepProc */
UpdateStringOfList, /* updateStringProc */
- NULL /* setFromAnyProc */
+ SetListFromAny /* setFromAnyProc */
};
/*
diff --git a/generic/tclObj.c b/generic/tclObj.c
index e82d2dc..e57681f 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.99 2005/11/13 01:21:39 msofer Exp $
+ * RCS: @(#) $Id: tclObj.c,v 1.100 2005/11/18 15:58:18 dgp Exp $
*/
#include "tclInt.h"
@@ -352,6 +352,7 @@ TclInitObjSubsystem(void)
Tcl_RegisterObjType(&tclEndOffsetType);
Tcl_RegisterObjType(&tclIntType);
Tcl_RegisterObjType(&tclStringType);
+ Tcl_RegisterObjType(&tclListType);
Tcl_RegisterObjType(&tclDictType);
Tcl_RegisterObjType(&tclByteCodeType);
Tcl_RegisterObjType(&tclArraySearchType);