fix prolog_flags for chr.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1802 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-02-26 10:41:40 +00:00
parent 621e47f8a4
commit e10bb2a6ae
7 changed files with 46 additions and 17 deletions
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -3772,6 +3772,7 @@ 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) {