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

speed up fail on undef

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-03 01:03:37 +00:00
parent 60a8efb467
commit 3d0e6659b6
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/absmi.c
View File

@ -1329,11 +1329,6 @@ interrupt_dexecute( USES_REGS1 )
static void static void
undef_goal( USES_REGS1 ) undef_goal( USES_REGS1 )
{ {
if ( !UndefCode ||
UndefCode->OpcodeOfPred == FAIL_OPCODE) {
P = FAILCODE;
return;
}
PredEntry *pe = PredFromDefCode(P); PredEntry *pe = PredFromDefCode(P);
BEGD(d0); BEGD(d0);
/* avoid trouble with undefined dynamic procedures */ /* avoid trouble with undefined dynamic procedures */
@ -1345,7 +1340,7 @@ undef_goal( USES_REGS1 )
} }
#endif #endif
if ((pe->PredFlags & (DynamicPredFlag|LogUpdatePredFlag|MultiFileFlag)) || if ((pe->PredFlags & (DynamicPredFlag|LogUpdatePredFlag|MultiFileFlag)) ||
!UndefCode || CurrentModule == PROLOG_MODULE ||
(UndefCode->OpcodeOfPred == UNDEF_OPCODE)) { (UndefCode->OpcodeOfPred == UNDEF_OPCODE)) {
#if defined(YAPOR) || defined(THREADS) #if defined(YAPOR) || defined(THREADS)
UNLOCKPE(19,PP); UNLOCKPE(19,PP);