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

errors

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-09-21 15:00:58 -05:00
parent ea366ca22d
commit e70b7060d1
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
H/YapFlags.h
View File

@ -154,15 +154,13 @@ static Term synerr(Term inp) {
static inline Term filler(Term inp) { return inp; } static inline Term filler(Term inp) { return inp; }
static inline Term list_filler(Term inp) { static inline Term list_filler(Term inp) {
if (IsVarTerm(inp) || if (IsVarTerm(inp) || IsPairTerm(inp) || inp == TermNil)
IsPairTerm(inp) ||
inp == TermNil)
return inp; return inp;
Yap_Error(TYPE_ERROR_LIST, inp, Yap_Error(TYPE_ERROR_LIST, inp, "set_prolog_flag in {codes,string}");
"set_prolog_flag in {codes,string}");
return TermZERO; } return TermZERO;
}
static Term bqs(Term inp) { static Term bqs(Term inp) {
if (inp == TermCodes || inp == TermString || inp == TermSymbolChar) if (inp == TermCodes || inp == TermString || inp == TermSymbolChar)
@ -191,7 +189,9 @@ static inline Term isatom(Term inp) {
return TermZERO; return TermZERO;
} }
static inline Term options(Term inp) { return Yap_IsGroundTerm(inp) ? inp : TermZERO; } static inline Term options(Term inp) {
return Yap_IsGroundTerm(inp) ? inp : TermZERO;
}
// INLINE_ONLY inline EXTERN Term ok( Term inp ); // INLINE_ONLY inline EXTERN Term ok( Term inp );
@ -347,8 +347,7 @@ static inline Term getBackQuotesFlag(void) {
return GLOBAL_Flags[BACKQUOTED_STRING_FLAG].at; return GLOBAL_Flags[BACKQUOTED_STRING_FLAG].at;
} }
static inline Term static inline Term indexingMode(void) { return GLOBAL_Flags[INDEX_FLAG].at; }
indexingMode(void) { return GLOBAL_Flags[INDEX_FLAG].at; }
static inline const char *floatFormat(void) { static inline const char *floatFormat(void) {
return RepAtom(AtomOfTerm(GLOBAL_Flags[FLOAT_FORMAT_FLAG].at))->rep.uStrOfAE; return RepAtom(AtomOfTerm(GLOBAL_Flags[FLOAT_FORMAT_FLAG].at))->rep.uStrOfAE;
@ -358,9 +357,7 @@ static inline size_t indexingDepth(void) {
return IntOfTerm(GLOBAL_Flags[INDEX_SUB_TERM_SEARCH_DEPTH_FLAG].at); return IntOfTerm(GLOBAL_Flags[INDEX_SUB_TERM_SEARCH_DEPTH_FLAG].at);
} }
static inline Term gcTrace(void) { static inline Term gcTrace(void) { return GLOBAL_Flags[GC_TRACE_FLAG].at; }
return GLOBAL_Flags[GC_TRACE_FLAG].at;
}
Term Yap_UnknownFlag(Term mod); Term Yap_UnknownFlag(Term mod);