From 396e214b5fb99c32fda2c260d96b68f8fb8cdfc8 Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Fri, 4 Jan 2019 11:24:05 +0000 Subject: [PATCH] Increased maximum memory allocation --- lisp/fact.lisp | 2 +- src/memory/conspage.h | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/fact.lisp b/lisp/fact.lisp index 7df7246..86d452a 100644 --- a/lisp/fact.lisp +++ b/lisp/fact.lisp @@ -4,4 +4,4 @@ (cond ((= n 1) 1) (t (* n (fact (- n 1))))))) -(fact 21) +(fact 1000) diff --git a/src/memory/conspage.h b/src/memory/conspage.h index bc1361e..aff6f40 100644 --- a/src/memory/conspage.h +++ b/src/memory/conspage.h @@ -9,7 +9,7 @@ * to) is the maximum value of an unsigned 32 bit integer, which is to * say 4294967296. However, we'll start small. */ -#define CONSPAGESIZE 8 +#define CONSPAGESIZE 1024 /** * 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 * 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