Index: generic/nsfStack.c =================================================================== diff -u -ra24e1f836c3126d0a0e9467bde3a9fa8da901711 -rf177b4dbbb589f91704b1acb8dfbd91fc076335a --- generic/nsfStack.c (.../nsfStack.c) (revision a24e1f836c3126d0a0e9467bde3a9fa8da901711) +++ generic/nsfStack.c (.../nsfStack.c) (revision f177b4dbbb589f91704b1acb8dfbd91fc076335a) @@ -871,7 +871,7 @@ *---------------------------------------------------------------------- */ NSF_INLINE static void -CscInit_(INTERP_DECL /*@notnull@*/ NsfCallStackContent *cscPtr, NsfObject *object, NsfClass *cl, +CscInit_(/*@notnull@*/ NsfCallStackContent *cscPtr, NsfObject *object, NsfClass *cl, Tcl_Command cmd, int frameType, int flags) { #if defined(NSF_PROFILE) struct timeval trt; @@ -913,11 +913,11 @@ * Incremement the namespace ptr in case Tcl tries to delete * this namespace during the invocation */ - NSNamespacePreserve(INTERP Tcl_Command_nsPtr(cmd)); + NSNamespacePreserve(Tcl_Command_nsPtr(cmd)); /*fprintf(stderr, "NSNamespacePreserve %p\n", nsPtr);*/ } - NsfCommandPreserve(INTERP cmd); + NsfCommandPreserve(cmd); } cscPtr->flags |= flags & NSF_CSC_COPY_FLAGS; cscPtr->self = object; @@ -1013,12 +1013,12 @@ /* * Release the Namespace */ - NSNamespaceRelease(INTERP Tcl_Command_nsPtr(cscPtr->cmdPtr)); + NSNamespaceRelease(Tcl_Command_nsPtr(cscPtr->cmdPtr)); } /* * Release the Command */ - NsfCommandRelease(INTERP cscPtr->cmdPtr); + NsfCommandRelease(cscPtr->cmdPtr); } #if defined(NRE)