return s;
}
-/* Signal an error of type `buffer-too-small'. */
+/* Signal an error of type `memory-buffer-too-small'. */
static void
-module_buffer_too_small (ptrdiff_t actual, ptrdiff_t required)
+module_memory_buffer_too_small (ptrdiff_t actual, ptrdiff_t required)
{
- xsignal2 (Qbuffer_too_small, INT_TO_INTEGER (actual),
+ xsignal2 (Qmemory_buffer_too_small, INT_TO_INTEGER (actual),
INT_TO_INTEGER (required));
}
{
ptrdiff_t actual = *len;
*len = required_buf_size;
- module_buffer_too_small (actual, required_buf_size);
+ module_memory_buffer_too_small (actual, required_buf_size);
}
*len = required_buf_size;
{
ptrdiff_t actual = *count;
*count = required;
- module_buffer_too_small (actual, required);
+ module_memory_buffer_too_small (actual, required);
}
/* Set u = abs(x). See https://stackoverflow.com/a/17313717. */
if (0 < x)
{
ptrdiff_t actual = *count;
*count = required;
- module_buffer_too_small (actual, required);
+ module_memory_buffer_too_small (actual, required);
}
size_t written;
mpz_export (magnitude, &written, order, size, endian, nails, *x);
Fput (Qinvalid_arity, Qerror_message,
build_string ("Invalid function arity"));
- DEFSYM (Qbuffer_too_small, "buffer-too-small");
- Fput (Qbuffer_too_small, Qerror_conditions,
- list2 (Qbuffer_too_small, Qerror));
- Fput (Qbuffer_too_small, Qerror_message,
+ DEFSYM (Qmemory_buffer_too_small, "memory-buffer-too-small");
+ Fput (Qmemory_buffer_too_small, Qerror_conditions,
+ list2 (Qmemory_buffer_too_small, Qerror));
+ Fput (Qmemory_buffer_too_small, Qerror_message,
build_unibyte_string ("Memory buffer too small"));
DEFSYM (Qmodule_function_p, "module-function-p");