summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog8
-rw-r--r--generic/tclListObj.c4
-rw-r--r--generic/tclObj.c3
3 files changed, 12 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index b1b9c12..4f102e0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2005-11-18 Don Porter <dgp@users.sourceforge.net>
+
+ * 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.
+
2005-11-18 Donal K. Fellows <donal.k.fellows@manchester.ac.uk>
* library/http/http.tcl (http::geturl): Improved syntactic validation
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);