Whitespace cleanup in src/database

[sxemacs] / src / process.c

diff --git a/src/process.c b/src/process.c
index 68305a2..cb5b035 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -472,11 +472,13 @@ Lisp_Object make_process_internal(Lisp_Object name)
        /* If name is already in use, modify it until it is unused.  */
        name1 = name;
        for (i = 1;; i++) {
-               char suffix[10];
+               char suffix[24];
+               int sz;
                Lisp_Object tem = Fget_process(name1);
                if (NILP(tem))
                        break;
-               sprintf(suffix, "<%d>", i);
+               sz = snprintf(suffix, sizeof(suffix), "<%d>", i);
+               assert(sz>=0 && (size_t)sz<sizeof(suffix));
                name1 = concat2(name, build_string(suffix));
        }
        name = name1;