avoid compilation issues with lack of gmp (Remko Troncon)
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1528 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
		
							
								
								
									
										12
									
								
								C/absmi.c
									
									
									
									
									
								
							
							
						
						
									
										12
									
								
								C/absmi.c
									
									
									
									
									
								
							@@ -10,8 +10,11 @@
 | 
			
		||||
*									 *
 | 
			
		||||
* File:		absmi.c							 *
 | 
			
		||||
* comments:	Portable abstract machine interpreter                    *
 | 
			
		||||
* Last rev:     $Date: 2006-01-18 15:34:53 $,$Author: vsc $						 *
 | 
			
		||||
* Last rev:     $Date: 2006-01-26 19:13:24 $,$Author: vsc $						 *
 | 
			
		||||
* $Log: not supported by cvs2svn $
 | 
			
		||||
* Revision 1.193  2006/01/18 15:34:53  vsc
 | 
			
		||||
* avoid sideffects from MkBigInt
 | 
			
		||||
*
 | 
			
		||||
* Revision 1.192  2006/01/17 14:10:40  vsc
 | 
			
		||||
* YENV may be an HW register (breaks some tabling code)
 | 
			
		||||
* All YAAM instructions are now brackedted, so Op introduced an { and EndOp introduces an }. This is because Ricardo assumes that.
 | 
			
		||||
@@ -334,6 +337,8 @@ AritFunctorOfTerm(Term t) {
 | 
			
		||||
#define TMP_BIG(v)  Yap_BigTmp
 | 
			
		||||
#define RINT(v)     return(MkIntegerTerm(v))
 | 
			
		||||
#define RFLOAT(v)   return(MkFloatTerm(v))
 | 
			
		||||
#if USE_GMP
 | 
			
		||||
 | 
			
		||||
#define RBIG(v)     return(rbig(v))
 | 
			
		||||
 | 
			
		||||
static inline Term rbig(MP_INT *big)
 | 
			
		||||
@@ -342,6 +347,7 @@ static inline Term rbig(MP_INT *big)
 | 
			
		||||
  mpz_clear(big);
 | 
			
		||||
  return t;
 | 
			
		||||
}
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
#define RERROR()    return(TermNil)
 | 
			
		||||
 | 
			
		||||
@@ -1556,6 +1562,10 @@ Yap_absmi(int inp)
 | 
			
		||||
		ipc = NEXTOP(ipc,l);
 | 
			
		||||
		go_on = TRUE;
 | 
			
		||||
		break;
 | 
			
		||||
	      case _jump:
 | 
			
		||||
		ipc = ipc->u.l.l;
 | 
			
		||||
		go_on = TRUE;
 | 
			
		||||
		break;
 | 
			
		||||
	      case _retry_c:
 | 
			
		||||
	      case _retry_userc:
 | 
			
		||||
		low_level_trace(retry_pred, ipc->u.lds.p, B->cp_args);
 | 
			
		||||
 
 | 
			
		||||
@@ -425,7 +425,7 @@ get_num(int *chp, int *chbuffp, int inp_stream, int (*Nxtch) (int), int (*Quoted
 | 
			
		||||
{
 | 
			
		||||
  char *sp = s;
 | 
			
		||||
  int ch = *chp;
 | 
			
		||||
  Int val = 0, base = ch - '0';
 | 
			
		||||
  Int val = 0L, base = ch - '0';
 | 
			
		||||
  int might_be_float = TRUE, has_overflow = FALSE;
 | 
			
		||||
 | 
			
		||||
  *sp++ = ch;
 | 
			
		||||
 
 | 
			
		||||
@@ -16,6 +16,7 @@
 | 
			
		||||
 | 
			
		||||
<h2>Yap-5.1.0:</h2>
 | 
			
		||||
<ul>
 | 
			
		||||
<li> FIXED: make syntax error report the line where the bug was (Jude Shavlik).</li>
 | 
			
		||||
<li> FIXED: ok, MkBigInt shouldn't free the bigint.</li>
 | 
			
		||||
<li> FIXED: MkBigInt already frees bigint.</li>
 | 
			
		||||
<li> FIXED: don't pass a pointer to a mpz_t. (Nuno Fonseca)</li>
 | 
			
		||||
 
 | 
			
		||||
@@ -468,12 +468,12 @@ case "$target_os" in
 | 
			
		||||
          if test "$have_dl" = "yes"
 | 
			
		||||
	  then
 | 
			
		||||
	    SHLIB_SUFFIX=".so"
 | 
			
		||||
            SHLIB_LD="ld -shared"
 | 
			
		||||
            SHLIB_LD="ld -shared -export-dynamic"
 | 
			
		||||
            DO_SECOND_LD=""
 | 
			
		||||
	    LIBS="$LIBS -ldl"
 | 
			
		||||
	    case "$host_cpu" in
 | 
			
		||||
	      alpha*)
 | 
			
		||||
	        LDFLAGS="-export-dynamic $LDFLAGS"
 | 
			
		||||
	        LDFLAGS="-dynamic $LDFLAGS"
 | 
			
		||||
              ;;
 | 
			
		||||
              *)
 | 
			
		||||
	        if test "$CC" != "lcc"
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user