Increased maximum memory allocation

This commit is contained in:
Simon Brooke 2019-01-04 11:24:05 +00:00
parent 67443e1d46
commit 396e214b5f
2 changed files with 3 additions and 3 deletions

View file

@ -4,4 +4,4 @@
(cond ((= n 1) 1) (cond ((= n 1) 1)
(t (* n (fact (- n 1))))))) (t (* n (fact (- n 1)))))))
(fact 21) (fact 1000)

View file

@ -9,7 +9,7 @@
* to) is the maximum value of an unsigned 32 bit integer, which is to * to) is the maximum value of an unsigned 32 bit integer, which is to
* say 4294967296. However, we'll start small. * say 4294967296. However, we'll start small.
*/ */
#define CONSPAGESIZE 8 #define CONSPAGESIZE 1024
/** /**
* the number of cons pages we will initially allow for. For * the number of cons pages we will initially allow for. For
@ -25,7 +25,7 @@
* of addressable memory, which is only slightly more than the * of addressable memory, which is only slightly more than the
* number of atoms in the universe. * number of atoms in the universe.
*/ */
#define NCONSPAGES 8 #define NCONSPAGES 64
/** /**
* a cons page is essentially just an array of cons space objects. It * a cons page is essentially just an array of cons space objects. It