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

define Optype for xxc, for instructions whose constant argument is a term, like functor(a,X,T).

Browse Source
This commit is contained in:
Vitor Santos Costa
2009-12-06 00:37:48 +00:00
parent 7663a748a9
commit df2b11a6ec
6 changed files with 44 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
H/findclause.h
View File

@@ -798,6 +798,13 @@
}
cl = NEXTOP(cl,xx);
break;
case _p_func2s_cv:
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxc.x))) {
clause->Tag = (CELL)NULL;
return;
}
cl = NEXTOP(cl,xxc);
break;
case _p_and_vc:
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
clause->Tag = (CELL)NULL;
@@ -826,13 +833,6 @@
}
cl = NEXTOP(cl,xxn);
break;
case _p_func2s_cv:
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
clause->Tag = (CELL)NULL;
return;
}
cl = NEXTOP(cl,xxn);
break;
case _p_func2s_vc:
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
clause->Tag = (CELL)NULL;