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

fix some crashes on abort 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@307 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-17 19:42:50 +00:00
parent cd843ac559
commit b53ca0ed7b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/errors.c
View File

@ -315,7 +315,8 @@ Error (yap_error_number type, Term where, char *format,...)
/* disallow recursive error handling */
if (PrologMode & InErrorMode)
return(P);
where = Deref(where);
if (type != PURE_ABORT)
where = Deref(where);
if (IsVarTerm(where)) {
/* we must be careful someone gave us a copy to a local variable */
Term t = MkVarTerm();