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

call UDI at abolish.

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-06-21 16:47:19 +01:00
parent 71eeda081c
commit c64d22311d
3 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/cdmgr.c
View File

@ -2633,6 +2633,9 @@ p_endconsult( USES_REGS1 )
static void
purge_clauses(PredEntry *pred)
{
if (pred->PredFlags & UDIPredFlag) {
Yap_udi_abolish(pred);
}
if (pred->cs.p_code.NOfClauses) {
if (pred->PredFlags & IndexedPredFlag)
RemoveIndexation(pred);

7
C/udi.c
View File

@ -148,6 +148,13 @@ Yap_udi_search(PredEntry *p)
return info->functions->search(info->cb);
}
/* index, called from absmi.c */
void
Yap_udi_abolish(PredEntry *p)
{
/* tell the predicate destroy */
}
void
Yap_udi_init(void)
{

1
H/Yapproto.h
View File

@ -377,6 +377,7 @@ void STD_PROTO(Yap_InitLowLevelTrace,(void));
/* udi.c */
void STD_PROTO(Yap_udi_init,(void));
void STD_PROTO(Yap_udi_abolish,(struct pred_entry *));
/* unify.c */
int STD_PROTO(Yap_rational_tree_loop, (CELL *, CELL *, CELL **, CELL **));