diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-28 21:34:29 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-28 21:34:29 (GMT) |
commit | af3406f86c40c78cff50cb5003b8be0eae448d54 (patch) | |
tree | 8c012550c364d8277f009fec2d98678544ae8d9b /generic/tclOOCall.c | |
parent | 4247e597c6de977b80205b4c28784465ee05f941 (diff) | |
download | tcl-af3406f86c40c78cff50cb5003b8be0eae448d54.zip tcl-af3406f86c40c78cff50cb5003b8be0eae448d54.tar.gz tcl-af3406f86c40c78cff50cb5003b8be0eae448d54.tar.bz2 |
New internal macro TclFetchIntRep, which is faster than Tcl_FetchIntRep.
But ... don't use this function when the result is only compared to NULL: that's just overkill.
Diffstat (limited to 'generic/tclOOCall.c')
-rw-r--r-- | generic/tclOOCall.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index 974e598..908dd26 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -280,7 +280,7 @@ DupMethodNameRep( Tcl_Obj *dstPtr) { StashCallChain(dstPtr, - Tcl_FetchIntRep(srcPtr, &methodNameType)->twoPtrValue.ptr1); + TclFetchIntRep(srcPtr, &methodNameType)->twoPtrValue.ptr1); } static void @@ -288,7 +288,7 @@ FreeMethodNameRep( Tcl_Obj *objPtr) { TclOODeleteChain( - Tcl_FetchIntRep(objPtr, &methodNameType)->twoPtrValue.ptr1); + TclFetchIntRep(objPtr, &methodNameType)->twoPtrValue.ptr1); } /* @@ -1189,7 +1189,7 @@ TclOOGetCallContext( const Tcl_ObjIntRep *irPtr; const int reuseMask = (WANT_PUBLIC(flags) ? ~0 : ~PUBLIC_METHOD); - if ((irPtr = Tcl_FetchIntRep(cacheInThisObj, &methodNameType))) { + if ((irPtr = TclFetchIntRep(cacheInThisObj, &methodNameType))) { callPtr = irPtr->twoPtrValue.ptr1; if (IsStillValid(callPtr, oPtr, flags, reuseMask)) { callPtr->refCount++; |