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

fix unnecessary dereferencing.

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-01-08 13:09:31 +00:00
parent 2a44a0205b
commit f7adcf9b44
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/absmi.c
View File

@ -3668,9 +3668,8 @@ Yap_absmi(int inp)
SREG++; SREG++;
BEGP(pt0); BEGP(pt0);
deref_head(d0, gatom_exo_unk); if (IsVarTerm(d0))
/* argument is nonvar */ goto gatom_exo_var;
gatom_exo_nonvar:
if (d0 == d1) { if (d0 == d1) {
PREG = NEXTOP(PREG, x); PREG = NEXTOP(PREG, x);
GONext(); GONext();
@ -3679,8 +3678,9 @@ Yap_absmi(int inp)
FAIL(); FAIL();
} }
deref_body(d0, pt0, gatom_exo_unk, gatom_exo_nonvar); gatom_exo_var:
/* argument is a variable */ /* argument is a variable */
pt0 = (CELL *)d0;
PREG = NEXTOP(PREG, x); PREG = NEXTOP(PREG, x);
Bind(pt0, d1); Bind(pt0, d1);
GONext(); GONext();