Index: generic/nsfInt.h =================================================================== diff -u -ra792884dc0eb00b1d1c7da088acfad81496f28da -r55c89d7890cc910efd0909b70b074ebf896ce55f --- generic/nsfInt.h (.../nsfInt.h) (revision a792884dc0eb00b1d1c7da088acfad81496f28da) +++ generic/nsfInt.h (.../nsfInt.h) (revision 55c89d7890cc910efd0909b70b074ebf896ce55f) @@ -851,13 +851,16 @@ Tcl_DString traceDs; int depth; int verbose; + int inmemory; + } NsfProfile; # define NSF_PROFILE_TIME_DATA struct timeval profile_trt # define NSF_PROFILE_CALL(interp, object, methodName) \ gettimeofday(&profile_trt, NULL); \ - NsfProfileTraceCall(interp, object, methodName) -# define NSF_PROFILE_EXIT(interp, object, methodName) NsfProfileTraceExit(interp, object, methodName, &profile_trt) + NsfProfileTraceCall(interp, object, NULL, methodName) +# define NSF_PROFILE_EXIT(interp, object, methodName) \ + NsfProfileTraceExit(interp, object, NULL, methodName, &profile_trt) #else # define NSF_PROFILE_TIME_DATA # define NSF_PROFILE_CALL(interp, object, methodName) @@ -993,14 +996,14 @@ EXTERN void NsfProfileFree(Tcl_Interp *interp) nonnull(1); EXTERN void NsfProfileClearData(Tcl_Interp *interp) nonnull(1); EXTERN void NsfProfileGetData(Tcl_Interp *interp) nonnull(1); -EXTERN int NsfProfileTrace(Tcl_Interp *interp, int withEnable, int withVerbose); +EXTERN int NsfProfileTrace(Tcl_Interp *interp, int withEnable, int withVerbose, int withInmemory); -EXTERN void NsfProfileObjectLabel(Tcl_DString *dsPtr, NsfObject *obj, const char *methodName) - nonnull(1) nonnull(2) nonnull(3); -EXTERN void NsfProfileTraceCall(Tcl_Interp *interp, NsfObject *object, const char *methodName) - nonnull(1) nonnull(2) nonnull(3); -EXTERN void NsfProfileTraceExit(Tcl_Interp *interp, NsfObject *object, const char *methodName, struct timeval *trt) - nonnull(1) nonnull(2) nonnull(3) nonnull(4); +EXTERN void NsfProfileObjectLabel(Tcl_DString *dsPtr, NsfObject *obj, NsfClass *cl, const char *methodName) + nonnull(1) nonnull(2) nonnull(4); +EXTERN void NsfProfileTraceCall(Tcl_Interp *interp, NsfObject *object, NsfClass *cl, const char *methodName) + nonnull(1) nonnull(2) nonnull(4); +EXTERN void NsfProfileTraceExit(Tcl_Interp *interp, NsfObject *object, NsfClass *cl, const char *methodName, struct timeval *trt) + nonnull(1) nonnull(2) nonnull(4) nonnull(5); EXTERN void NsfProfileTraceCallAppend(Tcl_Interp *interp, const char *label) nonnull(1) nonnull(2); EXTERN void NsfProfileTraceExitAppend(Tcl_Interp *interp, const char *label, double duration)