Attachment "tclTest.diff" to
ticket [703709ffff]
added by
vincentdarley
2003-03-14 23:24:51.
Index: tclTest.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclTest.c,v
retrieving revision 1.64
diff -r1.64 tclTest.c
3342c3342
< char info[TCL_INTEGER_SPACE * 2];
---
> char resinfo[TCL_INTEGER_SPACE * 2];
3346,3347c3346,3361
< sprintf(info, "%d %d", start, end-1);
< value = Tcl_SetVar(interp, varName, info, 0);
---
> sprintf(resinfo, "%d %d", start, end-1);
> value = Tcl_SetVar(interp, varName, resinfo, 0);
> if (value == NULL) {
> Tcl_AppendResult(interp, "couldn't set variable \"",
> varName, "\"", (char *) NULL);
> return TCL_ERROR;
> }
> } else if (cflags & TCL_REG_CANMATCH) {
> char *varName;
> CONST char *value;
> char resinfo[TCL_INTEGER_SPACE * 2];
>
> Tcl_RegExpGetInfo(regExpr, &info);
> varName = Tcl_GetString(objv[2]);
> sprintf(resinfo, "%d", info.extendStart);
> value = Tcl_SetVar(interp, varName, resinfo, 0);
3465a3480,3483
> case 'c': {
> cflags |= TCL_REG_CANMATCH;
> break;
> }