X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flibpspp%2Ffloat-format.c;h=79ba94469fc9fa085f2318d5f48d596f9c6b752f;hb=bee7efdafc5d8a2be56138cab46f6e251dcee504;hp=7d65375ada731657a8ea50c221d843f8dacdb21e;hpb=43b1296aafe7582e7dbe6c2b6a8b478d7d9b0fcf;p=pspp

diff --git a/src/libpspp/float-format.c b/src/libpspp/float-format.c
index 7d65375ada..79ba94469f 100644
--- a/src/libpspp/float-format.c
+++ b/src/libpspp/float-format.c
@@ -106,6 +106,16 @@ float_convert (enum float_format from, const void *src,
     }
 }
 
+/* Converts SRC from format FROM to a native double and returns
+   the double. */
+double
+float_get_double (enum float_format from, const void *src)
+{
+  double dst;
+  float_convert (from, src, FLOAT_NATIVE_DOUBLE, &dst);
+  return dst;
+}
+
 /* Returns the number of bytes in a number in the given
    FORMAT. */
 size_t