summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-08-17 15:23:49 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-08-17 15:23:49 (GMT)
commit1c058969f08127a16e91339f83fc824493ac28cb (patch)
tree2a6eb020aa974d90a04c4220556ea8c3959bb93c /generic
parent538b31bdc34b5021d70dfbe2a2787a1293f225a8 (diff)
downloadtcl-1c058969f08127a16e91339f83fc824493ac28cb.zip
tcl-1c058969f08127a16e91339f83fc824493ac28cb.tar.gz
tcl-1c058969f08127a16e91339f83fc824493ac28cb.tar.bz2
[7d52e1101b] oo::object should know that oo::class is a subclass.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclOO.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c
index 02e00c9..ace47fe 100644
--- a/generic/tclOO.c
+++ b/generic/tclOO.c
@@ -394,6 +394,7 @@ InitFoundation(
fPtr->classCls->flags |= ROOT_CLASS;
TclOOAddToInstances(fPtr->objectCls->thisPtr, fPtr->classCls);
TclOOAddToInstances(fPtr->classCls->thisPtr, fPtr->classCls);
+ TclOOAddToSubclasses(fPtr->classCls, fPtr->objectCls);
AddRef(fPtr->objectCls->thisPtr);
AddRef(fPtr->objectCls);