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

support new trail sus scheme

Browse Source
This commit is contained in:
Vitor Santos Costa 2017-07-30 22:10:12 +01:00
parent dac6dc7c22
commit a1b04dee3e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/gecode/gecode5_yap.cc
View File

@ -69,9 +69,9 @@ extern "C"
static YAP_opaque_tag_t gecode_space_tag; static YAP_opaque_tag_t gecode_space_tag;
static YAP_opaque_handler_t gecode_space_handler; static YAP_opaque_handler_t gecode_space_handler;
static YAP_Bool gecode_space_fail_handler(void* p) static YAP_Bool gecode_space_fail_handler(YAP_Term t)
{ {
delete *(GenericSpace**)p; delete *(GenericSpace **)YAP_OpaqueObjectFromTerm(YAP_HeadOfTerm(t));
return TRUE; return TRUE;
} }
@ -647,9 +647,9 @@ return BOOL_VAL_RND(Rnd());
return * (GenericEngine**) YAP_OpaqueObjectFromTerm(t); return * (GenericEngine**) YAP_OpaqueObjectFromTerm(t);
} }
static YAP_Bool gecode_engine_fail_handler(void* p) static YAP_Bool gecode_engine_fail_handler(YAP_Term t)
{ {
delete *(GenericEngine**)p; delete *(GenericEngine**)YAP_OpaqueObjectFromTerm(YAP_HeadOfTerm(t));
return TRUE; return TRUE;
} }
@ -1672,7 +1672,7 @@ return BOOL_VAL_RND(Rnd());
static YAP_opaque_tag_t gecode_tupleset_tag; static YAP_opaque_tag_t gecode_tupleset_tag;
static YAP_opaque_handler_t gecode_tupleset_handler; static YAP_opaque_handler_t gecode_tupleset_handler;
static YAP_Bool gecode_tupleset_fail_handler(void* p) static YAP_Bool gecode_tupleset_fail_handler(YAP_Term p)
{ {
return TRUE; return TRUE;
} }
@ -1720,7 +1720,7 @@ return BOOL_VAL_RND(Rnd());
static YAP_opaque_tag_t gecode_dfa_tag; static YAP_opaque_tag_t gecode_dfa_tag;
static YAP_opaque_handler_t gecode_dfa_handler; static YAP_opaque_handler_t gecode_dfa_handler;
static YAP_Bool gecode_dfa_fail_handler(void* p) static YAP_Bool gecode_dfa_fail_handler(YAP_Term p)
{ {
return TRUE; return TRUE;
} }