fix restore

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@498 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-05-28 16:26:00 +00:00
parent 85f1080071
commit b58dbff727
13 changed files with 282 additions and 194 deletions

View File

@@ -1453,7 +1453,7 @@ c_goal(Term Goal, int mod)
#endif
}
return;
} else if (p->PredFlags & BasicPredFlag) {
} else if (p->PredFlags & AsmPredFlag) {
int op = p->PredFlags & 0x7f;
if (profiling)
emit(enter_profiling_op, (CELL)p, Zero);
@@ -1600,7 +1600,7 @@ c_goal(Term Goal, int mod)
}
}
else {
if (p->PredFlags & (CPredFlag | BasicPredFlag)) {
if (p->PredFlags & (CPredFlag | AsmPredFlag)) {
#ifdef YAPOR
if (p->PredFlags & SyncPredFlag)
emit(sync_op, (CELL)p, (CELL)(p->ArityOfPE));