diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2007-04-23 17:56:07 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2007-04-23 17:56:07 (GMT) |
| commit | aa9216011ec86d77c35b1217e31a14c6517a4433 (patch) | |
| tree | 88aa93236097bfeaa73b2aa50573e2c88548d89e /generic/tclTest.c | |
| parent | 401efde7b4d67a1ca4b84373795ec67ccd785306 (diff) | |
| download | tcl-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/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
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); |