make sure garbage collector goes to FAILCODE, not do a hard reset.
This commit is contained in:
parent
6714048c9d
commit
f10dde5b90
13
C/heapgc.c
13
C/heapgc.c
@ -3974,17 +3974,8 @@ LeaveGCMode()
|
|||||||
Yap_PrologMode &= ~GCMode;
|
Yap_PrologMode &= ~GCMode;
|
||||||
if (Yap_PrologMode & AbortMode) {
|
if (Yap_PrologMode & AbortMode) {
|
||||||
Yap_PrologMode &= ~AbortMode;
|
Yap_PrologMode &= ~AbortMode;
|
||||||
Yap_Error(PURE_ABORT, TermNil, "");
|
Yap_Error(PURE_ABORT, TermNil, "");
|
||||||
/* in case someone mangles the P register */
|
P = FAILCODE;
|
||||||
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
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user