More bug fixes for overflow handling

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1165 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-10-26 20:16:18 +00:00
parent c3e3a72583
commit 3de4d0c6a5
13 changed files with 133 additions and 82 deletions

View File

@@ -1040,7 +1040,7 @@ SearchForTrailFault(void)
/* my_signal_info(SIGSEGV, HandleSIGSEGV); */
} else
#endif /* OS_HANDLES_TR_OVERFLOW */
Yap_Error(OUT_OF_TRAIL_ERROR, TermNil,
Yap_Error(FATAL_ERROR, TermNil,
"likely bug in YAP, segmentation violation");
}
@@ -1048,8 +1048,7 @@ static RETSIGTYPE
HandleSIGSEGV(int sig)
{
if (Yap_PrologMode & ExtendStackMode) {
fprintf(stderr, "%% YAP FATAL ERROR: OS memory allocation crashed: bailing out~n");
exit(1);
Yap_Error(FATAL_ERROR, TermNil, "OS memory allocation crashed at address %p, bailing out\n",Yap_TrailTop);
}
SearchForTrailFault();
}