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

make tabling compile

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1581 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-03-29 16:00:10 +00:00
parent 75b2645e3f
commit e3a987f38e
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
C/cdmgr.c
View File

@ -11,8 +11,11 @@
* File: cdmgr.c * * File: cdmgr.c *
* comments: Code manager * * comments: Code manager *
* * * *
* Last rev: $Date: 2006-03-24 16:26:26 $,$Author: vsc $ * * Last rev: $Date: 2006-03-29 16:00:10 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.182 2006/03/24 16:26:26 vsc
* code review
*
* Revision 1.181 2006/03/22 20:07:28 vsc * Revision 1.181 2006/03/22 20:07:28 vsc
* take better care of zombies * take better care of zombies
* *
@ -5378,7 +5381,11 @@ p_choicepoint_info(void)
switch (opnum) { switch (opnum) {
#ifdef TABLING #ifdef TABLING
case _table_load_answer: case _table_load_answer:
#ifdef LOW_LEVEL_TRACER
pe = LOAD_CP(cptr)->cp_pred_entry; pe = LOAD_CP(cptr)->cp_pred_entry;
#else
pe = UndefCode;
#endif
t = MkVarTerm(); t = MkVarTerm();
break; break;
case _table_try_answer: case _table_try_answer:
@ -5387,11 +5394,20 @@ p_choicepoint_info(void)
case _table_retry: case _table_retry:
case _table_trust: case _table_trust:
case _table_completion: case _table_completion:
#ifdef LOW_LEVEL_TRACER
pe = GEN_CP(cptr)->cp_pred_entry; pe = GEN_CP(cptr)->cp_pred_entry;
t = BuildActivePred(pe, (CELL *)(GEN_CP(B) + 1)); t = BuildActivePred(pe, (CELL *)(GEN_CP(B) + 1));
#else
pe = UndefCode;
t = MkVarTerm();
#endif
break; break;
case _table_answer_resolution: case _table_answer_resolution:
#ifdef LOW_LEVEL_TRACER
pe = CONS_CP(cptr)->cp_pred_entry; pe = CONS_CP(cptr)->cp_pred_entry;
#else
pe = UndefCode;
#endif
t = MkVarTerm(); t = MkVarTerm();
break; break;
case _trie_retry_null: case _trie_retry_null: