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

add slots after new stack extension.

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-09-26 22:08:17 +01:00
parent 55f28a75ab
commit 710be1a5e8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/c_interface.c
View File

@ -2427,12 +2427,14 @@ YAP_RunGoal(Term t)
ENV = (CELL *)ENV[E_E]; ENV = (CELL *)ENV[E_E];
CP = old_CP; CP = old_CP;
LOCAL_AllowRestart = TRUE; LOCAL_AllowRestart = TRUE;
Yap_StartSlots( PASS_REGS1 );
} else { } else {
ENV = B->cp_env; ENV = B->cp_env;
B = B->cp_b; B = B->cp_b;
LOCAL_AllowRestart = FALSE; LOCAL_AllowRestart = FALSE;
} }
RECOVER_MACHINE_REGS(); RECOVER_MACHINE_REGS();
return out; return out;
} }
@ -2647,6 +2649,8 @@ YAP_PruneGoal(void)
{ {
POP_EXECUTE(); POP_EXECUTE();
} }
if (!B->cp_b)
break;
B = B->cp_b; B = B->cp_b;
} }
Yap_TrimTrail(); Yap_TrimTrail();
@ -2820,7 +2824,6 @@ YAP_WriteBuffer(Term t, char *buf, size_t sze, int flags)
X_API char * X_API char *
YAP_WriteDynamicBuffer(Term t, char *buf, size_t sze, size_t *lengthp, int *encp, int flags) YAP_WriteDynamicBuffer(Term t, char *buf, size_t sze, size_t *lengthp, int *encp, int flags)
{ {
int enc;
char *b; char *b;
BACKUP_MACHINE_REGS(); BACKUP_MACHINE_REGS();