diff options
| author | nijtmans <nijtmans> | 2010-02-15 22:56:19 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-02-15 22:56:19 (GMT) |
| commit | e06b75e0430ea549fbc77a46838180d6a7ff72f0 (patch) | |
| tree | 140d3d78d10e4ec6405c364f7a6936a7a07086a5 /generic/tclEnsemble.c | |
| parent | fa20ade42b00522666c34b8946847fcbfbd0f59a (diff) | |
| download | tcl-e06b75e0430ea549fbc77a46838180d6a7ff72f0.zip tcl-e06b75e0430ea549fbc77a46838180d6a7ff72f0.tar.gz tcl-e06b75e0430ea549fbc77a46838180d6a7ff72f0.tar.bz2 | |
reverted earlier rename from tcl*Stubs to
tcl*ConstStubs, it's not necessary at all.
tclEnsemble.c: Fix signed-unsigned mismatch
make tclWinProcs "const"
Add first part of mslu support,
See [Feature Request #2819611]
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 49d0ed9..3108793 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEnsemble.c,v 1.2 2010/02/14 13:37:33 dkf Exp $ + * RCS: @(#) $Id: tclEnsemble.c,v 1.3 2010/02/15 22:56:20 nijtmans Exp $ */ #include "tclInt.h" @@ -2743,7 +2743,7 @@ TclCompileEnsemble( } for (i=0 ; i<len ; i++) { str = Tcl_GetStringFromObj(elems[i], &sclen); - if ((sclen == numBytes) && !memcmp(word, str, numBytes)) { + if ((sclen == (int) numBytes) && !memcmp(word, str, numBytes)) { /* * Exact match! Excellent! */ |