fix related instructions.

This commit is contained in:
Vitor Santos Costa 2010-05-12 23:54:06 +01:00
parent 45fac6d7b5
commit 924e614857

View File

@ -6360,8 +6360,8 @@ Yap_absmi(int inp)
derefa_body(d0, pt0, udbterm_unk, udbterm_nonvar); derefa_body(d0, pt0, udbterm_unk, udbterm_nonvar);
BEGD(d1); BEGD(d1);
d1 = AbsAppl(PREG->u.oi.i); d1 = AbsAppl(PREG->u.oc.i);
PREG = NEXTOP(PREG, oi); PREG = NEXTOP(PREG, oc);
BIND_GLOBAL(pt0, d1, bind_udbterm); BIND_GLOBAL(pt0, d1, bind_udbterm);
#ifdef COROUTINING #ifdef COROUTINING
DO_TRAIL(pt0, d1); DO_TRAIL(pt0, d1);