From 1c6cb0e8cf6d87743bf46ef211307e26f1d9c691 Mon Sep 17 00:00:00 2001 From: rslopes Date: Wed, 12 Apr 2006 15:51:23 +0000 Subject: [PATCH] small fixes git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1595 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/absmi.c | 7 +++++-- C/arith2.c | 2 +- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/C/absmi.c b/C/absmi.c index 7fc7b4d8d..0c199c953 100644 --- a/C/absmi.c +++ b/C/absmi.c @@ -10,8 +10,11 @@ * * * File: absmi.c * * comments: Portable abstract machine interpreter * -* Last rev: $Date: 2006-03-30 01:11:09 $,$Author: vsc $ * +* Last rev: $Date: 2006-04-12 15:51:23 $,$Author: rslopes $ * * $Log: not supported by cvs2svn $ +* Revision 1.198 2006/03/30 01:11:09 vsc +* fix nasty variable shunting bug in garbage collector :-(:wq +* * Revision 1.197 2006/03/24 17:13:41 rslopes * New update to BEAM engine. * BEAM now uses YAP Indexing (JITI) @@ -348,7 +351,7 @@ AritFunctorOfTerm(Term t) { } } -#define TMP_BIG(v) Yap_BigTmp +#define TMP_BIG() Yap_BigTmp #define RINT(v) return(MkIntegerTerm(v)) #define RFLOAT(v) return(MkFloatTerm(v)) #if USE_GMP diff --git a/C/arith2.c b/C/arith2.c index f99d95687..49e490985 100644 --- a/C/arith2.c +++ b/C/arith2.c @@ -32,7 +32,7 @@ static char SccsId[] = "%W% %G%"; #define E_ARGS , arith_retptr o #define USE_E_ARGS , o -#define TMP_BIG() (o)->big +#define TMP_BIG() ((o)->big) #define RINT(v) (o)->Int = (v); return(long_int_e) #define RFLOAT(v) (o)->dbl = (v); return(double_e) #define RBIG(v) return(big_int_e)