gdb: Move value_from_host_double into value.c and make more use of it

[deliverable/binutils-gdb.git] / gdb / guile / scm-value.c

diff --git a/gdb/guile/scm-value.c b/gdb/guile/scm-value.c
index 294e3e7cafc908909ea340e022059a42276a0e66..658924b1197296311b627846aa3da916bef564b9 100644 (file)
--- a/gdb/guile/scm-value.c
+++ b/gdb/guile/scm-value.c
@@ -903,8 +903,7 @@ gdbscm_value_to_real (SCM self)
       if (is_floating_value (value))
        {
          d = target_float_to_host_double (value_contents (value), type);
-         check = allocate_value (type);
-         target_float_from_host_double (value_contents_raw (check), type, d);
+         check = value_from_host_double (type, d);
        }
       else if (TYPE_UNSIGNED (type))
        {