TABLING NEW: support to limit the table space size

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1355 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2005-08-04 15:45:56 +00:00
parent b8f1beec74
commit 34b2a0df4f
19 changed files with 545 additions and 319 deletions
--- a/C/errors.c
+++ b/C/errors.c
@@ -422,9 +422,13 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
      tmpbuf[0] = '\0';
    }
    if (Yap_PrologMode == UserCCallMode) {
+      fprintf(stderr,"%%\n%%\n");
      fprintf(stderr,"%% YAP OOOPS in USER C-CODE: %s.\n",tmpbuf);
+      fprintf(stderr,"%%\n%%\n");
    } else {
+      fprintf(stderr,"%%\n%%\n");
      fprintf(stderr,"%% YAP OOOPS: %s.\n",tmpbuf);
+      fprintf(stderr,"%%\n%%\n");
    }
    error_exit_yap (1);
  }