From 693ca06902add8b123489c67b52eb44c2208b8ac Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sun, 10 Feb 2008 04:48:27 -0500 Subject: [PATCH] doubled marks size. --- src/ikarus-fasl.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/ikarus-fasl.c b/src/ikarus-fasl.c index 9a24588..0476b83 100644 --- a/src/ikarus-fasl.c +++ b/src/ikarus-fasl.c @@ -273,9 +273,9 @@ static ikptr do_read(ikpcb* pcb, fasl_port* p){ } else { /* allocate marks */ - p->marks = (ikptr*)(long)ik_mmap(pagesize*sizeof(ikptr*)); - bzero(p->marks, pagesize*sizeof(ikptr*)); - p->marks_size = pagesize; + p->marks = (ikptr*)(long)ik_mmap(2*pagesize*sizeof(ikptr*)); + bzero(p->marks, 2*pagesize*sizeof(ikptr*)); + p->marks_size = 2*pagesize; } } if(c == 'x'){