fix atom gc to actually recover first atom in the chain.

2010-10-26 10:04:36 +01:00
parent ecd2fab52e
commit d0cd5f3fa3
3 changed files with 18 additions and 1 deletions
--- a/H/rheap.h
+++ b/H/rheap.h
@@ -391,7 +391,7 @@ RestoreAtoms(void)
    PtoAtomHashEntryAdjust(Yap_heap_regs->hash_chain);
  HashPtr = HashChain;
  for (i = 0; i < AtomHashTableSize; ++i) {
-    HashPtr->Entry = AtomAdjust(HashPtr->Entry);
+    HashPtr->Entry = NoAGCAtomAdjust(HashPtr->Entry);
    RestoreAtomList(HashPtr->Entry);
    HashPtr++;
  }