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

fix creep handling

This commit is contained in:
Vítor Santos Costa 2014-09-08 17:12:05 -05:00
parent 87a0a7af74
commit 0a64e9f062
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/absmi.c
View File

@ -903,8 +903,10 @@ interrupt_fail( USES_REGS1 )
be recovered. automatically by fail, so
better wait.
*/
if (!Yap_has_a_signal() ||
Yap_has_signals( YAP_CDOVF_SIGNAL, YAP_CREEP_SIGNAL )) {
if (Yap_has_signal( YAP_CREEP_SIGNAL ) ) {
return FALSE;
}
if (Yap_has_signal( YAP_CDOVF_SIGNAL ) ) {
return FALSE;
}
/* make sure we have the correct environment for continuation */
@ -1207,8 +1209,7 @@ interrupt_dexecute( USES_REGS1 )
#endif
PP = P->y_u.pp.p0;
pe = P->y_u.pp.p;
if (Yap_get_signal(YAP_CREEP_SIGNAL) &&
(PP->ExtraPredFlags & (NoTracePredFlag|HiddenPredFlag))) {
if ((PP->ExtraPredFlags & (NoTracePredFlag|HiddenPredFlag)) && Yap_only_has_signal(YAP_CREEP_SIGNAL)) {
return 2;
}
/* set S for next instructions */