diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-30 22:22:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-30 22:22:32 (GMT) |
| commit | feac96c8b3c738ef7cb8e3e89e076aa4f23f13b0 (patch) | |
| tree | 196f438c5ba746829c249ad28e10c94a4a44ee0c /generic/tclRegexp.c | |
| parent | 67ced520761d9c2dff0022dafbebdb996e20b551 (diff) | |
| parent | ed24f448c79bc5af4c0f6fd77826a6552271dd9c (diff) | |
| download | tcl-feac96c8b3c738ef7cb8e3e89e076aa4f23f13b0.zip tcl-feac96c8b3c738ef7cb8e3e89e076aa4f23f13b0.tar.gz tcl-feac96c8b3c738ef7cb8e3e89e076aa4f23f13b0.tar.bz2 | |
Merge 8.7
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 07beffd..35f6334 100644 --- a/generic/tclRegexp.c +++ b/generic/tclRegexp.c @@ -730,7 +730,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); } |