fix maximum number of threads open error

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2158 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2008-03-24 23:48:47 +00:00
parent ba2023436a
commit c20c0f7767
6 changed files with 42 additions and 12 deletions
--- a/C/errors.c
+++ b/C/errors.c
@@ -1328,6 +1328,20 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
      serious = TRUE;
    }
    break;
+  case RESOURCE_ERROR_MAX_THREADS:
+    {
+      int i;
+      Term ti[1];
+
+      i = strlen(tmpbuf);
+      ti[0] = MkAtomTerm(Yap_LookupAtom("max_threads"));
+      nt[0] = Yap_MkApplTerm(Yap_MkFunctor(Yap_LookupAtom("resource_error"),1), 1, ti);
+      tp = tmpbuf+i;
+      psize -= i;
+      fun = Yap_MkFunctor(Yap_LookupAtom("error"),2);
+      serious = TRUE;
+    }
+    break;
  case SYNTAX_ERROR:
    {
      int i;