summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2007-04-23 17:56:07 (GMT)
committerKevin B Kenny <kennykb@acm.org>2007-04-23 17:56:07 (GMT)
commitaa9216011ec86d77c35b1217e31a14c6517a4433 (patch)
tree88aa93236097bfeaa73b2aa50573e2c88548d89e /generic
parent401efde7b4d67a1ca4b84373795ec67ccd785306 (diff)
downloadtcl-aa9216011ec86d77c35b1217e31a14c6517a4433.zip
tcl-aa9216011ec86d77c35b1217e31a14c6517a4433.tar.gz
tcl-aa9216011ec86d77c35b1217e31a14c6517a4433.tar.bz2
* generic/tclTest.c (Testregexpobjcmd): Removed an invalid access
beyond the end of 'objv' in 'testregexp -about'.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclTest.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index bbfff88..4ed28c8 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTest.c,v 1.108 2007/04/20 06:10:59 kennykb Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.109 2007/04/23 17:56:07 kennykb Exp $
*/
#define TCL_TEST
@@ -3707,7 +3707,6 @@ TestregexpObjCmd(
if (regExpr == NULL) {
return TCL_ERROR;
}
- objPtr = objv[1];
if (about) {
if (TclRegAbout(interp, regExpr) < 0) {
@@ -3716,6 +3715,7 @@ TestregexpObjCmd(
return TCL_OK;
}
+ objPtr = objv[1];
match = Tcl_RegExpExecObj(interp, regExpr, objPtr, 0 /* offset */,
objc-2 /* nmatches */, eflags);