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);
BEGD(d1);
d1 = AbsAppl(PREG->u.oi.i);
PREG = NEXTOP(PREG, oi);
d1 = AbsAppl(PREG->u.oc.i);
PREG = NEXTOP(PREG, oc);
BIND_GLOBAL(pt0, d1, bind_udbterm);
#ifdef COROUTINING
DO_TRAIL(pt0, d1);