fix indexing of bignums (obs from Jos de Roo).

2010-05-14 12:42:30 +01:00
parent c2f84c9e28
commit fd9f4efe0b
8 changed files with 83 additions and 93 deletions
--- a/H/headclause.h
+++ b/H/headclause.h
@@ -567,8 +567,12 @@
      break;
    case _get_bigint:
      if (iarg == cl->u.xc.x) {
-	clause->Tag = AbsAppl((CELL *)FunctorBigInt);
-	clause->u.t_ptr = (CELL)NULL;
+	if (IsApplTerm(cl->u.xc.c)) {
+          CELL *pt = RepAppl(cl->u.xc.c);
+	  clause->Tag = AbsAppl((CELL *)pt[0]);
+	  clause->u.t_ptr = cl->u.xc.c;
+	} else
+	  clause->Tag = cl->u.xc.c;
 	return;
      }
      cl = NEXTOP(cl,xc);