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

fix reaction to pe==NULL

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2082 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-02-07 23:30:23 +00:00
parent 83e941e4cf
commit 62c7d4aa8b
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
C/dbase.c
View File

@ -1943,10 +1943,11 @@ p_rcda(void)
return (FALSE);
pe = find_lu_entry(t1);
Yap_Error_Size = 0;
LOCK(pe->PELock);
restart_record:
if (pe) {
LogUpdClause *cl;
LOCK(pe->PELock);
cl = record_lu(pe, t2, MkFirst);
if (cl != NULL) {
TRAIL_CLREF(cl);
@ -1959,10 +1960,10 @@ p_rcda(void)
} else {
TRef = TermNil;
}
} else {
TRef = MkDBRefTerm(record(MkFirst, t1, t2, Unsigned(0)));
UNLOCK(pe->PELock);
} else {
TRef = 0L;
}
UNLOCK(pe->PELock);
if (Yap_Error_TYPE != YAP_NO_ERROR) {
if (recover_from_record_error(3)) {
t2 = Deref(ARG2);
@ -1971,6 +1972,8 @@ p_rcda(void)
return FALSE;
}
}
if (!pe)
return FALSE;
return Yap_unify(ARG3, TRef);
}
@ -2053,7 +2056,10 @@ p_rcdz(void)
Yap_Error_Size = 0;
restart_record:
if (pe) {
LogUpdClause *cl = record_lu(pe, t2, MkLast);
LogUpdClause *cl;
LOCK(pe->PELock);
cl = record_lu(pe, t2, MkLast);
if (cl != NULL) {
TRAIL_CLREF(cl);
#if defined(YAPOR) || defined(THREADS)
@ -2065,8 +2071,9 @@ p_rcdz(void)
} else {
TRef = TermNil;
}
} else {
TRef = MkDBRefTerm(record(MkLast, t1, t2, Unsigned(0)));
UNLOCK(pe->PELock);
} else {
TRef = 0L;
}
if (Yap_Error_TYPE != YAP_NO_ERROR) {
if (recover_from_record_error(3)) {
@ -2077,6 +2084,8 @@ p_rcdz(void)
return FALSE;
}
}
if (!pe)
return FALSE;
return Yap_unify(ARG3, TRef);
}