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/tclCompile.h | |
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/tclCompile.h')
-rw-r--r-- | generic/tclCompile.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index e5a8d52..cf11e0e 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -528,7 +528,7 @@ typedef struct ByteCode { #define ByteCodeGetIntRep(objPtr, typePtr, codePtr) \ do { \ const Tcl_ObjIntRep *irPtr; \ - irPtr = Tcl_FetchIntRep((objPtr), (typePtr)); \ + irPtr = TclFetchIntRep((objPtr), (typePtr)); \ (codePtr) = irPtr ? irPtr->twoPtrValue.ptr1 : NULL; \ } while (0) |