From 1709fbded4eb53188f1a7cffd8b91ed2370e45d6 Mon Sep 17 00:00:00 2001 From: vsc Date: Mon, 17 Feb 2003 10:36:40 +0000 Subject: [PATCH] call the garbage collector properly. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@783 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/absmi.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C/absmi.c b/C/absmi.c index 8f044ae90..43bb5882b 100644 --- a/C/absmi.c +++ b/C/absmi.c @@ -11897,7 +11897,7 @@ Yap_absmi(int inp) if (CFREG != CalculateStackGap()) goto creep; saveregs(); - if (!Yap_gc(((PredEntry *)SREG)->ArityOfPE, YREG, NEXTOP(PREG, sla))) { + if (!Yap_gc(((PredEntry *)SREG)->ArityOfPE, ENV, NEXTOP(PREG, sla))) { Yap_Error(OUT_OF_STACK_ERROR,TermNil,Yap_ErrorMessage); } setregs(); @@ -12124,7 +12124,7 @@ Yap_absmi(int inp) if (ASP > (CELL *)B) ASP = (CELL *)B; saveregs(); - if (!Yap_gc(((PredEntry *)SREG)->ArityOfPE, YREG, NEXTOP(PREG, sla))) { + if (!Yap_gc(((PredEntry *)SREG)->ArityOfPE, ENV, NEXTOP(PREG, sla))) { Yap_Error(OUT_OF_STACK_ERROR,TermNil,Yap_ErrorMessage); } setregs();