diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-08-05 14:09:59 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-08-05 14:09:59 (GMT) |
commit | f8f2aa2a1361c63e3e4425fec6f4f894a3a9a047 (patch) | |
tree | e19deaf795103289e3bf0040ce21144ef702316b /generic/tclOOBasic.c | |
parent | 815598b87133a1634e4adc9913778780aae94f23 (diff) | |
download | tcl-f8f2aa2a1361c63e3e4425fec6f4f894a3a9a047.zip tcl-f8f2aa2a1361c63e3e4425fec6f4f894a3a9a047.tar.gz tcl-f8f2aa2a1361c63e3e4425fec6f4f894a3a9a047.tar.bz2 |
More cleaning up.
Diffstat (limited to 'generic/tclOOBasic.c')
-rw-r--r-- | generic/tclOOBasic.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index c9a5c7a..1506a34 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -772,8 +772,8 @@ TclOOLookupObjectVar( if (mPtr->declaringObjectPtr == oPtr) { FOREACH_STRUCT(pvPtr, oPtr->privateVariables) { - if (!strcmp(TclGetString(pvPtr->variableObj), - TclGetString(varName))) { + if (!TclStringCmp(pvPtr->variableObj, varName, 1, 0, + TCL_INDEX_NONE)) { varName = pvPtr->fullNameObj; break; } @@ -794,8 +794,8 @@ TclOOLookupObjectVar( } if (isInstance) { FOREACH_STRUCT(pvPtr, clsPtr->privateVariables) { - if (!strcmp(TclGetString(pvPtr->variableObj), - TclGetString(varName))) { + if (!TclStringCmp(pvPtr->variableObj, varName, 1, 0, + TCL_INDEX_NONE)) { varName = pvPtr->fullNameObj; break; } |