Index: hppa-tdep.c =================================================================== RCS file: /cvs/src/src/gdb/hppa-tdep.c,v retrieving revision 1.70 diff -c -3 -p -r1.70 hppa-tdep.c *** hppa-tdep.c 21 Apr 2003 16:48:37 -0000 1.70 --- hppa-tdep.c 22 Apr 2003 22:50:32 -0000 *************** hppa_store_return_value (struct type *ty *** 4763,4769 **** ? (8 - TYPE_LENGTH (type)) : (4 - TYPE_LENGTH (type))), valbuf, TYPE_LENGTH (type)); ! if (! SOFT_FLOAT && TYPE_CODE (type) == TYPE_CODE_FLT) deprecated_write_register_bytes (REGISTER_BYTE (FP4_REGNUM), valbuf, TYPE_LENGTH (type)); } --- 4763,4769 ---- ? (8 - TYPE_LENGTH (type)) : (4 - TYPE_LENGTH (type))), valbuf, TYPE_LENGTH (type)); ! if (TYPE_CODE (type) == TYPE_CODE_FLT) deprecated_write_register_bytes (REGISTER_BYTE (FP4_REGNUM), valbuf, TYPE_LENGTH (type)); } *************** hppa_store_return_value (struct type *ty *** 4778,4784 **** void hppa_extract_return_value (struct type *type, char *regbuf, char *valbuf) { ! if (! SOFT_FLOAT && TYPE_CODE (type) == TYPE_CODE_FLT) memcpy (valbuf, (char *)regbuf + REGISTER_BYTE (FP4_REGNUM), TYPE_LENGTH (type)); --- 4778,4784 ---- void hppa_extract_return_value (struct type *type, char *regbuf, char *valbuf) { ! if (TYPE_CODE (type) == TYPE_CODE_FLT) memcpy (valbuf, (char *)regbuf + REGISTER_BYTE (FP4_REGNUM), TYPE_LENGTH (type)); Index: config/pa/tm-hppa.h =================================================================== RCS file: /cvs/src/src/gdb/config/pa/tm-hppa.h,v retrieving revision 1.48 diff -c -3 -p -r1.48 tm-hppa.h *** config/pa/tm-hppa.h 22 Apr 2003 18:27:47 -0000 1.48 --- config/pa/tm-hppa.h 22 Apr 2003 22:50:32 -0000 *************** struct value; *** 45,55 **** struct type; struct inferior_status; - /* By default assume we don't have to worry about software floating point. */ - #ifndef SOFT_FLOAT - #define SOFT_FLOAT 0 - #endif - /* Get at various relevent fields of an instruction word. */ #define MASK_5 0x1f --- 45,50 ---- Index: config/pa/tm-hppa64.h =================================================================== RCS file: /cvs/src/src/gdb/config/pa/tm-hppa64.h,v retrieving revision 1.13 diff -c -3 -p -r1.13 tm-hppa64.h *** config/pa/tm-hppa64.h 22 Apr 2003 02:44:27 -0000 1.13 --- config/pa/tm-hppa64.h 22 Apr 2003 22:50:32 -0000 *************** call_dummy *** 537,548 **** */ #define DEPRECATED_EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ { \ ! if (TYPE_CODE (TYPE) == TYPE_CODE_FLT && !SOFT_FLOAT) \ memcpy ((VALBUF), \ ((char *)(REGBUF)) + REGISTER_BYTE (FP4_REGNUM) + \ (REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ TYPE_LENGTH (TYPE)); \ ! else if (is_integral_type(TYPE) || SOFT_FLOAT) \ memcpy ((VALBUF), \ (char *)(REGBUF) + REGISTER_BYTE (28) + \ (REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ --- 537,548 ---- */ #define DEPRECATED_EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ { \ ! if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) \ memcpy ((VALBUF), \ ((char *)(REGBUF)) + REGISTER_BYTE (FP4_REGNUM) + \ (REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ TYPE_LENGTH (TYPE)); \ ! else if (is_integral_type(TYPE)) \ memcpy ((VALBUF), \ (char *)(REGBUF) + REGISTER_BYTE (28) + \ (REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ *************** call_dummy *** 571,583 **** #undef DEPRECATED_STORE_RETURN_VALUE #define DEPRECATED_STORE_RETURN_VALUE(TYPE,VALBUF) \ { \ ! if (TYPE_CODE (TYPE) == TYPE_CODE_FLT && !SOFT_FLOAT) \ deprecated_write_register_bytes \ (REGISTER_BYTE (FP4_REGNUM) + \ (REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ (VALBUF), \ TYPE_LENGTH (TYPE)); \ ! else if (is_integral_type(TYPE) || SOFT_FLOAT) \ deprecated_write_register_bytes \ (REGISTER_BYTE (28) + \ (REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ --- 571,583 ---- #undef DEPRECATED_STORE_RETURN_VALUE #define DEPRECATED_STORE_RETURN_VALUE(TYPE,VALBUF) \ { \ ! if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) \ deprecated_write_register_bytes \ (REGISTER_BYTE (FP4_REGNUM) + \ (REGISTER_SIZE - TYPE_LENGTH (TYPE)), \ (VALBUF), \ TYPE_LENGTH (TYPE)); \ ! else if (is_integral_type(TYPE)) \ deprecated_write_register_bytes \ (REGISTER_BYTE (28) + \ (REGISTER_SIZE - TYPE_LENGTH (TYPE)), \