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

yap flag no more

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-06-19 00:44:49 +01:00
parent 2f96a24a1f
commit 3e14ec4cb6
1 changed files with 2 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
C/c_interface.c
View File

@ -3808,26 +3808,9 @@ YAP_signal(int sig)
}
X_API int
YAP_SetYAPFlag(yap_flag_t flag, int val)
YAP_SetYAPFlag(Term flag, Term val)
{
switch (flag) {
case YAPC_ENABLE_GC:
if (val) {
Yap_PutValue(AtomGc, MkAtomTerm(AtomTrue));
} else {
Yap_PutValue(AtomGc, TermNil);
}
return TRUE;
case YAPC_ENABLE_AGC:
if (val) {
GLOBAL_AGcThreshold = 10000;
} else {
GLOBAL_AGcThreshold = 0;
}
return TRUE;
default:
return FALSE;
}
return setYapFlag( flag, val );
}