diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-01 10:27:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-01 10:27:54 (GMT) |
| commit | baa549af6a4cd6b4caf71c2f0861ee682cc151d3 (patch) | |
| tree | 9c50f937fbf7d90f1fc7f249e2581d798d958bfc /generic/tclTestObj.c | |
| parent | a30f4dce67cdc3e8e8da693579f8abd90ea22f43 (diff) | |
| parent | ce04b407d9ed313df659f9d292b91ca65f3e82c4 (diff) | |
| download | tcl-baa549af6a4cd6b4caf71c2f0861ee682cc151d3.zip tcl-baa549af6a4cd6b4caf71c2f0861ee682cc151d3.tar.gz tcl-baa549af6a4cd6b4caf71c2f0861ee682cc151d3.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index f2fb247..a7b7382 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -1618,7 +1618,7 @@ CheckIfVarUnset( if (varPtr[varIndex] == NULL) { char buf[32 + TCL_INTEGER_SPACE]; - sprintf(buf, "variable %" TCL_Z_MODIFIER "u is unset (NULL)", varIndex); + snprintf(buf, sizeof(buf), "variable %" TCL_Z_MODIFIER "u is unset (NULL)", varIndex); Tcl_ResetResult(interp); Tcl_AppendToObj(Tcl_GetObjResult(interp), buf, -1); return 1; |