Index: generic/nsf.c =================================================================== diff -u -r90b08e1f50b31cf2637d9ea96e2a859a828e64f9 -r96f4410aa6510a664938b6ef6e5d43c3a3a18d68 --- generic/nsf.c (.../nsf.c) (revision 90b08e1f50b31cf2637d9ea96e2a859a828e64f9) +++ generic/nsf.c (.../nsf.c) (revision 96f4410aa6510a664938b6ef6e5d43c3a3a18d68) @@ -16936,6 +16936,9 @@ fprintf(stderr, "ProcessMethodArguments before ArgumentParse %s (flags %.6x objc %d): ", ObjStr(methodNameObj), processFlags, objc); for(i = 0; i < objc; i++) {fprintf(stderr, " [%d]=%s,", i, ObjStr(objv[i]));} fprintf(stderr, "\n"); + + Tcl_Obj *listObj = ParamDefsList(interp, paramDefs->paramsPtr, NULL, NULL); + fprintf(stderr, "... got params <%s>\n", ObjStr(listObj)); } #endif @@ -16956,10 +16959,11 @@ } for (i = fromArg; i < toArg; i++) { fprintf(stderr, "... pcPtr %p [%d] obj %p refCount %d (%s) flags %.6x & %p\n", - pcPtr, i, - pcPtr->objv[i] ? pcPtr->objv[i] : NULL, + (void*)pcPtr, i, + pcPtr->objv[i] ? (void*)pcPtr->objv[i] : NULL, pcPtr->objv[i] ? pcPtr->objv[i]->refCount : -1, - pcPtr->objv[i] ? ObjStr(pcPtr->objv[i]) : "(null)", pcPtr->flags[i], &(pcPtr->flags[i])); + pcPtr->objv[i] ? ObjStr(pcPtr->objv[i]) : "(null)", pcPtr->flags[i], + (void*)&(pcPtr->flags[i])); } } } @@ -27761,8 +27765,8 @@ if (likely(result == TCL_OK)) { Tcl_Obj *rawConfArgs = Tcl_GetObjResult(interp); - /*fprintf(stderr, ".... rawConfArgs for %s => '%s'\n", - ObjectName(self), ObjStr(rawConfArgs));*/ + /* fprintf(stderr, ".... rawConfArgs for %s => '%s'\n", + ObjectName(self), ObjStr(rawConfArgs));*/ INCR_REF_COUNT(rawConfArgs); /* @@ -27865,7 +27869,7 @@ NsfParsedParam *objParsedParamPtr = object->opt->parsedParamPtr; /*fprintf(stderr, "reuse obj param for obj %p %s paramPtr %p\n", - object, ObjectName(object), objParsedParamPtr);*/ + (void *)object, ObjectName(object), (void *)objParsedParamPtr);*/ parsedParamPtr->paramDefs = objParsedParamPtr->paramDefs; parsedParamPtr->possibleUnknowns = objParsedParamPtr->possibleUnknowns; result = TCL_OK; @@ -28140,6 +28144,14 @@ /* Process the actual arguments based on the parameter definitions */ paramDefs = parsedParam.paramDefs; ParamDefsRefCountIncr(paramDefs); + +#if 0 + if (parsedParam.paramDefs != NULL) { + Tcl_Obj *listObj = ParamDefsList(interp, paramDefs->paramsPtr, NULL, NULL); + fprintf(stderr, "... got params <%s>\n", ObjStr(listObj)); + } +#endif + result = ProcessMethodArguments(&pc, interp, object, NSF_ARGPARSE_START_ZERO, paramDefs, NsfGlobalObjs[NSF_CONFIGURE], objc, objv); Index: generic/nsfAPI.nxdocindex =================================================================== diff -u -r546f8ddb033b81b5a4f9836d4f5541c9f68ac306 -r96f4410aa6510a664938b6ef6e5d43c3a3a18d68 --- generic/nsfAPI.nxdocindex (.../nsfAPI.nxdocindex) (revision 546f8ddb033b81b5a4f9836d4f5541c9f68ac306) +++ generic/nsfAPI.nxdocindex (.../nsfAPI.nxdocindex) (revision 96f4410aa6510a664938b6ef6e5d43c3a3a18d68) @@ -4,7 +4,6 @@ set ::nxdoc::include(::nsf::__db_show_obj) 0 set ::nxdoc::include(::nsf::__profile_clear) 0 set ::nxdoc::include(::nsf::__profile_get) 0 -set ::nxdoc::include(::nsf::__profile_get) 0 set ::nxdoc::include(::nsf::__profile_trace) 0 set ::nxdoc::include(::nsf::__unset_unknown_args) 0 set ::nxdoc::include(::nsf::asm::proc) 0 Index: generic/predefined.h =================================================================== diff -u -r2771c4c7e0b56fe2a6cde84fdae9b170ff652928 -r96f4410aa6510a664938b6ef6e5d43c3a3a18d68 --- generic/predefined.h (.../predefined.h) (revision 2771c4c7e0b56fe2a6cde84fdae9b170ff652928) +++ generic/predefined.h (.../predefined.h) (revision 96f4410aa6510a664938b6ef6e5d43c3a3a18d68) @@ -31,7 +31,7 @@ "uplevel [list ::nsf::relation::set $object $rel \"\"]}}\n" "::nsf::method::provide autoname {::nsf::method::alias autoname ::nsf::methods::object::autoname}\n" "::nsf::method::provide exists {::nsf::method::alias exists ::nsf::methods::object::exists}\n" -"::nsf::method::provide volatile {::nsf::method::alias volatile ::nsf::methods::object::volatile}\n" +"::nsf::method::provide volatile {::nsf::method::alias volatile ::nsf::methods::object::volatile}\n" "proc ::nsf::object::unknown {name} {\n" "foreach {key handler} [array get ::nsf::object::unknown] {\n" "set result [uplevel [list {*}$handler $name]]\n"