conversions to/from BigFloat

Author: HaraldHofstaetter

Makefile

@@ -10,7 +10,7 @@ get_float128.o: get_float128.c
 	gcc -O3 -fpic -c -I/home/hofi/LibDownloads/mpfr-3.1.3/src -I/home/hofi/include -o get_float128.o -I/home/hofi/LibDownloads/mpfr-3.1.3/src/x86_64/core2  get_float128.c         
 
 libfloat128.so: float128.o set_float128.o get_float128.o
-	gcc -shared -o libfloat128.so  float128.o  set_float128.o get_float128.o -lquadmath -L/usr/lib/sagemath/local/lib/ -lmpfr
+	gcc -shared -o libfloat128.so  float128.o  set_float128.o get_float128.o /usr/lib/x86_64-linux-gnu/libmpfr.so.4 -lquadmath
 
 
 

float128.jl

@@ -275,7 +275,7 @@ const ROUNDING_MODE = Cint[0]
 
 function convert(::Type{BigFloat}, x::Float128)
     z = BigFloat()
-    ccall((:mpfr_set_float128_xxx, :libfloat128), Int32, (Ptr{BigFloat}, Float128, Int32), &z, x, ROUNDING_MODE[end])
+    res = ccall((:mpfr_set_float128_xxx, :libfloat128), Int32, (Ptr{BigFloat}, Float128, Int32), &z, x, ROUNDING_MODE[end])
     return z
 end
 

set_float128.c

@@ -23,6 +23,8 @@ along with the GNU MPFR Library; see the file COPYING.LESSER.  If not, see
 
 #define MPFR_WANT_FLOAT128
 #define IEEE_FLOAT128_MANT_DIG 113 
+#define MPFR_USE_THREAD_SAFE
+
 
 #include <float.h> /* for DBL_MAX */