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

make sure garbage collector goes to FAILCODE, not do a hard reset.

This commit is contained in:
Costa Vitor 2009-06-02 16:36:00 -05:00
parent 6714048c9d
commit f10dde5b90
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
C/heapgc.c
View File

@ -3974,17 +3974,8 @@ LeaveGCMode()
Yap_PrologMode &= ~GCMode;
if (Yap_PrologMode & AbortMode) {
Yap_PrologMode &= ~AbortMode;
Yap_Error(PURE_ABORT, TermNil, "");
/* in case someone mangles the P register */
save_machine_regs();
#if _MSC_VER || defined(__MINGW32__)
/* don't even think about trying this */
#else
#if PUSH_REGS
restore_absmi_regs(&Yap_standard_regs);
#endif
siglongjmp (Yap_RestartEnv, 1);
#endif
Yap_Error(PURE_ABORT, TermNil, "");
P = FAILCODE;
}
}