add new eval compiler

fix garbage collector for new big allocation scheme.
This commit is contained in:
Vítor Santos Costa
2008-12-05 16:08:44 +00:00
parent 8bcafd417a
commit 2e8d898e86
4 changed files with 21 additions and 20 deletions

View File

@@ -1346,7 +1346,7 @@ mark_variable(CELL_PTR current)
POP_CONTINUATION();
case (CELL)FunctorBigInt:
{
UInt sz = (sizeof(MP_INT)+1+
UInt sz = (sizeof(MP_INT)+CellSize+
((MP_INT *)(next+2))->_mp_alloc*sizeof(mp_limb_t))/CellSize;
MARK(next);
/* size is given by functor + friends */