]> www.ginac.de Git - cln.git/blobdiff - src/float/dfloat/misc/cl_DF_precision.cc
Initial revision
[cln.git] / src / float / dfloat / misc / cl_DF_precision.cc
diff --git a/src/float/dfloat/misc/cl_DF_precision.cc b/src/float/dfloat/misc/cl_DF_precision.cc
new file mode 100644 (file)
index 0000000..3092f94
--- /dev/null
@@ -0,0 +1,23 @@
+// float_precision().
+
+// General includes.
+#include "cl_sysdep.h"
+
+// Specification.
+#include "cl_dfloat.h"
+
+
+// Implementation.
+
+#include "cl_DF.h"
+
+#undef MAYBE_INLINE
+#define MAYBE_INLINE inline
+#include "cl_DF_zerop.cc"
+
+MAYBE_INLINE2
+uintL float_precision (const cl_DF& x)
+{
+       if (zerop(x)) return 0;
+       return DF_mant_len+1; // 53
+}