diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use "resource_error(threads)" instead of "resource_error(max_threads)" for compatibility with SWI-Prolog, XSB, and the latest ISO Prolog Threads DTR.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2162 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2008-03-25 01:04:27 +00:00
parent 47d7eee66d
commit fa73e89807
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/errors.c
View File

@ -1334,7 +1334,7 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
Term ti[1];
i = strlen(tmpbuf);
ti[0] = MkAtomTerm(Yap_LookupAtom("max_threads"));
ti[0] = MkAtomTerm(Yap_LookupAtom("threads"));
nt[0] = Yap_MkApplTerm(Yap_MkFunctor(Yap_LookupAtom("resource_error"),1), 1, ti);
tp = tmpbuf+i;
psize -= i;

4
pl/messages.yap
View File

@ -11,7 +11,7 @@
* File: utilities for displaying messages in YAP. *
* comments: error messages for YAP *
* *
* Last rev: $Date: 2008-03-24 23:48:47 $,$Author: vsc $ *
* Last rev: $Date: 2008-03-25 01:04:27 $,$Author: pmoura $ *
* *
* *
*************************************************************************/
@ -237,7 +237,7 @@ system_message(error(representation_error(character_code), Where)) -->
[ 'REPRESENTATION ERROR- ~w: expected character code' - [Where] ].
system_message(error(representation_error(max_arity), Where)) -->
[ 'REPRESENTATION ERROR- ~w: number too big' - [Where] ].
system_message(error(resource_error(max_threads), Where)) -->
system_message(error(resource_error(threads), Where)) -->
[ 'RESOURCE ERROR- too many open threads' - [Where] ].
system_message(error(syntax_error(G,0,Msg,[],0,0), _)) -->
[ 'SYNTAX ERROR: ~a' - [G,Msg] ].