Use three-argument form for out-of-range errors.

This provides more debugging hints for callers.

* src/emacs-module.c (module_copy_string_contents): Use three-argument
form of args-out-of-range.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/emacs-module.c b/src/emacs-module.c
index 20dcff2b67a..d7704efcf6e 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -614,8 +614,11 @@ module_copy_string_contents (emacs_env *env, emacs_value value, char *buffer,
 
   if (*length < required_buf_size)
     {
+      ptrdiff_t actual = *length;
       *length = required_buf_size;
-      xsignal0 (Qargs_out_of_range);
+      args_out_of_range_3 (INT_TO_INTEGER (actual),
+                           INT_TO_INTEGER (required_buf_size),
+                           INT_TO_INTEGER (PTRDIFF_MAX));
     }
 
   *length = required_buf_size;