agc should not be called from gc

agc should not crash on tabled execution. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1851 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-03-18 23:09:12 +00:00
parent b55f58f05f
commit ce71569e66
2 changed files with 15 additions and 10 deletions
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -3772,7 +3772,6 @@ call_gc(UInt gc_lim, Int predarity, CELL *current_env, yamop *nextop)
      (ASP-H0)*sizeof(CELL) > gc_lim &&
      H-H0 > (LCL0-ASP)/2) {
    effectiveness = do_gc(predarity, current_env, nextop);
-    Yap_atom_gc();
    if (effectiveness < 0)
      return FALSE;
    if (effectiveness > 90) {