diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-05-06 09:06:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-05-06 09:06:53 (GMT) |
| commit | 57d6a762598d03b68238b7223474b5e05706c281 (patch) | |
| tree | 359235e1d8fe185519fa0ddbded72b941db29c6a /generic/tclTest.c | |
| parent | bc01294a882e72fabaf906f49574e18f8e8194db (diff) | |
| parent | e507bdc0e4bcdf9b1be5bb76552aef91402b9607 (diff) | |
| download | tcl-57d6a762598d03b68238b7223474b5e05706c281.zip tcl-57d6a762598d03b68238b7223474b5e05706c281.tar.gz tcl-57d6a762598d03b68238b7223474b5e05706c281.tar.bz2 | |
Change implementation, using 2 new stub entries
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 3a6aafc..974cd83 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -8464,7 +8464,6 @@ MyCompiledVarFetch( { MyResolvedVarInfo *resVarInfo = (MyResolvedVarInfo *) vinfoPtr; Tcl_Var var = resVarInfo->var; - int isNewVar; Interp *iPtr = (Interp *) interp; Tcl_HashEntry *hPtr; @@ -8485,7 +8484,7 @@ MyCompiledVarFetch( } hPtr = Tcl_CreateHashEntry((Tcl_HashTable *) &iPtr->globalNsPtr->varTable, - resVarInfo->nameObj, &isNewVar); + resVarInfo->nameObj, NULL); if (hPtr) { var = (Tcl_Var) TclVarHashGetValue(hPtr); } else { |