diff --git a/C/arith1.c b/C/arith1.c index 8a694c12b..f8f68599c 100644 --- a/C/arith1.c +++ b/C/arith1.c @@ -217,7 +217,7 @@ p_uminus(Term t E_ARGS) { MP_INT *new = TMP_BIG(); - MPZ_SET(new, Yap_BigIntOfTerm(t)); + mpz_init_set(new, Yap_BigIntOfTerm(t)); mpz_neg(new, new); RBIG(new); } @@ -233,9 +233,14 @@ p_uminus(Term t E_ARGS) RFLOAT(-v.dbl); #ifdef USE_GMP case big_int_e: - mpz_neg(v.big, v.big); - fprintf(stderr,"Here I am %p\n", v.big); - RBIG(v.big); + { + MP_INT *new = TMP_BIG(); + + mpz_init_set(new, v.big); + mpz_neg(new, new); + mpz_clear(v.big); + RBIG(new); + } #endif default: /* Error */ @@ -378,6 +383,7 @@ p_log(Term t E_ARGS) dbl = v.dbl; break; #ifdef USE_GMP + case big_int_e: dbl = mpz_get_d(v.big); mpz_clear(v.big); break; diff --git a/C/errors.c b/C/errors.c index cbd2f200a..779e347e1 100644 --- a/C/errors.c +++ b/C/errors.c @@ -269,7 +269,7 @@ dump_stack(void) #if DEBUG fprintf(stderr,"%% YAP regs: P=%p, CP=%p, ASP=%p, H=%p, TR=%p, HeapTop=%p\n",P,CP,ASP,H,TR,HeapTop); - fprintf(stderr,"%% YAP mode: %ux\n",(unsigned long int)Yap_PrologMode); + fprintf(stderr,"%% YAP mode: %ux\n",(unsigned int)Yap_PrologMode); if (Yap_ErrorMessage) fprintf(stderr,"%% YAP_ErrorMessage: %s\n",Yap_ErrorMessage); #endif diff --git a/C/eval.c b/C/eval.c index 74cc498b8..a22656a12 100644 --- a/C/eval.c +++ b/C/eval.c @@ -182,9 +182,11 @@ Yap_Eval(Term t, E_ARGS) P = (yamop *)FAILCODE; RERROR(); } - if (n == 1) - return(p->FOfEE.unary(ArgOfTerm(1,t), USE_E_ARGS)); - return(p->FOfEE.binary(ArgOfTerm(1,t),ArgOfTerm(2,t), USE_E_ARGS)); + if (n == 1) { + return p->FOfEE.unary(ArgOfTerm(1,t), USE_E_ARGS); + } + return + p->FOfEE.binary(ArgOfTerm(1,t),ArgOfTerm(2,t), USE_E_ARGS); } } } else if (IsPairTerm(t)) { diff --git a/H/Yap.h b/H/Yap.h index 27a166170..5a6cf2ee2 100644 --- a/H/Yap.h +++ b/H/Yap.h @@ -10,7 +10,7 @@ * File: Yap.h.m4 * * mods: * * comments: main header file for YAP * -* version: $Id: Yap.h,v 1.34 2008-05-12 14:04:23 vsc Exp $ * +* version: $Id: Yap.h,v 1.35 2008-05-13 10:37:27 vsc Exp $ * *************************************************************************/ #include "config.h" @@ -243,7 +243,7 @@ extern char Yap_Option[20]; #elif defined(__APPLE__) && !__LP64__ #define MMAP_ADDR 0x20000000 #else -#define MMAP_ADDR 0x08c00000 +#define MMAP_ADDR 0x08800000 #endif #elif __svr4__ || defined(__SVR4) #define MMAP_ADDR 0x02000000 diff --git a/changes-5.1.html b/changes-5.1.html index c867fd2f7..e90f99bfa 100644 --- a/changes-5.1.html +++ b/changes-5.1.html @@ -17,6 +17,8 @@ xb