X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;ds=sidebyside;f=src%2Ffloat%2Fconv%2Fcl_F_to_FF.cc;fp=src%2Ffloat%2Fconv%2Fcl_F_to_FF.cc;h=004e4c1739e66d6041abe38fec7063b8cb1fcc44;hb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;hp=0000000000000000000000000000000000000000;hpb=d57000b193438122b366aa0d450674be9402d06c;p=cln.git

diff --git a/src/float/conv/cl_F_to_FF.cc b/src/float/conv/cl_F_to_FF.cc
new file mode 100644
index 0000000..004e4c1
--- /dev/null
+++ b/src/float/conv/cl_F_to_FF.cc
@@ -0,0 +1,22 @@
+// cl_F_to_FF().
+
+// General includes.
+#include "cl_sysdep.h"
+
+// Specification.
+#include "cl_float.h"
+
+
+// Implementation.
+
+#include "cl_F.h"
+
+const cl_FF cl_F_to_FF (const cl_F& x)
+{
+	floatcase(x
+	,	return cl_SF_to_FF(x);
+	,	return x;
+	,	return cl_DF_to_FF(x);
+	,	return cl_LF_to_FF(x);
+	);
+}