Import Upstream version 5e3upstream/5e3

1 files changed, 3 insertions, 2 deletions

diff --git a/subr.c b/subr.c
index 06829b7..1399939 100644
--- a/subr.c
+++ b/subr.c
@@ -1745,13 +1745,14 @@ SCM make_vector(k, fill)
   return v;
 }
 #ifdef BIGDIG
+char s_big_OVFLOW[] = "numerical overflow; NUMDIGS_MAX <";
 char s_bignum[] = "bignum";
 SCM mkbig(nlen, sign)
      sizet nlen;
      int sign;
 {
   SCM v;
-  if (NUMDIGS_MAX <= nlen) wta(MAKINUM(nlen), (char *)NALLOC, s_bignum);
+  if (NUMDIGS_MAX <= nlen) wta(MAKINUM(nlen), s_big_OVFLOW, s_bignum);
   DEFER_INTS;
   v = must_malloc_cell((0L+nlen)*sizeof(BIGDIG),
 		       MAKE_NUMDIGS(nlen, sign ? tc16_bigneg : tc16_bigpos),
@@ -1779,7 +1780,7 @@ SCM adjbig(b, nlen)
 {
   long nsiz = nlen;
   if (((nsiz << 16) >> 16) != nlen)
-    wta(MAKINUM(nsiz), (char *)NALLOC, s_adjbig);
+    wta(MAKINUM(nsiz), s_big_OVFLOW, s_adjbig);
   DEFER_INTS;
   must_realloc_cell(b, (long)(NUMDIGS(b)*sizeof(BIGDIG)),
 		    (long)(nsiz*sizeof(BIGDIG)), s_adjbig);