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

indexing code was not looking at tabled code.

Browse Source
This commit is contained in:
Vítor Santos Costa 2009-02-09 23:34:12 +00:00
parent 33b4a02fae
commit c750dd94f1
4 changed files with 8 additions and 2297 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/stdpreds.c
View File

@ -3511,7 +3511,7 @@ p_access_yap_flags(void)
if (IsMode_SchedulingOn(yap_flags[flag])) { if (IsMode_SchedulingOn(yap_flags[flag])) {
Term taux = tout; Term taux = tout;
if (IsMode_Local(yap_flags[flag])) if (IsMode_Local(yap_flags[flag]))
tout = MkAtomTerm(Yap_AtomLocalA); tout = MkAtomTerm(AtomLocalA);
else else
tout = MkAtomTerm(AtomBatched); tout = MkAtomTerm(AtomBatched);
if (n) { if (n) {

1147
H/findclause.h
View File

File diff suppressed because it is too large Load Diff

1147
H/headclause.h
View File

File diff suppressed because it is too large Load Diff

9
misc/buildops
View File

@ -605,14 +605,6 @@ dump_head_action(logical, _, _, L) :-
} }
return;~n', []). return;~n', []).
handle_bind_extra([], _, "").
handle_bind_extra(t_ptr=[], _,S) :- !,
format_to_chars("~n clause->u.t_ptr = (CELL)NULL;",[],S).
handle_bind_extra(t_ptr=F, Type, S) :-
format_to_chars("~n clause->u.t_ptr = AbsAppl(cl->u.~s.~s);",[Type,F],S).
handle_bind_extra(workpc=nextop, T,S) :-
format_to_chars("~n clause->u.WorkPC = NEXTOP(cl,~s);",[T],S).
/* or_last requires special handling */ /* or_last requires special handling */
footer(W) :- footer(W) :-
format(W,' /* this instruction is hardwired */~n',[]), format(W,' /* this instruction is hardwired */~n',[]),
@ -1017,5 +1009,6 @@ opinfo("run_eam",[body]).
opinfo("retry_eam",[body]). opinfo("retry_eam",[body]).
opinfo("alloc_for_logical_pred",[body]). opinfo("alloc_for_logical_pred",[body]).
opinfo("deallocate",[body]). opinfo("deallocate",[body]).
opinfo("table_try_single",[]).