Index: generic/xotcl.c =================================================================== diff -u -r05f4b42f7615ea410b7ac33093f5b8382ce7e8c5 -r48d5751e9aeb6a4f388f6531a9248c1847b22cae --- generic/xotcl.c (.../xotcl.c) (revision 05f4b42f7615ea410b7ac33093f5b8382ce7e8c5) +++ generic/xotcl.c (.../xotcl.c) (revision 48d5751e9aeb6a4f388f6531a9248c1847b22cae) @@ -1697,7 +1697,8 @@ * initialize the variable hash table and update the object */ varTablePtr = object->varTable = VarHashTableCreate(); - fprintf(stderr, "+++ create varTable in CompiledDotVarFetch\n"); + fprintf(stderr, "+++ create varTable in %s CompiledDotVarFetch for '%s'\n", + objectName(object), ObjStr(resVarInfo->nameObj)); } resVarInfo->lastObj = object; @@ -5253,7 +5254,7 @@ static void ParamsFree(XOTclParam *paramsPtr) { XOTclParam *paramPtr; - + /*fprintf(stderr, "ParamsFree %p\n", paramsPtr);*/ for (paramPtr=paramsPtr; paramPtr->name; paramPtr++) { /*fprintf(stderr, ".... paramPtr = %p, name=%s, defaultValue %p\n", paramPtr, paramPtr->name, paramPtr->defaultValue);*/ @@ -9521,10 +9522,10 @@ int i; for (pPtr = ifd, i=0; i %p %p, default %s\n", - pPtr->name, pPtr->flags & XOTCL_ARG_REQUIRED, - pcPtr->clientData[i], pcPtr->objv[i], - pPtr->defaultValue ? ObjStr(pPtr->defaultValue) : "NONE");*/ + /*fprintf(stderr, "ArgumentDefaults got for arg %s (%d) %p => %p %p, default %s\n", + pPtr->name, pPtr->flags & XOTCL_ARG_REQUIRED, pPtr, + pcPtr->clientData[i], pcPtr->objv[i], + pPtr->defaultValue ? ObjStr(pPtr->defaultValue) : "NONE");*/ if (pcPtr->objv[i]) { /* we got an actual value, which was already checked by objv parser */ @@ -12274,6 +12275,7 @@ 2, 0, XOTCL_CM_NO_PROTECT); if (result == TCL_OK) { rawConfArgs = Tcl_GetObjResult(interp); + /*fprintf(stderr, ".... rawConfArgs for %s => %s\n", objectName(object), ObjStr(rawConfArgs));*/ INCR_REF_COUNT(rawConfArgs); /* Parse the string representation to obtain the internal representation */