fix big int indexing
This commit is contained in:
parent
016cd42226
commit
29dc250a66
@ -428,6 +428,8 @@ write_functor(Functor f)
|
|||||||
Yap_DebugPlWrite(MkAtomTerm(AtomDBREF));
|
Yap_DebugPlWrite(MkAtomTerm(AtomDBREF));
|
||||||
} else if (f == FunctorLongInt) {
|
} else if (f == FunctorLongInt) {
|
||||||
Yap_DebugPlWrite(MkAtomTerm(AtomLONGINT));
|
Yap_DebugPlWrite(MkAtomTerm(AtomLONGINT));
|
||||||
|
} else if (f == FunctorBigInt) {
|
||||||
|
Yap_DebugPlWrite(MkAtomTerm(AtomLONGINT));
|
||||||
} else if (f == FunctorDouble) {
|
} else if (f == FunctorDouble) {
|
||||||
Yap_DebugPlWrite(MkAtomTerm(AtomDOUBLE));
|
Yap_DebugPlWrite(MkAtomTerm(AtomDOUBLE));
|
||||||
}
|
}
|
||||||
|
@ -671,7 +671,8 @@
|
|||||||
break;
|
break;
|
||||||
case _get_bigint:
|
case _get_bigint:
|
||||||
if (is_regcopy(myregs, nofregs, cl->u.xN.x)) {
|
if (is_regcopy(myregs, nofregs, cl->u.xN.x)) {
|
||||||
clause->Tag = cl->u.xN.b;
|
clause->Tag = AbsAppl((CELL *)FunctorBigInt);
|
||||||
|
clause->u.t_ptr = (CELL)NULL;
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
cl = NEXTOP(cl,xN);
|
cl = NEXTOP(cl,xN);
|
||||||
|
@ -562,7 +562,8 @@
|
|||||||
break;
|
break;
|
||||||
case _get_bigint:
|
case _get_bigint:
|
||||||
if (iarg == cl->u.xN.x) {
|
if (iarg == cl->u.xN.x) {
|
||||||
clause->Tag = cl->u.xN.b;
|
clause->Tag = AbsAppl((CELL *)FunctorBigInt);
|
||||||
|
clause->u.t_ptr = (CELL)NULL;
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
cl = NEXTOP(cl,xN);
|
cl = NEXTOP(cl,xN);
|
||||||
|
@ -877,7 +877,7 @@ opinfo("gl_void_vary",[bind("y","AbsPair(NULL)",workpc=currentop),new("y")]).
|
|||||||
opinfo("get_struct",[bind("x","AbsAppl((CELL *)cl->u.xfa.f)",workpc=nextop)]).
|
opinfo("get_struct",[bind("x","AbsAppl((CELL *)cl->u.xfa.f)",workpc=nextop)]).
|
||||||
opinfo("get_float",[bind("x","AbsAppl((CELL *)FunctorDouble)",t_ptr="d")]).
|
opinfo("get_float",[bind("x","AbsAppl((CELL *)FunctorDouble)",t_ptr="d")]).
|
||||||
opinfo("get_longint",[bind("x","AbsAppl((CELL *)FunctorLongInt)",t_ptr="i")]).
|
opinfo("get_longint",[bind("x","AbsAppl((CELL *)FunctorLongInt)",t_ptr="i")]).
|
||||||
opinfo("get_bigint",[bind("x","b",[])]).
|
opinfo("get_bigint",[bind("x","AbsAppl((CELL *)FunctorBigInt)",t_ptr=[])]).
|
||||||
opinfo("copy_idb_term",[logical]).
|
opinfo("copy_idb_term",[logical]).
|
||||||
opinfo("unify_idb_term",[logical]).
|
opinfo("unify_idb_term",[logical]).
|
||||||
opinfo("put_atom",[new("x")]).
|
opinfo("put_atom",[new("x")]).
|
||||||
|
Reference in New Issue
Block a user