diff options
| author | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-03-07 14:53:37 +0000 |
|---|---|---|
| committer | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-03-07 14:53:37 +0000 |
| commit | 7584bb30cf380cff9cc3914b1b523c5a1a5b4302 (patch) | |
| tree | 6a6bf77b40345eadf32c168a602575d5ab347fcd /gdb/f-lang.c | |
| parent | 2c5ebf12393443eec1d666f613cbc70a6b72f49a (diff) | |
| download | gdb-7584bb30cf380cff9cc3914b1b523c5a1a5b4302.zip gdb-7584bb30cf380cff9cc3914b1b523c5a1a5b4302.tar.gz gdb-7584bb30cf380cff9cc3914b1b523c5a1a5b4302.tar.bz2 | |
gdb: Move value_from_host_double into value.c and make more use of it
The function value_from_host_double can be moved from f-lang.c into
value.c as a generally useful function, and then used more widely.
Tested on X86-64/GNU Linux with no regressions.
gdb/ChangeLog:
* f-lang.c (value_from_host_double): Moved to...
* value.c (value_from_host_double): ...here.
* value.h (value_from_host_double): Declare.
* guile/scm-math.c (vlscm_convert_typed_number): Use
value_from_host_double.
(vlscm_convert_number): Likewise.
* guile/scm-value.c (gdbscm_value_to_real): Likewise.
* python/py-value.c (convert_value_from_python): Likewise.
Diffstat (limited to 'gdb/f-lang.c')
| -rw-r--r-- | gdb/f-lang.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/gdb/f-lang.c b/gdb/f-lang.c index 24f0e61..7bd1196 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -241,20 +241,6 @@ f_collect_symbol_completion_matches (completion_tracker &tracker, text, word, ":", code); } -/* Create and return a value object of TYPE containing the value D. The - TYPE must be of TYPE_CODE_FLT, and must be large enough to hold D once - it is converted to target format. */ - -static struct value * -value_from_host_double (struct type *type, double d) -{ - struct value *value = allocate_value (type); - gdb_assert (TYPE_CODE (type) == TYPE_CODE_FLT); - target_float_from_host_double (value_contents_raw (value), - value_type (value), d); - return value; -} - /* Special expression evaluation cases for Fortran. */ struct value * evaluate_subexp_f (struct type *expect_type, struct expression *exp, |