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

some_recordedp never gets a third argument bound

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@726 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-12-11 16:08:35 +00:00
parent e4185f145c
commit 910e50d980
3 changed files with 11 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
C/dbase.c
View File

@ -3033,25 +3033,6 @@ p_somercdedp(void)
DBProp AtProp; DBProp AtProp;
Register Term twork = Deref(ARG1); /* initially working with Register Term twork = Deref(ARG1); /* initially working with
* ARG1 */ * ARG1 */
Term t3 = Deref(ARG3);
if (!IsVarTerm(t3)) {
if (!IsDBRefTerm(t3)) {
cut_fail();
} else {
DBRef ref = DBRefOfTerm(t3);
LOCK(ref->lock);
if (ref == NULL
|| DEAD_REF(ref)
|| !Yap_unify(ARG2,GetDBTerm(ref))
|| !UnifyDBKey(ref,CodeDBBit,ARG1)) {
UNLOCK(ref->lock);
cut_fail();
} else {
UNLOCK(ref->lock);
cut_succeed();
}
}
}
if (EndOfPAEntr(AtProp = FetchDBPropFromKey(twork, MkCode, FALSE, "some_recorded/3"))) { if (EndOfPAEntr(AtProp = FetchDBPropFromKey(twork, MkCode, FALSE, "some_recorded/3"))) {
return(FALSE); return(FALSE);
} }

13
pl/debug.yap
View File

@ -502,7 +502,7 @@ debugging :-
CP is '$last_choice_pt', CP is '$last_choice_pt',
functor(G,F,N), functor(G,F,N),
( (
user:'$meta_predicate'(F,M,N,_) -> '$meta_predicate'(F,M,N,_) ->
'$setflop'(1), '$setflop'(1),
'$creep', '$creep',
% I need to use call, otherwise I'll be in trouble if G % I need to use call, otherwise I'll be in trouble if G
@ -584,8 +584,15 @@ debugging :-
Next is Cl+1, '$set_value'(spy_cl,Next), fail Next is Cl+1, '$set_value'(spy_cl,Next), fail
). ).
'$do_creep_execute'(G,M,Cl) :- '$do_creep_execute'(G,M,Cl) :-
'$creep_execute'(G,M,Cl), '$leave_creep' ; (
'$leave_creep', Next is Cl+1, '$set_value'(spy_cl,Next), fail. '$creep_execute'(G,M,Cl),
'$leave_creep'
;
'$leave_creep',
Next is Cl+1,
'$set_value'(spy_cl,Next),
fail
).
'$do_creep_log_upd_execute'(G,M,Cl,Index) :- '$do_creep_log_upd_execute'(G,M,Cl,Index) :-
'$check_depth_for_interpreter'(D), '$check_depth_for_interpreter'(D),

2
pl/utils.yap
View File

@ -578,7 +578,7 @@ predicate_property(Pred,Prop) :-
\+ '$undefined'(P,M). \+ '$undefined'(P,M).
'$predicate_property'(P,M,_,meta_predicate(P)) :- '$predicate_property'(P,M,_,meta_predicate(P)) :-
functor(P,Na,Ar), functor(P,Na,Ar),
user:'$meta_predicate'(M,Na,Ar,P). '$meta_predicate'(M,Na,Ar,P).
'$predicate_property'(P,M,_,multifile) :- '$predicate_property'(P,M,_,multifile) :-
'$is_multifile'(P,M). '$is_multifile'(P,M).
'$predicate_property'(P,Mod,M,imported_from(Mod)) :- '$predicate_property'(P,Mod,M,imported_from(Mod)) :-