garbage collection fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1139 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-09-16 17:29:08 +00:00
parent 921e576877
commit 3d308525e0
7 changed files with 461 additions and 94 deletions
--- a/C/bignum.c
+++ b/C/bignum.c
@@ -186,7 +186,11 @@ Yap_MkBigIntTerm(MP_INT *big)
    ret[0] = (CELL)FunctorBigInt;
    memmove((void *)new, (const void *)(big->_mp_d), nlimbs*CellSize);
    H = (CELL *)(new+nlimbs);
+#if GC_NO_TAGS
+    H[0] = (H-ret)*sizeof(CELL)+EndSpecials;
+#else
    H[0] = ((H-ret)*sizeof(CELL)+EndSpecials)|MBIT;
+#endif
    H++;
    pre_alloc_base = NULL;
    return(AbsAppl(ret));