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

fix instance on database

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-03-10 16:38:01 +00:00
parent 504ad22f92
commit 562372bb5a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/dbase.c
View File

@ -1893,7 +1893,6 @@ record_lu(PredEntry *pe, Term t, int position)
return NULL; return NULL;
} }
{ {
CACHE_REGS
Yap_inform_profiler_of_clause(cl, (char *)cl+cl->ClSize, pe, GPROF_NEW_LU_CLAUSE); Yap_inform_profiler_of_clause(cl, (char *)cl+cl->ClSize, pe, GPROF_NEW_LU_CLAUSE);
} }
Yap_add_logupd_clause(pe, cl, (position == MkFirst ? 2 : 0)); Yap_add_logupd_clause(pe, cl, (position == MkFirst ? 2 : 0));
@ -4740,7 +4739,13 @@ p_instance( USES_REGS1 )
YENV = ASP; YENV = ASP;
YENV[E_CB] = (CELL) B; YENV[E_CB] = (CELL) B;
P = cl->ClCode; P = cl->ClCode;
#if defined(YAPOR) || defined(THREADS)
if (ap->PredFlags & ThreadLocalPredFlag) {
UNLOCK(ap->PELock); UNLOCK(ap->PELock);
} else {
PP = ap;
}
#endif
return TRUE; return TRUE;
} }
} }