Index: generic/nsfObj.c =================================================================== diff -u -ra11c526d2b7815b72463294fc49627d51f7f3a1f -r633a8cb10d2f726810231006ab9ffb15643af98c --- generic/nsfObj.c (.../nsfObj.c) (revision a11c526d2b7815b72463294fc49627d51f7f3a1f) +++ generic/nsfObj.c (.../nsfObj.c) (revision 633a8cb10d2f726810231006ab9ffb15643af98c) @@ -301,7 +301,7 @@ typedef struct { NsfClass *mixin; Tcl_Obj *guardObj; -} MixinReg; +} Mixinreg; static Tcl_FreeInternalRepProc MixinregFreeInternalRep; static Tcl_SetFromAnyProc MixinregSetFromAny; @@ -323,7 +323,7 @@ register Tcl_Obj *objPtr) /* Mixinreg structure object with internal * representation to free. */ { - MixinReg *mixinRegPtr = (MixinReg *)objPtr->internalRep.twoPtrValue.ptr1; + Mixinreg *mixinRegPtr = (Mixinreg *)objPtr->internalRep.twoPtrValue.ptr1; if (mixinRegPtr != NULL) { @@ -338,7 +338,7 @@ /* * ... and free structure */ - FREE(MixinReg, mixinRegPtr); + FREE(Mixinreg, mixinRegPtr); } } @@ -350,16 +350,14 @@ Tcl_Obj *srcObjPtr, Tcl_Obj *dstObjPtr) { - register MixinReg *srcPtr = (MixinReg *)srcObjPtr->internalRep.twoPtrValue.ptr1, *dstPtr; + register Mixinreg *srcPtr = (Mixinreg *)srcObjPtr->internalRep.twoPtrValue.ptr1, *dstPtr; - fprintf(stderr, "**** MixinregDupInternalRep src %p dst %p\n", srcObjPtr, dstObjPtr); - #if defined(METHOD_OBJECT_TRACE) fprintf(stderr, "MixinregDupInternalRep src %p dst %p\n", srcObjPtr, dstObjPtr); #endif if (srcPtr != NULL) { - dstPtr = NEW(MixinReg); - memcpy(dstPtr, srcPtr, sizeof(MixinReg)); + dstPtr = NEW(Mixinreg); + memcpy(dstPtr, srcPtr, sizeof(Mixinreg)); /* increment refcounts */ NsfObjectRefCountIncr(&(srcPtr->mixin)->object); if (srcPtr->guardObj) {INCR_REF_COUNT2("mixinRegPtr->guardObj", srcPtr->guardObj);} @@ -383,7 +381,7 @@ { NsfClass *mixin = NULL; Tcl_Obj *guardObj = NULL, *nameObj; - MixinReg *mixinRegPtr; + Mixinreg *mixinRegPtr; int oc; Tcl_Obj **ov; if (Tcl_ListObjGetElements(interp, objPtr, &oc, &ov) == TCL_OK) { @@ -411,7 +409,7 @@ * Conversion was ok. * Allocate structure ... */ - mixinRegPtr = NEW(MixinReg); + mixinRegPtr = NEW(Mixinreg); mixinRegPtr->mixin = mixin; mixinRegPtr->guardObj = guardObj; @@ -456,7 +454,7 @@ int NsfMixinregGet(Tcl_Obj *obj, NsfClass **clPtr, Tcl_Obj **guardObj) { if (obj->typePtr == &NsfMixinregObjType) { - MixinReg *mixinRegPtr = obj->internalRep.twoPtrValue.ptr1; + Mixinreg *mixinRegPtr = obj->internalRep.twoPtrValue.ptr1; *guardObj = mixinRegPtr->guardObj; *clPtr = mixinRegPtr->mixin; return TCL_OK; @@ -536,8 +534,6 @@ { register Filterreg *srcPtr = (Filterreg *)srcObjPtr->internalRep.twoPtrValue.ptr1, *dstPtr; - fprintf(stderr, "**** FilterregDupInternalRep src %p dst %p\n", srcObjPtr, dstObjPtr); - #if defined(METHOD_OBJECT_TRACE) fprintf(stderr, "FilterregDupInternalRep src %p dst %p\n", srcObjPtr, dstObjPtr); #endif