diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-04-20 16:58:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-04-20 16:58:24 (GMT) |
| commit | 07df807261af92ac86e7c48495ebfd1edab57234 (patch) | |
| tree | fecfc941f0dac063ef01f3ab77ff57e3eb8f457e /generic | |
| parent | 47e1f51328292780e2911c6da518cd560f6b76e3 (diff) | |
| download | tcl-07df807261af92ac86e7c48495ebfd1edab57234.zip tcl-07df807261af92ac86e7c48495ebfd1edab57234.tar.gz tcl-07df807261af92ac86e7c48495ebfd1edab57234.tar.bz2 | |
VarHashCreateVar() isn't used in tclExecute.c
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclExecute.c | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 69ec50c..ad09f47 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -155,22 +155,17 @@ typedef struct { ((Var *) ((char *)hPtr - offsetof(VarInHash, entry))) static inline Var * -VarHashCreateVar( +VarHashFindVar( TclVarHashTable *tablePtr, - Tcl_Obj *key, - int *newPtr) + Tcl_Obj *key) { - Tcl_HashEntry *hPtr = Tcl_CreateHashEntry(&tablePtr->table, - key, newPtr); - + Tcl_HashEntry *hPtr = Tcl_FindHashEntry(&tablePtr->table, + key); if (!hPtr) { return NULL; } return VarHashGetValue(hPtr); } - -#define VarHashFindVar(tablePtr, key) \ - VarHashCreateVar((tablePtr), (key), NULL) /* * The new macro for ending an instruction; note that a reasonable C-optimiser |