diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-30 22:02:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-30 22:02:55 (GMT) |
| commit | dc5930bc812a27e31bf8a0aa2fcf564ed7306a26 (patch) | |
| tree | cfdd8df6ed6eeb844e46e1d630692a8a6137fbb9 /generic/tclRegexp.c | |
| parent | f8b9e919c954be237c906a708530111607f88081 (diff) | |
| parent | 186145578675341deb63fd53e6080896695c3574 (diff) | |
| download | tcl-dc5930bc812a27e31bf8a0aa2fcf564ed7306a26.zip tcl-dc5930bc812a27e31bf8a0aa2fcf564ed7306a26.tar.gz tcl-dc5930bc812a27e31bf8a0aa2fcf564ed7306a26.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclRegexp.c')
| -rw-r--r-- | generic/tclRegexp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c index bb4ffc9..8e0681c 100644 --- a/generic/tclRegexp.c +++ b/generic/tclRegexp.c @@ -729,7 +729,7 @@ TclRegError( p = (n > sizeof(buf)) ? "..." : ""; Tcl_SetObjResult(interp, Tcl_ObjPrintf("%s%s%s", msg, buf, p)); - sprintf(cbuf, "%d", status); + snprintf(cbuf, sizeof(cbuf), "%d", status); (void) TclReError(REG_ITOA, cbuf, sizeof(cbuf)); Tcl_SetErrorCode(interp, "REGEXP", cbuf, buf, NULL); } |