flambda-backend: Improve error handling in caml_alloc_sprintf (upstre…

…am PR 12489) (#2117) Improve error handling in caml_alloc_sprintf (upstream 12489)
ocaml-flambda · Dec 4, 2023 · 5c88190 · 5c88190
1 parent 781bb48
commit 5c88190
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/runtime/str.c b/runtime/str.c
@@ -411,7 +411,9 @@ CAMLexport value caml_alloc_sprintf(const char * format, ...)
      excluding the terminating '\0'. */
   n = vsnprintf(buf, sizeof(buf), format, args);
   va_end(args);
-  if (n < sizeof(buf)) {
+  if (n < 0) {
+    caml_raise_out_of_memory();
+  } else if (n < sizeof(buf)) {
     /* All output characters were written to buf, including the
        terminating '\0'.  Allocate a Caml string with length "n"
        as computed by vsnprintf, and copy the output of vsnprintf into it. */