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

changes to support extended foreign interface (include slots, new exception

Browse Source 
handling for C-code, and several fixes to calling foreign code).


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@470 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-05-14 18:24:34 +00:00
parent 5bad222cfa
commit 86e4a99d73
20 changed files with 4868 additions and 1859 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
C/dbase.c
View File

@@ -3287,8 +3287,8 @@ MyEraseClause(Clause *clau)
}
if ( P == clau->ClCode) {
yamop *nextto;
P = (yamop *)(RTRYCODE);
nextto = (yamop *)RTRYCODE;
P = RTRYCODE;
nextto = RTRYCODE;
nextto->u.ld.d = clau->ClCode->u.ld.d;
nextto->u.ld.s = clau->ClCode->u.ld.s;
nextto->u.ld.p = clau->ClCode->u.ld.p;
@@ -3305,7 +3305,7 @@ MyEraseClause(Clause *clau)
if (DBREF_IN_USE(ref))
return;
if ( P == clau->ClCode ) {
yamop *np = (yamop *)RTRYCODE;
yamop *np = RTRYCODE;
/* make it the next alternative */
np->u.ld.d = (CODEADDR)find_next_clause((DBRef)(NEXTOP(P,ld)->u.sla.l2));
if (np->u.ld.d == NULL)