From 50eb784bfcf15ee3c6b0b53d747db92673395040 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:34 -0800
Subject: Import Upstream version 5e3

---
 subr.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'subr.c')

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);
-- 
cgit v1.2.3