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

more cleanups

Browse Source
This commit is contained in:
Vitor Santos Costa
2013-11-15 15:45:55 +00:00
parent 45f91c9d42
commit 9eb07a8c8a
16 changed files with 87 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
C/stdpreds.c
View File

@@ -273,6 +273,7 @@ static char SccsId[] = "%W% %G%";
#include "YapHeap.h"
#include "eval.h"
#include "yapio.h"
#include "pl-shared.h"
#ifdef TABLING
#include "tab.macros.h"
#endif /* TABLING */
@@ -330,6 +331,7 @@ static Int p_runtime( USES_REGS1 );
static Int p_walltime( USES_REGS1 );
static Int p_access_yap_flags( USES_REGS1 );
static Int p_set_yap_flags( USES_REGS1 );
static Int p_break( USES_REGS1 );
#ifdef BEAM
Int use_eam( USES_REGS1 );
@@ -1659,11 +1661,6 @@ p_set_yap_flags( USES_REGS1 )
}
yap_flags[LANGUAGE_MODE_FLAG] = value;
break;
case STRICT_ISO_FLAG:
if (value != 0 && value != 1)
return(FALSE);
yap_flags[STRICT_ISO_FLAG] = value;
break;
case SOURCE_MODE_FLAG:
if (value != 0 && value != 1)
return(FALSE);
@@ -1837,13 +1834,17 @@ p_loop( USES_REGS1 ) {
static Int
p_max_tagged_integer( USES_REGS1 ) {
return Yap_unify(ARG1, MkIntTerm(MAX_ABS_INT-((CELL)1)));
}
static Int
p_min_tagged_integer( USES_REGS1 ) {
return Yap_unify(ARG1, MkIntTerm(-MAX_ABS_INT));
p_break( USES_REGS1 ) {
Atom at = AtomOfTerm(Deref( ARG1 ));
if (at == AtomTrue) {
LOCAL_PL_local_data_p->break_level++;
return TRUE;
}
if (at == AtomFalse) {
LOCAL_PL_local_data_p->break_level--;
return TRUE;
}
return FALSE;
}
void
@@ -1922,8 +1923,7 @@ Yap_InitCPreds(void)
Yap_InitCPred("$set_yap_flags", 2, p_set_yap_flags, SafePredFlag|SyncPredFlag);
Yap_InitCPred("$p_system_mode", 1, p_system_mode, SafePredFlag|SyncPredFlag);
Yap_InitCPred("abort", 0, p_abort, SyncPredFlag);
Yap_InitCPred("$max_tagged_integer", 1, p_max_tagged_integer, SafePredFlag);
Yap_InitCPred("$min_tagged_integer", 1, p_min_tagged_integer, SafePredFlag);
Yap_InitCPred("$break", 1, p_break, SafePredFlag);
#ifdef BEAM
Yap_InitCPred("@", 0, eager_split, SafePredFlag);
Yap_InitCPred(":", 0, force_wait, SafePredFlag);