diff options
| author | nijtmans <nijtmans> | 2009-02-03 23:34:32 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-02-03 23:34:32 (GMT) |
| commit | 22d5aa3e9618d2c3f426a16282fbdb93be01b417 (patch) | |
| tree | 7d87c563d81459de0af29d9c6276a5d4c21f403b /generic/tclCompCmds.c | |
| parent | 6b40f13d26013e672072cb794817a2d322d8127e (diff) | |
| download | tcl-22d5aa3e9618d2c3f426a16282fbdb93be01b417.zip tcl-22d5aa3e9618d2c3f426a16282fbdb93be01b417.tar.gz tcl-22d5aa3e9618d2c3f426a16282fbdb93be01b417.tar.bz2 | |
- eliminate some unnessary type casts
- some internal const decorations
- spacing
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 5d8e31a..8403a98 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompCmds.c,v 1.151 2009/01/09 11:21:45 dkf Exp $ + * RCS: @(#) $Id: tclCompCmds.c,v 1.152 2009/02/03 23:34:32 nijtmans Exp $ */ #include "tclInt.h" @@ -3107,7 +3107,7 @@ TclCompileRegexpCmd( Tcl_Token *varTokenPtr; /* Pointer to the Tcl_Token representing the * parse of the RE or string. */ int i, len, nocase, exact, sawLast, simple; - char *str; + const char *str; DefineLineInformation; /* TIP #280 */ /* @@ -3141,7 +3141,7 @@ TclCompileRegexpCmd( return TCL_ERROR; } - str = (char *) varTokenPtr[1].start; + str = varTokenPtr[1].start; len = varTokenPtr[1].size; if ((len == 2) && (str[0] == '-') && (str[1] == '-')) { sawLast++; @@ -3177,7 +3177,7 @@ TclCompileRegexpCmd( if (varTokenPtr->type == TCL_TOKEN_SIMPLE_WORD) { Tcl_DString ds; - str = (char *) varTokenPtr[1].start; + str = varTokenPtr[1].start; len = varTokenPtr[1].size; /* * If it has a '-', it could be an incorrectly formed regexp command. |