diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1595 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rslopes 2006-04-12 15:51:23 +00:00
parent 1ce0cdee55
commit 1c6cb0e8cf
2 changed files with 6 additions and 3 deletions

7
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

2
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)