diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-08 10:28:48 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-08 10:28:48 (GMT) |
commit | f84ad84e4153f7bdce3247e5f5ab7477e74db51f (patch) | |
tree | 2b8995478cfb59e408b65de66a7a0c682f23bca7 /unix/dltest | |
parent | 72476cdd50825cebaea367188325e69ea5a8ff40 (diff) | |
download | tcl-f84ad84e4153f7bdce3247e5f5ab7477e74db51f.zip tcl-f84ad84e4153f7bdce3247e5f5ab7477e74db51f.tar.gz tcl-f84ad84e4153f7bdce3247e5f5ab7477e74db51f.tar.bz2 |
Micro-optimization: Use TclGetStringFromObj in stead of Tcl_GetStringFromObj in many places where possible.
Diffstat (limited to 'unix/dltest')
-rw-r--r-- | unix/dltest/pkgua.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/unix/dltest/pkgua.c b/unix/dltest/pkgua.c index 6d95640..8634a5e 100644 --- a/unix/dltest/pkgua.c +++ b/unix/dltest/pkgua.c @@ -11,7 +11,6 @@ * this file, and for a DISCLAIMER OF ALL WARRANTIES. */ -#undef STATIC_BUILD #include "tcl.h" /* @@ -70,7 +69,7 @@ PkguaInterpToTokens( int newEntry; Tcl_Command *cmdTokens; Tcl_HashEntry *entryPtr = - Tcl_CreateHashEntry(&interpTokenMap, (char *) interp, &newEntry); + Tcl_CreateHashEntry(&interpTokenMap, interp, &newEntry); if (newEntry) { cmdTokens = (Tcl_Command *) @@ -90,7 +89,7 @@ PkguaDeleteTokens( Tcl_Interp *interp) { Tcl_HashEntry *entryPtr = - Tcl_FindHashEntry(&interpTokenMap, (char *) interp); + Tcl_FindHashEntry(&interpTokenMap, interp); if (entryPtr) { Tcl_Free((char *) Tcl_GetHashValue(entryPtr)); |