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

indenting

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-03-05 12:21:58 +00:00
parent 52f949d3f9
commit 001b169d81
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C/cdmgr.c
View File

@ -2393,7 +2393,7 @@ static Int p_is_multifile(USES_REGS1) { /* '$is_multifile'(+S,+Mod) */
return (out); return (out);
} }
static Int p_new_system_predicate( static Int new_system_predicate(
USES_REGS1) { /* '$new_system_predicate'(+N,+Ar,+Mod) */ USES_REGS1) { /* '$new_system_predicate'(+N,+Ar,+Mod) */
Atom at; Atom at;
arity_t arity; arity_t arity;
@ -2423,9 +2423,9 @@ static Int p_new_system_predicate(
UNLOCKPE(43, pe); UNLOCKPE(43, pe);
return false; return false;
} }
pe->PredFlags |= StandardPredFlag; pe->PredFlags |= (StandardPredFlag);
UNLOCKPE(43, pe); UNLOCKPE(43, pe);
return (TRUE); return (true);
} }
static Int static Int
@ -2434,7 +2434,7 @@ static Int
bool out; bool out;
pe = get_pred(Deref(ARG1), Deref(ARG2), "system_predicate"); pe = get_pred(Deref(ARG1), Deref(ARG2), "system_predicate");
if (EndOfPAEntr(pe) || pe->OpcodeOfPred == UNDEF_OPCODE) if (EndOfPAEntr(pe))
return FALSE; return FALSE;
PELOCK(27, pe); PELOCK(27, pe);
out = (pe->PredFlags & SystemPredFlags); out = (pe->PredFlags & SystemPredFlags);
@ -4593,7 +4593,7 @@ void Yap_InitCdMgr(void) {
SafePredFlag | SyncPredFlag); SafePredFlag | SyncPredFlag);
Yap_InitCPred("$is_multifile", 2, p_is_multifile, Yap_InitCPred("$is_multifile", 2, p_is_multifile,
TestPredFlag | SafePredFlag); TestPredFlag | SafePredFlag);
Yap_InitCPred("$new_system_predicate", 3, p_new_system_predicate, Yap_InitCPred("$new_system_predicate", 3, new_system_predicate,
SafePredFlag | SyncPredFlag); SafePredFlag | SyncPredFlag);
Yap_InitCPred("$is_system_predicate", 2, p_is_system_predicate, Yap_InitCPred("$is_system_predicate", 2, p_is_system_predicate,
TestPredFlag | SafePredFlag); TestPredFlag | SafePredFlag);

3
C/errors.c
View File

@ -727,11 +727,8 @@ void
Yap_InitErrorPreds( void ) Yap_InitErrorPreds( void )
{ {
CACHE_REGS CACHE_REGS
Term cm = CurrentModule;
CurrentModule = ERROR_MODULE;
Yap_InitCPred("is_boolean", 2, is_boolean, TestPredFlag); Yap_InitCPred("is_boolean", 2, is_boolean, TestPredFlag);
Yap_InitCPred("is_callable", 2, is_callable, TestPredFlag); Yap_InitCPred("is_callable", 2, is_callable, TestPredFlag);
Yap_InitCPred("is_atom", 2, is_atom, TestPredFlag); Yap_InitCPred("is_atom", 2, is_atom, TestPredFlag);
Yap_InitCPred("is_predicate_indicator", 2, is_predicate_indicator, TestPredFlag); Yap_InitCPred("is_predicate_indicator", 2, is_predicate_indicator, TestPredFlag);
CurrentModule = cm;
} }