diff options
author | Jim Blandy <jimb@codesourcery.com> | 2001-12-07 22:49:25 +0000 |
---|---|---|
committer | Jim Blandy <jimb@codesourcery.com> | 2001-12-07 22:49:25 +0000 |
commit | 03a013f4d3754315f08a8127581086b95645e732 (patch) | |
tree | 1a7c3dd7fdf28a8ef57db4e070a3da9f9ebead79 | |
parent | 6a1675750a9251a46b746f90ea97f77164d4475c (diff) | |
download | gdb-03a013f4d3754315f08a8127581086b95645e732.zip gdb-03a013f4d3754315f08a8127581086b95645e732.tar.gz gdb-03a013f4d3754315f08a8127581086b95645e732.tar.bz2 |
* s390-tdep.c (s390_store_return_value): Don't convert float
values to double format when returning them; just return them in
the first half of the FP register, as the ABI specifies.
-rw-r--r-- | gdb/ChangeLog | 6 | ||||
-rw-r--r-- | gdb/s390-tdep.c | 13 |
2 files changed, 13 insertions, 6 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 77db668..37920f2 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +2001-12-07 Jim Blandy <jimb@redhat.com> + + * s390-tdep.c (s390_store_return_value): Don't convert float + values to double format when returning them; just return them in + the first half of the FP register, as the ABI specifies. + 2001-12-07 Daniel Jacobowitz <drow@mvista.com> * valops.c (hand_function_call): Check for method arguments in diff --git a/gdb/s390-tdep.c b/gdb/s390-tdep.c index cc28224..ddeacad 100644 --- a/gdb/s390-tdep.c +++ b/gdb/s390-tdep.c @@ -1144,12 +1144,13 @@ s390_store_return_value (struct type *valtype, char *valbuf) if (TYPE_CODE (valtype) == TYPE_CODE_FLT) { - DOUBLEST tempfloat = extract_floating (valbuf, TYPE_LENGTH (valtype)); - - floatformat_from_doublest (&floatformat_ieee_double_big, &tempfloat, - reg_buff); - write_register_bytes (REGISTER_BYTE (S390_FP0_REGNUM), reg_buff, - S390_FPR_SIZE); + if (TYPE_LENGTH (valtype) == 4 + || TYPE_LENGTH (valtype) == 8) + write_register_bytes (REGISTER_BYTE (S390_FP0_REGNUM), valbuf, + TYPE_LENGTH (valtype)); + else + error ("GDB is unable to return `long double' values " + "on this architecture."); } else { |