summaryrefslogtreecommitdiffstats
path: root/subr.c
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
commit50eb784bfcf15ee3c6b0b53d747db92673395040 (patch)
tree60f039bb5aa27bc58d92ab0c7bab0d82dbfe7686 /subr.c
parentae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 (diff)
downloadscm-50eb784bfcf15ee3c6b0b53d747db92673395040.tar.gz
scm-50eb784bfcf15ee3c6b0b53d747db92673395040.zip
Import Upstream version 5e3upstream/5e3
Diffstat (limited to 'subr.c')
-rw-r--r--subr.c5
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);