From 84bff4d332a394a0f08947e05e535ff4b1b2476c Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 17 Aug 2015 18:01:16 +0000 Subject: Proposed fix for invalid write, found by valgrind. --- generic/tclExecute.c | 1 - 1 file changed, 1 deletion(-) diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 8ada6d2..7f65262 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4186,7 +4186,6 @@ TEBCresume( } else if (flags & TCL_LEAVE_ERR_MSG) { goto slowUnsetArray; } - varPtr->value.objPtr = NULL; TRACE_APPEND(("OK\n")); NEXT_INST_F(6, 1, 0); } else if (!varPtr && !(flags & TCL_LEAVE_ERR_MSG)) { -- cgit v0.12 From ef7dba72f31611408a3994373a4257554c4a0d05 Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 18 Aug 2015 12:47:01 +0000 Subject: [d06b029d9d] next(n) documentation examples correction, from Peter Lewerin. --- doc/next.n | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/doc/next.n b/doc/next.n index 1ea6eb9..62782e5 100644 --- a/doc/next.n +++ b/doc/next.n @@ -122,7 +122,7 @@ oo::class create theSubclass { } } theSubclass create obj -oo::define obj method example args { +oo::objdefine obj method example args { puts "per-object method, args = $args" \fBnext\fR x {*}$args y \fBnext\fR @@ -176,7 +176,7 @@ oo::class create cache { } oo::object create demo -oo::define demo { +oo::objdefine demo { mixin cache method compute {a b c} { after 3000 \fI;# Simulate deep thought\fR -- cgit v0.12 From a87ec8fe08601b86f7d0c60e4b39d5971e4ae49f Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 18 Aug 2015 12:50:08 +0000 Subject: [2c509f6291] Minor documentation correction from Peter Lewerin. --- doc/my.n | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/doc/my.n b/doc/my.n index b91bc9a0..2a9769b 100644 --- a/doc/my.n +++ b/doc/my.n @@ -37,7 +37,7 @@ the \fBoo::object\fR class, which is not publicly visible by default: oo::class create c { method count {} { \fBmy\fR variable counter - print [incr counter] + puts [incr counter] } } c create o -- cgit v0.12 From e98db3a11856540e4e8e222fdb2fb6a0d16e8480 Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 18 Aug 2015 13:27:46 +0000 Subject: [465213d171] Documentation correction for Tcl_NewMethod. --- doc/Method.3 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/doc/Method.3 b/doc/Method.3 index 550b64a..225da00 100644 --- a/doc/Method.3 +++ b/doc/Method.3 @@ -67,7 +67,9 @@ The class to create the method in. The name of the method to create. Should not be NULL unless creating constructors or destructors. .AP int isPublic in -A boolean flag saying whether the method is to be exported. +A flag saying what the visibility of the method is. The only supported public +values of this flag are 0 for a non-exported method, and 1 for an exported +method. .AP Tcl_MethodType *methodTypePtr in A description of the type of the method to create, or the type of method to compare against. -- cgit v0.12