summaryrefslogtreecommitdiffstats
path: root/generic/tclRegexp.c
diff options
context:
space:
mode:
authornijtmans <nijtmans@noemail.net>2009-02-10 22:49:41 (GMT)
committernijtmans <nijtmans@noemail.net>2009-02-10 22:49:41 (GMT)
commit228226b45f89df593f47066d1f2add74e5422610 (patch)
treeca3baf5495ef51e4e0ad8aa5ed4221b784f68ae6 /generic/tclRegexp.c
parentab9feb37566d10eecd1f998f2b01445ceca39839 (diff)
downloadtcl-228226b45f89df593f47066d1f2add74e5422610.zip
tcl-228226b45f89df593f47066d1f2add74e5422610.tar.gz
tcl-228226b45f89df593f47066d1f2add74e5422610.tar.bz2
- eliminate some unnessary type casts
- some internal const decorations - spacing FossilOrigin-Name: 160bcb11525977fb1ee14ae1e09ba9cb60b29920
Diffstat (limited to 'generic/tclRegexp.c')
-rw-r--r--generic/tclRegexp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c
index 4748e58..d0505e0 100644
--- a/generic/tclRegexp.c
+++ b/generic/tclRegexp.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclRegexp.c,v 1.30 2008/10/15 06:17:04 nijtmans Exp $
+ * RCS: @(#) $Id: tclRegexp.c,v 1.31 2009/02/10 22:49:54 nijtmans Exp $
*/
#include "tclInt.h"
@@ -573,7 +573,7 @@ Tcl_GetRegExpFromObj(
{
int length;
TclRegexp *regexpPtr;
- char *pattern;
+ const char *pattern;
/*
* This is OK because we only actually interpret this value properly as a