diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-02 11:50:03 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-02 11:50:03 (GMT) |
| commit | 1f5d09b497ec683bca02b1b78b8ada732b43dda9 (patch) | |
| tree | 90dbc77ab940959655ec002a50c886d8f81d5da0 | |
| parent | eb23b011d0a81051dda86fd13ec6115cc39675d4 (diff) | |
| download | tcl-1f5d09b497ec683bca02b1b78b8ada732b43dda9.zip tcl-1f5d09b497ec683bca02b1b78b8ada732b43dda9.tar.gz tcl-1f5d09b497ec683bca02b1b78b8ada732b43dda9.tar.bz2 | |
Fix LISTREP_ASSERT
| -rw-r--r-- | generic/tclListObj.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 2475c8e..726b8dd 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -68,7 +68,8 @@ #endif /* Checks for when caller should have already converted to internal list type */ -#define LIST_ASSERT_TYPE(listObj_) LIST_ASSERT(INTREP_IS_LISTREP(listObj_)) +#define LIST_ASSERT_TYPE(listObj_) \ + LIST_ASSERT(TclHasInternalRep((listObj_), &tclListType.objType)) /* * If ENABLE_LIST_INVARIANTS is enabled (-DENABLE_LIST_INVARIANTS from the |