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

avoid unnecessary term construction.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-03-09 22:03:00 +00:00
parent 2c53542bb1
commit 4a6bfe1fa0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/arith1.c
View File

@ -624,7 +624,7 @@ eval1(Int fi, Term t) {
case long_int_e: case long_int_e:
RFLOAT(IntegerOfTerm(t)); RFLOAT(IntegerOfTerm(t));
case double_e: case double_e:
RFLOAT(FloatOfTerm(t)); return t;
case big_int_e: case big_int_e:
#ifdef USE_GMP #ifdef USE_GMP
RFLOAT(mpz_get_d(Yap_BigIntOfTerm(t))); RFLOAT(mpz_get_d(Yap_BigIntOfTerm(t)));