Preven a buffer-overflow (bug#58850)

* src/print.c (print_vectorlike): Don't use sprintf.

diff --git a/src/print.c b/src/print.c
index 65218084a4c47d50451c43966bf8a04a643becde..07560518c46bf201e63f2f434f80cf4c76621de6 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -2017,8 +2017,8 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag,
            i = sprintf (buf, " stmt=%p", XSQLITE (obj)->stmt);
            strout (buf, i, i, printcharfun);
          }
-       i = sprintf (buf, " name=%s", XSQLITE (obj)->name);
-       strout (buf, i, i, printcharfun);
+       print_c_string (" name=", printcharfun);
+       print_c_string (XSQLITE (obj)->name, printcharfun);
        printchar ('>', printcharfun);
       }
       break;