Index: TODO =================================================================== diff -u -rf0d274241d978847f40deb439e17172d7d8716d9 -rc15b56a1490c74cfca4ffd2bf54034526dcf8ef2 --- TODO (.../TODO) (revision f0d274241d978847f40deb439e17172d7d8716d9) +++ TODO (.../TODO) (revision c15b56a1490c74cfca4ffd2bf54034526dcf8ef2) @@ -2460,12 +2460,14 @@ "protected", as well as for "class-object" - extended regression test -TODO: +- serializer: catch for object-level alias apparently + not needed anymore (search for ns_cache_flush) +- silence compilation when compiled without dtrace -- serializer: check, why catch is needed for object-level alias - (search for ns_cache_flush) +TODO: + - document value added replacements of Tcl functions - object parameter type forward: Index: generic/nsf.c =================================================================== diff -u -r65f8883a4596ea98365b7de1652700e3ac7394cc -rc15b56a1490c74cfca4ffd2bf54034526dcf8ef2 --- generic/nsf.c (.../nsf.c) (revision 65f8883a4596ea98365b7de1652700e3ac7394cc) +++ generic/nsf.c (.../nsf.c) (revision c15b56a1490c74cfca4ffd2bf54034526dcf8ef2) @@ -14772,13 +14772,15 @@ NsfConfigureCmd(Tcl_Interp *interp, int configureoption, Tcl_Obj *valueObj) { int bool; +#if defined(NSF_DTRACE) if (NSF_DTRACE_CONFIGURE_PROBE_ENABLED()) { /* TODO: opts copied from tclAPI.h; maybe make global value? */ static CONST char *opts[] = { "debug", "dtrace", "filter", "profile", "softrecreate", "objectsystems", "keepinitcmd", "checkresults", "checkarguments", NULL}; NSF_DTRACE_CONFIGURE_PROBE((char *)opts[configureoption-1], valueObj ? ObjStr(valueObj) : NULL); } +#endif if (configureoption == ConfigureoptionObjectsystemsIdx) { NsfObjectSystem *osPtr; Index: library/serialize/serializer.tcl =================================================================== diff -u -r65f8883a4596ea98365b7de1652700e3ac7394cc -rc15b56a1490c74cfca4ffd2bf54034526dcf8ef2 --- library/serialize/serializer.tcl (.../serializer.tcl) (revision 65f8883a4596ea98365b7de1652700e3ac7394cc) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision c15b56a1490c74cfca4ffd2bf54034526dcf8ef2) @@ -671,7 +671,11 @@ # TODO look into the code, why we need the catch here. I found # the problem with an object level alias for ns_cache_flush set source "" - catch {set source [$x ::nsf::methods::class::info::method definition [lindex $definition end]]} + set source [$x ::nsf::methods::class::info::method definition [lindex $definition end]] +# if { +# [catch {set source [$x ::nsf::methods::class::info::method definition [lindex $definition end]]} errorMsg] } { +# puts stderr "+++++ serializer: could not get definition of '[lindex $definition end]': $errorMsg" +# } if {$source ne ""} { set obj [lindex $source 0] if {$obj eq $x} {