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

change abort so that it won't be caught by handlers.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1179 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-11-19 21:32:53 +00:00
parent 0070c26061
commit 7d245377a3
6 changed files with 28 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
C/errors.c
View File

@@ -434,8 +434,8 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
error_exit_yap (1);
}
case PURE_ABORT:
nt[0] = MkAtomTerm(Yap_LookupAtom(tmpbuf));
fun = Yap_MkFunctor(Yap_LookupAtom("abort"),2);
fprintf(stderr,"%% YAP execution aborted.\n");
fun = FunctorVar;
serious = TRUE;
break;
case CALL_COUNTER_UNDERFLOW:
@@ -1614,7 +1614,7 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
}
if (serious) {
if (type == PURE_ABORT)
Yap_JumpToEnv(MkAtomTerm(Yap_LookupAtom("abort")));
Yap_JumpToEnv(MkAtomTerm(Yap_LookupAtom("$abort")));
else
Yap_JumpToEnv(Yap_MkApplTerm(fun, 2, nt));
P = (yamop *)FAILCODE;