From 0424bf64034fdba4f32b707726831ffca8d1edeb Mon Sep 17 00:00:00 2001
From: ubu32 <vitor@ubuntu.(none)>
Date: Sat, 9 Jul 2011 09:16:02 -0700
Subject: [PATCH] fix bad call to garbage collector.

---
 C/absmi.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/C/absmi.c b/C/absmi.c
index 810216f1a..5dd3b05ee 100755
--- a/C/absmi.c
+++ b/C/absmi.c
@@ -1683,7 +1683,6 @@ Yap_absmi(int inp)
       {
 	Int sz =  PREG->u.Osbpi.i; 
 	UInt arity = PREG->u.Osbpi.p->ArityOfPE;
-	PREG = NEXTOP(PREG,Osbpi);
 	if (Unsigned(H) + sz > Unsigned(YREG)-CreepFlag) {
 	  YENV[E_CP] = (CELL) CPREG;
 	  YENV[E_E] = (CELL) ENV;
@@ -1691,6 +1690,7 @@ Yap_absmi(int inp)
 	  YENV[E_DEPTH] = DEPTH;
 #endif	/* DEPTH_LIMIT */
 	  SET_ASP(YREG, PREG->u.Osbpi.s);
+	  PREG = NEXTOP(PREG,Osbpi);
 	  saveregs();
 	  if (!Yap_gcl(sz, arity, YENV, PREG)) {
 	    Yap_Error(OUT_OF_STACK_ERROR,TermNil,LOCAL_ErrorMessage);
@@ -1699,7 +1699,9 @@ Yap_absmi(int inp)
 	  } else {
 	    setregs();
 	  }
-	} 
+	} else {
+	  PREG = NEXTOP(PREG,Osbpi);
+	}
       }
       JMPNext();
       ENDBOp();