From 692a482adf8aa5069ace2800a94e29b20350529b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@xato.dcc.fc.up.pt>
Date: Fri, 19 Feb 2010 15:37:36 +0000
Subject: [PATCH] fix gc call while in meta-call.

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

diff --git a/C/absmi.c b/C/absmi.c
index f2eef87f6..e00160258 100644
--- a/C/absmi.c
+++ b/C/absmi.c
@@ -14297,11 +14297,11 @@ Yap_absmi(int inp)
 	  goto creep;
 	}
 	UNLOCK(SignalLock);
-	saveregs();
+	saveregs_and_ycache();
 	if (!Yap_gc(((PredEntry *)SREG)->ArityOfPE, ENV, NEXTOP(PREG, Osbpp))) {
 	  Yap_Error(OUT_OF_STACK_ERROR,TermNil,Yap_ErrorMessage);
 	}
-	setregs();
+	setregs_and_ycache();
 	goto execute_after_comma;
 	ENDCACHE_Y_AS_ENV();