From fc8b265b66a459356561dad0e3ac7b88f4cb6ab0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Fri, 4 Nov 2011 02:51:52 +0000
Subject: [PATCH] ifix buildops

---
 H/findclause.h | 3 ++-
 H/headclause.h | 3 ++-
 misc/buildops  | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/H/findclause.h b/H/findclause.h
index 4a5c4199a..3ed05df81 100644
--- a/H/findclause.h
+++ b/H/findclause.h
@@ -671,7 +671,8 @@
       break;
     case _get_bigint:
       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;
       }
       cl = NEXTOP(cl,xN);
diff --git a/H/headclause.h b/H/headclause.h
index a24f4df35..efdec61d6 100644
--- a/H/headclause.h
+++ b/H/headclause.h
@@ -562,7 +562,8 @@
       break;
     case _get_bigint:
       if (iarg == cl->u.xN.x) {
-	clause->Tag = cl->u.xN.b;
+	clause->Tag = AbsAppl((CELL *)FunctorBigInt);
+	clause->u.t_ptr = (CELL)NULL;
 	return;
       }
       cl = NEXTOP(cl,xN);
diff --git a/misc/buildops b/misc/buildops
index 41343394b..39dc05a96 100644
--- a/misc/buildops
+++ b/misc/buildops
@@ -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_float",[bind("x","AbsAppl((CELL *)FunctorDouble)",t_ptr="d")]).
 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("unify_idb_term",[logical]).
 opinfo("put_atom",[new("x")]).