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 /unix/dltest | |
parent | f8b9e919c954be237c906a708530111607f88081 (diff) | |
parent | 186145578675341deb63fd53e6080896695c3574 (diff) | |
download | tcl-dc5930bc812a27e31bf8a0aa2fcf564ed7306a26.zip tcl-dc5930bc812a27e31bf8a0aa2fcf564ed7306a26.tar.gz tcl-dc5930bc812a27e31bf8a0aa2fcf564ed7306a26.tar.bz2 |
Merge 8.6
Diffstat (limited to 'unix/dltest')
-rw-r--r-- | unix/dltest/pkgb.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c index e9645a4..41bfdcd 100644 --- a/unix/dltest/pkgb.c +++ b/unix/dltest/pkgb.c @@ -13,6 +13,9 @@ #undef STATIC_BUILD #include "tcl.h" +#if defined(_WIN32) && defined(_MSC_VER) +# define snprintf _snprintf +#endif /* *---------------------------------------------------------------------- @@ -52,7 +55,7 @@ Pkgb_SubObjCmd( if ((Tcl_GetIntFromObj(interp, objv[1], &first) != TCL_OK) || (Tcl_GetIntFromObj(interp, objv[2], &second) != TCL_OK)) { char buf[TCL_INTEGER_SPACE]; - sprintf(buf, "%d", Tcl_GetErrorLine(interp)); + snprintf(buf, sizeof(buf), "%d", Tcl_GetErrorLine(interp)); Tcl_AppendResult(interp, " in line: ", buf, NULL); return TCL_ERROR; } |