diff options
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index d9d2896..531075e 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -2591,11 +2591,9 @@ TclStringMatchObj( } else if (TclIsPureByteArray(strObj) && TclIsPureByteArray(ptnObj) && !flags) { unsigned char *data, *ptn; - int xxx1length, xxx1plen; - data = Tcl_GetByteArrayFromObj(strObj, &xxx1length); - ptn = Tcl_GetByteArrayFromObj(ptnObj, &xxx1plen); - length = xxx1length; plen = xxx1plen; + data = TclGetByteArrayFromObj(strObj, &length); + ptn = TclGetByteArrayFromObj(ptnObj, &plen); match = TclByteArrayMatch(data, length, ptn, plen, 0); } else { match = Tcl_StringCaseMatch(TclGetString(strObj), |