Index: generic/nsf.c =================================================================== diff -u -r4de94d222c600e532eab5df66719bea5c82c073e -rab5097b110d11556bd7b32faace2fd6cae23b6e5 --- generic/nsf.c (.../nsf.c) (revision 4de94d222c600e532eab5df66719bea5c82c073e) +++ generic/nsf.c (.../nsf.c) (revision ab5097b110d11556bd7b32faace2fd6cae23b6e5) @@ -3031,7 +3031,7 @@ resVarInfo->lastObject = object; #if defined(VAR_RESOLVER_TRACE) - fprintf(stderr,"Fetch var %s in object %s\n",TclGetString(resVarInfo->nameObj),ObjectName(object)); + fprintf(stderr,"Fetch var %s in object %s\n", TclGetString(resVarInfo->nameObj), ObjectName(object)); #endif resVarInfo->var = var = (Tcl_Var) VarHashCreateVar(varTablePtr, resVarInfo->nameObj, &new); /* @@ -3818,7 +3818,7 @@ } /*fprintf(stderr, "NSCleanupNamespace calls DeleteCommandFromToken for %p flags %.6x\n", cmd, ((Command *)cmd)->flags); - fprintf(stderr, " cmd = %s\n", Tcl_GetCommandName(interp,cmd)); + fprintf(stderr, " cmd = %s\n", Tcl_GetCommandName(interp, cmd)); fprintf(stderr, " nsPtr = %p\n", ((Command *)cmd)->nsPtr); fprintf(stderr, " epoch = %d\n", Tcl_Command_cmdEpoch(cmd)); fprintf(stderr, " refCount = %d\n", Tcl_Command_refCount(cmd)); @@ -3834,7 +3834,7 @@ /* dummy for ns identification by pointer comparison */ NsfObject *object = (NsfObject *) clientData; /*fprintf(stderr, "namespacedeleteproc obj=%p ns=%p\n", - clientData,object ? object->nsPtr : NULL);*/ + clientData, object ? object->nsPtr : NULL);*/ if (object) { object->nsPtr = NULL; } @@ -6352,7 +6352,7 @@ */ *clPtr = cl; *currentCmdPtr = cmdList->cmdPtr; - /*fprintf(stderr, "mixinsearch returns %p (cl %s)\n",cmd, ClassName(cl));*/ + /*fprintf(stderr, "mixinsearch returns %p (cl %s)\n", cmd, ClassName(cl));*/ break; } else if (result == TCL_ERROR) { break; @@ -8329,7 +8329,7 @@ * for example, self introspection working for the requested dispatch, we * introduce a CMETHOD frame. */ - /*fprintf(stderr, "Nsf_PushFrameCsc %s %s\n",ObjectName(object), methodName);*/ + /*fprintf(stderr, "Nsf_PushFrameCsc %s %s\n", ObjectName(object), methodName);*/ Nsf_PushFrameCsc(interp, cscPtr, framePtr); } @@ -8507,7 +8507,8 @@ */ /*fprintf(stderr, ".... ensemble dispatch on %s.%s cscPtr %p base flags %.6x cl %s\n", - ObjectName(object),methodName, cscPtr, (0xFF & cscPtr->flags),cscPtr->cl?ObjStr(cscPtr->cl->object.cmdName):NULL);*/ + ObjectName(object), methodName, cscPtr, + (0xFF & cscPtr->flags), cscPtr->cl?ObjStr(cscPtr->cl->object.cmdName):NULL);*/ result = MethodDispatch(object, interp, objc-1, objv+1, cmd, object, cscPtr->cl, methodName, cscPtr->frameType|NSF_CSC_TYPE_ENSEMBLE, @@ -8521,7 +8522,7 @@ * next to try to call such methods along the next path. */ /*fprintf(stderr, "call next instead of unknown %s.%s \n", - ObjectName(cscPtr->self),methodName);*/ + ObjectName(cscPtr->self), methodName);*/ { Tcl_CallFrame *framePtr1; NsfCallStackContent *cscPtr1 = CallStackGetTopFrame(interp, &framePtr1); @@ -8546,7 +8547,7 @@ } /*fprintf(stderr, "==> next %s.%s (obj %s) csc %p returned %d unknown %d\n", - ObjectName(self),methodName, ObjectName(object), cscPtr, result, rst->unknown);*/ + ObjectName(self), methodName, ObjectName(object), cscPtr, result, rst->unknown);*/ if (rst->unknown) { /* * Unknown handling: We trigger a dispatch to an unknown method. The @@ -8644,7 +8645,7 @@ assert (cmd); /*fprintf(stderr, "MethodDispatch method '%s.%s' objc %d flags %.6x call %d\n", - ObjectName(object),methodName, objc, flags, call); */ + ObjectName(object), methodName, objc, flags, call); */ cscPtr = CscAlloc(interp, &csc, cmd); @@ -8755,7 +8756,7 @@ } if ((flags & NSF_CSC_FILTER_STACK_PUSHED) && object->filterStack) { /* fprintf(stderr, "FilterStackPop %s.%s %p %s\n", - ObjectName(object),methodName, object->filterStack, msg);*/ + ObjectName(object), methodName, object->filterStack, msg);*/ FilterStackPop(object); } @@ -8854,7 +8855,7 @@ NsfObjectRefCountIncr(object); /*fprintf(stderr, "obj refCount of %p after incr %d (ObjectDispatch) %s\n", - object,object->refCount, methodName);*/ + object, object->refCount, methodName);*/ if (!(objflags & NSF_FILTER_ORDER_VALID)) { FilterComputeDefined(interp, object); @@ -8898,7 +8899,7 @@ } /*fprintf(stderr, "MixinStackPush check for %p %s.%s objflags %.6x == %d\n", - object,ObjectName(object),methodName, objflags & NSF_MIXIN_ORDER_DEFINED_AND_VALID, + object, ObjectName(object), methodName, objflags & NSF_MIXIN_ORDER_DEFINED_AND_VALID, (objflags & NSF_MIXIN_ORDER_DEFINED_AND_VALID) == NSF_MIXIN_ORDER_DEFINED_AND_VALID);*/ /* * Check if a mixed in method has to be called. @@ -8926,7 +8927,7 @@ &object->mixinStack->currentCmdPtr, &cmd); if (result != TCL_OK) { /*fprintf(stderr, "mixinsearch returned an error for %p %s.%s\n", - object, ObjectName(object),methodName);*/ + object, ObjectName(object), methodName);*/ cscPtr = CscAlloc(interp, &csc, NULL); CscInit(cscPtr, object, cl, NULL, frameType, flags, methodName); goto exit_object_dispatch; @@ -9291,7 +9292,7 @@ INCR_REF_COUNT(callInfoObj); /*fprintf(stderr, "calling unknown for %s %s, flgs=%.6x,%.6x/%.6x isClass=%d %p %s objc %d\n", - ObjectName(object), ObjStr(methodObj), flags, NSF_CM_NO_UNKNOWN,NSF_CSC_CALL_NO_UNKNOWN, + ObjectName(object), ObjStr(methodObj), flags, NSF_CM_NO_UNKNOWN, NSF_CSC_CALL_NO_UNKNOWN, NsfObjectIsClass(object), object, ObjectName(object), objc);*/ tov[0] = object->cmdName; @@ -9322,7 +9323,7 @@ /* fprintf(stderr, "--- default error message for unknown method '%s' " "to be dispatched on %s, objv[%d] %s /methodName %s\n", - ObjStr(methodObj), ObjectName(object), 1, ObjStr(objv[1]),methodName);*/ + ObjStr(methodObj), ObjectName(object), 1, ObjStr(objv[1]), methodName);*/ result = NsfPrintError(interp, "%s: unable to dispatch method '%s'", ObjectName(object), /*methodName*/ tailMethodObj ? MethodName(tailMethodObj) : methodName); @@ -9473,7 +9474,7 @@ *---------------------------------------------------------------------- */ enum stringTypeIdx {StringTypeAlnum, StringTypeAlpha, StringTypeAscii, StringTypeBoolean, StringTypeControl, - StringTypeDigit, StringTypeDouble, StringTypeFalse,StringTypeGraph, StringTypeInteger, + StringTypeDigit, StringTypeDouble, StringTypeFalse, StringTypeGraph, StringTypeInteger, StringTypeLower, StringTypePrint, StringTypePunct, StringTypeSpace, StringTypeTrue, StringTypeUpper, StringTypeWideinteger, StringTypeWordchar, StringTypeXdigit }; static CONST char *stringTypeOpts[] = {"alnum", "alpha", "ascii", "boolean", "control", @@ -9906,7 +9907,7 @@ if (result == TCL_OK) { /*fprintf(stderr, "ConvertViaCmd could convert %s to '%s' paramPtr %p, is_converter %d\n", - ObjStr(objPtr), ObjStr(Tcl_GetObjResult(interp)),pPtr, + ObjStr(objPtr), ObjStr(Tcl_GetObjResult(interp)), pPtr, pPtr->flags & NSF_ARG_IS_CONVERTER);*/ if (pPtr->flags & NSF_ARG_IS_CONVERTER) { /* @@ -10045,10 +10046,10 @@ /*fprintf(stderr, "ParamOptionParse name %s, option '%s' (%ld) disallowed %.6x\n", paramPtr->name, option, remainder, disallowedOptions);*/ - if (strncmp(option, "required", MAX(3,optionLength)) == 0) { + if (strncmp(option, "required", MAX(3, optionLength)) == 0) { paramPtr->flags |= NSF_ARG_REQUIRED; - } else if (strncmp(option, "optional", MAX(3,optionLength)) == 0) { + } else if (strncmp(option, "optional", MAX(3, optionLength)) == 0) { paramPtr->flags &= ~NSF_ARG_REQUIRED; } else if (strncmp(option, "substdefault", 12) == 0) { @@ -10121,7 +10122,7 @@ paramPtr->defaultValue = Tcl_NewBooleanObj(0); INCR_REF_COUNT(paramPtr->defaultValue); - } else if (strncmp(option, "integer", MAX(3,optionLength)) == 0) { + } else if (strncmp(option, "integer", MAX(3, optionLength)) == 0) { result = ParamOptionSetConverter(interp, paramPtr, "integer", Nsf_ConvertToInteger); } else if (strncmp(option, "int32", 5) == 0) { @@ -12620,7 +12621,7 @@ CONST char *nameString = ObjStr(nameObj); Tcl_Namespace *nsPtr; - /*fprintf(stderr, "PrimitiveOCreate %s parentNs %p\n",nameString, parentNsPtr);*/ + /*fprintf(stderr, "PrimitiveOCreate %s parentNs %p\n", nameString, parentNsPtr);*/ #if defined(NSFOBJ_TRACE) fprintf(stderr, "CKALLOC Object %p %s\n", object, nameString); @@ -12845,7 +12846,7 @@ hPtr = Tcl_NextHashEntry(&hSrch)) { NsfObject *inst = (NsfObject *)Tcl_GetHashKey(instanceTablePtr, hPtr); /*fprintf(stderr, " inst %p %s flags %.6x id %p baseClass %p %s\n", - inst, ObjectName(inst), inst->flags, inst->id,baseClass,ClassName(baseClass));*/ + inst, ObjectName(inst), inst->flags, inst->id, baseClass, ClassName(baseClass));*/ if (inst && inst != (NsfObject *)cl && !(inst->flags & NSF_DURING_DELETE) /*inst->id*/) { if (inst != &(baseClass->object)) { (void)RemoveInstance(inst, cl->object.cl); @@ -12886,7 +12887,7 @@ */ if (subClass->super == 0 && (cl->object.flags & NSF_IS_ROOT_CLASS) == 0) { /* fprintf(stderr,"subClass %p %s baseClass %p %s\n", - cl,ClassName(cl),baseClass,ClassName(baseClass)); */ + cl, ClassName(cl), baseClass, ClassName(baseClass)); */ AddSuper(subClass, baseClass); } } @@ -13003,7 +13004,7 @@ cl, saved, ((Namespace *)saved)->flags);*/ saved->clientData = NULL; Nsf_DeleteNamespace(interp, saved); - /*fprintf(stderr, "primitive cdestroy %p DONE\n",cl);*/ + /*fprintf(stderr, "primitive cdestroy %p DONE\n", cl);*/ return; } @@ -13041,7 +13042,7 @@ CONST char *nameString = ObjStr(nameObj); NsfObject *object = (NsfObject *)cl; - /* fprintf(stderr, "PrimitiveCCreate %s parentNs %p\n",nameString, parentNsPtr); */ + /* fprintf(stderr, "PrimitiveCCreate %s parentNs %p\n", nameString, parentNsPtr); */ #if defined(NSFOBJ_TRACE) fprintf(stderr, "CKALLOC Class %p %s\n", cl, nameString); @@ -14063,8 +14064,8 @@ exitforwardmethod: if (freeList) {DECR_REF_COUNT(freeList);} - FREE_ON_STACK(int,objvmap); - FREE_ON_STACK(Tcl_Obj*,OV); + FREE_ON_STACK(int, objvmap); + FREE_ON_STACK(Tcl_Obj*, OV); } return result; } @@ -14444,7 +14445,7 @@ int result; if (doCheck == 0 && (pPtr->flags & (NSF_ARG_IS_CONVERTER|NSF_ARG_INITCMD)) == 0) { - /*fprintf(stderr, "*** omit argument check for arg %s flags %.6x\n",pPtr->name, pPtr->flags);*/ + /*fprintf(stderr, "*** omit argument check for arg %s flags %.6x\n", pPtr->name, pPtr->flags);*/ *outObjPtr = objPtr; *clientData = ObjStr(objPtr); *flags = 0; @@ -15175,12 +15176,12 @@ Tcl_DStringInit(dsPtr); DStringAppendQualName(dsPtr, Tcl_Command_nsPtr(cmd), methodName); - /*fprintf(stderr,"Looking up ::nsf::parametersyntax(%s) ...\n",Tcl_DStringValue(dsPtr));*/ + /*fprintf(stderr,"Looking up ::nsf::parametersyntax(%s) ...\n", Tcl_DStringValue(dsPtr));*/ parameterSyntaxObj = Tcl_GetVar2Ex(interp, "::nsf::parametersyntax", Tcl_DStringValue(dsPtr), TCL_GLOBAL_ONLY); /*fprintf(stderr, "No parametersyntax so far methodname %s cmd name %s ns %s\n", - methodName, Tcl_GetCommandName(interp,cmd), Tcl_DStringValue(dsPtr));*/ + methodName, Tcl_GetCommandName(interp, cmd), Tcl_DStringValue(dsPtr));*/ Tcl_DStringFree(dsPtr); if (parameterSyntaxObj) { @@ -15514,8 +15515,8 @@ fprintf(stderr, "aliasGet %s -> %s/%s (%d) returned %p\n", ObjectName(defObject), methodName, Tcl_GetCommandName(interp, cmd), withPer_object, entryObj); - fprintf(stderr, "... regObject %p %s\n",regObject,ObjectName(regObject)); - fprintf(stderr, "... defObject %p %s\n",defObject,ObjectName(defObject)); + fprintf(stderr, "... regObject %p %s\n", regObject, ObjectName(regObject)); + fprintf(stderr, "... defObject %p %s\n", defObject, ObjectName(defObject)); */ if (entryObj) { @@ -15888,7 +15889,7 @@ Tcl_Command cmd = (Tcl_Command)Tcl_GetHashValue(hPtr); /*fprintf(stderr, "... check %s child key %s child object %p %p\n", - ObjectName(object),key,GetObjectFromString(interp, key), + ObjectName(object), key, GetObjectFromString(interp, key), NsfGetObjectFromCmdPtr(cmd));*/ if ((childObject = NsfGetObjectFromCmdPtr(cmd)) && @@ -16620,7 +16621,7 @@ result = MethodDispatch(object, interp, nobjc+1, nobjv-1, cmd, object, NULL /*NsfClass *cl*/, - Tcl_GetCommandName(interp,cmd), + Tcl_GetCommandName(interp, cmd), NSF_CSC_TYPE_PLAIN, flags); if (withFrame == FrameObjectIdx) { Nsf_PopFrameObj(interp, framePtr); @@ -16668,7 +16669,7 @@ if (!self) { return NsfNoCurrentObjectError(interp, ObjStr(nobjv[0])); } - /* fprintf(stderr, "Colon dispatch %s.%s\n", ObjectName(self),ObjStr(nobjv[0]));*/ + /* fprintf(stderr, "Colon dispatch %s.%s\n", ObjectName(self), ObjStr(nobjv[0]));*/ return ObjectDispatch(self, interp, nobjc, nobjv, NSF_CM_NO_SHIFT); } @@ -16955,7 +16956,7 @@ if (withFrame == FrameMethodIdx) { Tcl_Command_flags(newCmd) |= NSF_CMD_NONLEAF_METHOD; /*fprintf(stderr, "setting aliased for cmd %p %s flags %.6x, tcd = %p\n", - newCmd,methodName,Tcl_Command_flags(newCmd), tcd);*/ + newCmd, methodName, Tcl_Command_flags(newCmd), tcd);*/ } Tcl_SetObjResult(interp, MethodHandleObj(object, cl == NULL, methodName)); @@ -18467,7 +18468,7 @@ paramWrapperPtr->paramPtr = ParamsNew(1); paramWrapperPtr->refCount = 1; paramWrapperPtr->canFree = 0; - /*fprintf(stderr, "allocating %p\n",paramWrapperPtr->paramPtr);*/ + /*fprintf(stderr, "allocating %p\n", paramWrapperPtr->paramPtr);*/ Tcl_AppendLimitedToObj(fullParamObj, ObjStr(objPtr), -1, INT_MAX, NULL); INCR_REF_COUNT(fullParamObj); @@ -18667,7 +18668,7 @@ paramPtr, paramWrapperPtr->refCount, paramWrapperPtr->canFree);*/ if (paramWrapperPtr->refCount == 0) { - /* fprintf(stderr, "ParamSetFromAny paramPtr %p manual free\n",paramPtr);*/ + /* fprintf(stderr, "ParamSetFromAny paramPtr %p manual free\n", paramPtr);*/ ParamsFree(paramWrapperPtr->paramPtr); FREE(NsfParamWrapper, paramWrapperPtr); } else { @@ -18767,7 +18768,7 @@ CallFrame frame, *framePtr = &frame, *uplevelVarFramePtr; #if 0 - fprintf(stderr, "NsfOConfigureMethod %s %2d ",ObjectName(object), objc); + fprintf(stderr, "NsfOConfigureMethod %s %2d ", ObjectName(object), objc); for(i=0; iflags & NSF_DESTROY_CALLED) == 0) { object->flags |= NSF_DESTROY_CALLED; - /*fprintf(stderr, "NsfODestroyMethod %p sets DESTROY_CALLED %.6x\n",object,object->flags);*/ + /*fprintf(stderr, "NsfODestroyMethod %p sets DESTROY_CALLED %.6x\n", object, object->flags);*/ } object->flags |= NSF_DESTROY_CALLED_SUCCESS; @@ -19332,7 +19333,7 @@ Tcl_Obj **argv, **nextArgv; #if 0 - fprintf(stderr, "NsfOResidualargsMethod %s %2d ",ObjectName(object), objc); + fprintf(stderr, "NsfOResidualargsMethod %s %2d ", ObjectName(object), objc); for(i=0; iobject,regObject,defObject,fromClassNS, cmd, methodName1);*/ + &class->object, regObject, defObject, fromClassNS, cmd, methodName1);*/ result = ListMethod(interp, regObject ? regObject : &class->object, defObject ? defObject : &class->object, Index: generic/nsfCompile.c =================================================================== diff -u -reea1c3907d9df65b1e1f80a0d19df35a5dc33d50 -rab5097b110d11556bd7b32faace2fd6cae23b6e5 --- generic/nsfCompile.c (.../nsfCompile.c) (revision eea1c3907d9df65b1e1f80a0d19df35a5dc33d50) +++ generic/nsfCompile.c (.../nsfCompile.c) (revision ab5097b110d11556bd7b32faace2fd6cae23b6e5) @@ -78,7 +78,7 @@ int code, wordIdx; /* fprintf(stderr, "****** selfDispatchCompile words=%d tokens=%d, avail=%d\n", - parsePtr->numWords,parsePtr->numTokens,parsePtr->tokensAvailable); + parsePtr->numWords, parsePtr->numTokens, parsePtr->tokensAvailable); */ if (parsePtr->numWords > 255) @@ -92,20 +92,20 @@ /* fprintf(stderr," %d: %p token type=%d size=%d\n", - wordIdx,tokenPtr,tokenPtr->type,tokenPtr->size ); + wordIdx, tokenPtr, tokenPtr->type, tokenPtr->size ); */ if (tokenPtr->type == TCL_TOKEN_SIMPLE_WORD) { TclEmitPush(TclRegisterLiteral(envPtr, tokenPtr->start, tokenPtr->size, 0), envPtr); envPtr->maxStackDepth = 1; /* fprintf(stderr," %d: simple '%s' components=%d\n", - wordIdx,tokenPtr->start, tokenPtr->numComponents); + wordIdx, tokenPtr->start, tokenPtr->numComponents); */ } else { /* fprintf(stderr," %d NOT simple '%s' components=%d\n", - wordIdx,tokenPtr->start, tokenPtr->numComponents); + wordIdx, tokenPtr->start, tokenPtr->numComponents); */ code = TclCompileTokens(interp, tokenPtr+1, tokenPtr->numComponents, envPtr); @@ -115,7 +115,7 @@ } } - /*fprintf(stderr, "maxdepth=%d, onStack=%d\n",envPtr->maxStackDepth,wordIdx); + /*fprintf(stderr, "maxdepth=%d, onStack=%d\n", envPtr->maxStackDepth, wordIdx); */ TclEmitInstInt1(instructions[INST_SELF_DISPATCH].bytecode, wordIdx, envPtr); envPtr->maxStackDepth = 0; Index: generic/nsfShadow.c =================================================================== diff -u -r58e11ae3135406567181a97b8eac0d88e179a897 -rab5097b110d11556bd7b32faace2fd6cae23b6e5 --- generic/nsfShadow.c (.../nsfShadow.c) (revision 58e11ae3135406567181a97b8eac0d88e179a897) +++ generic/nsfShadow.c (.../nsfShadow.c) (revision ab5097b110d11556bd7b32faace2fd6cae23b6e5) @@ -102,7 +102,7 @@ NsfShadowTclCommandInfo *ti = &RUNTIME_STATE(interp)->tclCommands[name-NSF_EXPR]; int result = TCL_OK; - /*fprintf(stderr,"NsfReplaceCommand %d\n",name);*/ + /*fprintf(stderr,"NsfReplaceCommand %d\n", name);*/ cmd = Tcl_GetCommandFromObj(interp, NsfGlobalObjs[name]); if (cmd == NULL) { @@ -114,7 +114,7 @@ ti->proc = objProc; ti->clientData = Tcl_Command_objClientData(cmd); } else if (ti->proc != objProc) { - /*fprintf(stderr, "we have to refetch command for %s\n",NsfGlobalStrings[name]);*/ + /*fprintf(stderr, "we have to refetch command for %s\n", NsfGlobalStrings[name]);*/ ti->proc = objProc; ti->clientData = Tcl_Command_objClientData(cmd); } @@ -406,13 +406,13 @@ int objc, Tcl_Obj *CONST objv[]) { int result; NsfShadowTclCommandInfo *ti = &RUNTIME_STATE(interp)->tclCommands[name-NSF_EXPR]; - ALLOC_ON_STACK(Tcl_Obj*,objc, ov); + ALLOC_ON_STACK(Tcl_Obj*, objc, ov); /* {int i; fprintf(stderr,"calling %s (%p %p) in %p, objc=%d ", - NsfGlobalStrings[name],ti,ti->proc, interp, objc); + NsfGlobalStrings[name], ti, ti->proc, interp, objc); for(i=0;insPtr) { Tcl_PushCallFrame(interp, (Tcl_CallFrame *)framePtr, object->nsPtr, 0|FRAME_IS_NSF_OBJECT); @@ -179,7 +179,7 @@ Nsf_PushFrameCsc(Tcl_Interp *interp, NsfCallStackContent *cscPtr, CallFrame *framePtr) { CallFrame *varFramePtr = Tcl_Interp_varFramePtr(interp); /*fprintf(stderr,"PUSH CMETHOD_FRAME (Nsf_PushFrameCsc) frame %p cscPtr %p methodName %s\n", - framePtr, cscPtr, Tcl_GetCommandName(interp,cscPtr->cmdPtr));*/ + framePtr, cscPtr, Tcl_GetCommandName(interp, cscPtr->cmdPtr));*/ Tcl_PushCallFrame(interp, (Tcl_CallFrame *)framePtr, Tcl_CallFrame_nsPtr(varFramePtr), FRAME_IS_PROC|FRAME_IS_NSF_CMETHOD); @@ -285,7 +285,7 @@ register Tcl_CallFrame *varFramePtr = (Tcl_CallFrame *)Tcl_Interp_varFramePtr(interp); /*fprintf(stderr, "GetSelfObj interp has frame %p and varframe %p\n", - Tcl_Interp_framePtr(interp),Tcl_Interp_varFramePtr(interp));*/ + Tcl_Interp_framePtr(interp), Tcl_Interp_varFramePtr(interp));*/ for (; varFramePtr; varFramePtr = @@ -465,7 +465,7 @@ ctx->frameSaved = 0; } else { ctx->varFramePtr = inFramePtr; - /*fprintf(stderr, "CallStackUseActiveFrame stores %p\n",framePtr);*/ + /*fprintf(stderr, "CallStackUseActiveFrame stores %p\n", framePtr);*/ Tcl_Interp_varFramePtr(interp) = (CallFrame *)framePtr; ctx->frameSaved = 1; } @@ -825,7 +825,7 @@ cscPtr->flags = 0; #endif - /*fprintf(stderr, "CscAlloc allocated %p\n",cscPtr);*/ + /*fprintf(stderr, "CscAlloc allocated %p\n", cscPtr);*/ return cscPtr; } @@ -871,7 +871,7 @@ */ object->activationCount ++; /*fprintf(stderr, "CscInit %p method %s activationCount ++ (%s) --> %d (cl %p)\n", - cscPtr, cmd ? Tcl_GetCommandName(object->teardown,cmd) : "UNK", + cscPtr, cmd ? Tcl_GetCommandName(object->teardown, cmd) : "UNK", ObjectName(object), object->activationCount, cl);*/ /* * Track class activations @@ -899,7 +899,7 @@ cscPtr->filterStackEntry = object->filterStack; cscPtr->frameType = frameType; - /*fprintf(stderr, "CscInit %p (%s) object %p %s flags %.6x cmdPtr %p\n",cscPtr, msg, + /*fprintf(stderr, "CscInit %p (%s) object %p %s flags %.6x cmdPtr %p\n", cscPtr, msg, object, ObjectName(object), cscPtr->flags, cscPtr->cmdPtr);*/ } @@ -935,7 +935,7 @@ object = cscPtr->self; - /*fprintf(stderr, "CscFinish %p object %p %s flags %.6x cmdPtr %p\n",cscPtr, + /*fprintf(stderr, "CscFinish %p object %p %s flags %.6x cmdPtr %p\n", cscPtr, object, ObjectName(object), cscPtr->flags, cscPtr->cmdPtr); */ /* Index: generic/nsfTrace.c =================================================================== diff -u -reea1c3907d9df65b1e1f80a0d19df35a5dc33d50 -rab5097b110d11556bd7b32faace2fd6cae23b6e5 --- generic/nsfTrace.c (.../nsfTrace.c) (revision eea1c3907d9df65b1e1f80a0d19df35a5dc33d50) +++ generic/nsfTrace.c (.../nsfTrace.c) (revision ab5097b110d11556bd7b32faace2fd6cae23b6e5) @@ -28,14 +28,14 @@ NsfNewObj(cmdObj); fprintf(stderr, "\tFrame=%p ", f); if (f && f->isProcCallFrame && f->procPtr && f->procPtr->cmdPtr) { - fprintf(stderr,"caller %p ",Tcl_CallFrame_callerPtr(f)); - fprintf(stderr,"callerV %p ",Tcl_CallFrame_callerVarPtr(f)); - Tcl_GetCommandFullName(interp, (Tcl_Command) f->procPtr->cmdPtr, cmdObj); + fprintf(stderr,"caller %p ", Tcl_CallFrame_callerPtr(f)); + fprintf(stderr,"callerV %p ", Tcl_CallFrame_callerVarPtr(f)); + Tcl_GetCommandFullName(interp, (Tcl_Command)f->procPtr->cmdPtr, cmdObj); fprintf(stderr, "%s (%p) lvl=%d\n", ObjStr(cmdObj), f->procPtr->cmdPtr, f->level); DECR_REF_COUNT(cmdObj); } else { if (f && f->varTablePtr) { - fprintf(stderr, "var_table = %p ",f->varTablePtr); + fprintf(stderr, "var_table = %p ", f->varTablePtr); } fprintf(stderr, "- \n"); } @@ -64,8 +64,8 @@ int j; fprintf(stderr, "%s", string); for (j = 0; j < objc; j++) { - /*fprintf(stderr, " objv[%d]=%s, ",j, objv[j] ? ObjStr(objv[j]) : "NULL");*/ - fprintf(stderr, " objv[%d]=%s %p, ",j, objv[j] ? ObjStr(objv[j]) : "NULL", objv[j]); + /*fprintf(stderr, " objv[%d]=%s, ", j, objv[j] ? ObjStr(objv[j]) : "NULL");*/ + fprintf(stderr, " objv[%d]=%s %p, ", j, objv[j] ? ObjStr(objv[j]) : "NULL", objv[j]); } fprintf(stderr, "\n"); } @@ -79,9 +79,9 @@ Tcl_HashEntry *hPtr; hPtr = Tcl_CreateHashEntry(table, id, &new); #ifdef NSF_MEM_TRACE - fprintf(stderr, "+++ alloc %s %p\n",id,p); + fprintf(stderr, "+++ alloc %s %p\n", id, p); #endif - /*fprintf(stderr,"+++alloc '%s'\n",id);*/ + /*fprintf(stderr,"+++alloc '%s'\n", id);*/ if (new) { entry = (NsfMemCounter*)ckalloc(sizeof(NsfMemCounter)); entry->count = 1; @@ -101,7 +101,7 @@ Tcl_HashTable *table = &nsfMemCount; Tcl_HashEntry *hPtr; #ifdef NSF_MEM_TRACE - fprintf(stderr, "+++ free %s %p\n",id,p); + fprintf(stderr, "+++ free %s %p\n", id, p); #endif hPtr = Tcl_FindHashEntry(table, id); Index: generic/nsfUtil.c =================================================================== diff -u -r17ba2f1d86be4afd497d652b7ee39a5edc771a22 -rab5097b110d11556bd7b32faace2fd6cae23b6e5 --- generic/nsfUtil.c (.../nsfUtil.c) (revision 17ba2f1d86be4afd497d652b7ee39a5edc771a22) +++ generic/nsfUtil.c (.../nsfUtil.c) (revision ab5097b110d11556bd7b32faace2fd6cae23b6e5) @@ -58,7 +58,7 @@ * Nsf_ltoa -- * * Convert a long value into a string; this function is a fast - * version of sprintf(buf,"%ld",l); + * version of sprintf(buf, "%ld", l); * * Results: * String containing decimal value of the provided parameter. @@ -69,7 +69,7 @@ *---------------------------------------------------------------------- */ char * -Nsf_ltoa(char *buf, long i, int *len) /* fast version of sprintf(buf,"%ld",l); */ { +Nsf_ltoa(char *buf, long i, int *len) { int nr_written, negative; char tmp[LONG_AS_STRING], *pointer = &tmp[1], *string, *p; *tmp = 0;