diff options
| author | sbron <tclcore@tclcode.com> | 2022-08-24 11:28:19 (GMT) |
|---|---|---|
| committer | sbron <tclcore@tclcode.com> | 2022-08-24 11:28:19 (GMT) |
| commit | 10cc2ae8fdb18bd0408ff5d1a440cea2e85e55c4 (patch) | |
| tree | fea1bf40a92f02392d67730a8f8807a4e6b03285 | |
| parent | 42dd6088a6a1dd034174d0f9ec84f2f22c9a6e4d (diff) | |
| download | tcl-10cc2ae8fdb18bd0408ff5d1a440cea2e85e55c4.zip tcl-10cc2ae8fdb18bd0408ff5d1a440cea2e85e55c4.tar.gz tcl-10cc2ae8fdb18bd0408ff5d1a440cea2e85e55c4.tar.bz2 | |
Fix error message, so trace tests 16.2, 16.9, and 16.16 pass again.
| -rw-r--r-- | generic/tclInt.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index f5b25dc..7599f8f 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -816,8 +816,8 @@ typedef struct VarInHash { #define TclVarFindHiddenArray(varPtr,arrayPtr) \ do { \ - if ((arrayPtr == NULL) && TclIsVarInHash(varPtr) && \ - (TclVarParentArray(varPtr) != NULL)) { \ + if (!arrayPtr && !TclIsVarUndefined(varPtr) && \ + TclIsVarInHash(varPtr) && TclVarParentArray(varPtr)) { \ arrayPtr = TclVarParentArray(varPtr); \ } \ } while(0) |