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

protect base choice-point from nasty cutting.

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-04-13 00:31:25 +01:00
parent e605da8685
commit 661b9c3b7d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/c_interface.c
View File

@ -1943,7 +1943,7 @@ YAP_RestartGoal(void)
{
int out;
BACKUP_MACHINE_REGS();
if (Yap_AllowRestart) {
P = (yamop *)FAILCODE;
do_putcf = myputc;
@ -2023,7 +2023,9 @@ YAP_PruneGoal(void)
B = B->cp_b;
}
Yap_TrimTrail();
B = B->cp_b;
/* make sure that we do not destroy the guard choice-point */
if (Yap_op_from_opcode(B->cp_ap->opc) != _Nstop)
B = B->cp_b;
RECOVER_B();
}
@ -2619,6 +2621,7 @@ YAP_Reset(void)
}
/* reinitialise the engine */
Yap_InitYaamRegs();
Yap_Initialised = TRUE;
RECOVER_MACHINE_REGS();
return(TRUE);