diff options
| author | hobbs <hobbs> | 2007-11-09 18:55:13 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2007-11-09 18:55:13 (GMT) |
| commit | 2ebefee1b05df6c41125e6bc8ed768c0cc4f50dc (patch) | |
| tree | 2279f9c57d51ffd67adb4ac91577b40b49ecd3ad /generic/tclIntDecls.h | |
| parent | 51c3524facba45f2ebda897b58b073fb0e932024 (diff) | |
| download | tcl-2ebefee1b05df6c41125e6bc8ed768c0cc4f50dc.zip tcl-2ebefee1b05df6c41125e6bc8ed768c0cc4f50dc.tar.gz tcl-2ebefee1b05df6c41125e6bc8ed768c0cc4f50dc.tar.bz2 | |
* generic/tclInt.decls, generic/tclIntDecls.h: Use unsigned char for
* generic/tclExecute.c, generic/tclUtil.c: TclByteArrayMatch
and don't allow a nocase option. [Bug 1828296]
For INST_STR_MATCH, ignore pattern type for TclByteArrayMatch case.
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 76297aa..05daefb 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIntDecls.h,v 1.106 2007/11/08 00:50:32 hobbs Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.107 2007/11/09 18:55:15 hobbs Exp $ */ #ifndef _TCLINTDECLS @@ -1060,8 +1060,9 @@ EXTERN void TclBackgroundException (Tcl_Interp * interp, #ifndef TclByteArrayMatch_TCL_DECLARED #define TclByteArrayMatch_TCL_DECLARED /* 237 */ -EXTERN int TclByteArrayMatch (CONST char * string, int strLen, - CONST char * pattern, int ptnLen, int nocase); +EXTERN int TclByteArrayMatch (const unsigned char * string, + int strLen, const unsigned char * pattern, + int ptnLen); #endif typedef struct TclIntStubs { @@ -1320,7 +1321,7 @@ typedef struct TclIntStubs { Var * (*tclVarHashCreateVar) (TclVarHashTable * tablePtr, const char * key, int * newPtr); /* 234 */ void (*tclInitVarHashTable) (TclVarHashTable * tablePtr, Namespace * nsPtr); /* 235 */ void (*tclBackgroundException) (Tcl_Interp * interp, int code); /* 236 */ - int (*tclByteArrayMatch) (CONST char * string, int strLen, CONST char * pattern, int ptnLen, int nocase); /* 237 */ + int (*tclByteArrayMatch) (const unsigned char * string, int strLen, const unsigned char * pattern, int ptnLen); /* 237 */ } TclIntStubs; #ifdef __cplusplus |