fix bug in unify_bigint (obs from Jos de Roo).

This commit is contained in:
Vitor Santos Costa 2010-05-12 23:48:37 +01:00
parent a4344f5bf6
commit 45fac6d7b5

View File

@ -6283,7 +6283,7 @@ Yap_absmi(int inp)
derefa_body(d0, pt0, ubigint_unk, ubigint_nonvar); derefa_body(d0, pt0, ubigint_unk, ubigint_nonvar);
BEGD(d1); BEGD(d1);
d1 = PREG->u.oc.c; d1 = PREG->u.oc.c;
PREG = NEXTOP(PREG, oi); PREG = NEXTOP(PREG, oc);
BIND_GLOBAL(pt0, d1, bind_ubigint); BIND_GLOBAL(pt0, d1, bind_ubigint);
#ifdef COROUTINING #ifdef COROUTINING
DO_TRAIL(pt0, d1); DO_TRAIL(pt0, d1);