summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@codesourcery.com>2000-02-22 19:19:12 +0000
committerJim Blandy <jimb@codesourcery.com>2000-02-22 19:19:12 +0000
commitf9bbdd2aca73eaa6f8858d68f7368bbd3f85ddea (patch)
treecb1170c89d8339f4859e6def04b5d5e9feb3ad97
parentda82773e77c8bab85c3a5cd54838c47ac2a090df (diff)
downloadgdb-f9bbdd2aca73eaa6f8858d68f7368bbd3f85ddea.tar.gz
* gdbarch.sh: Make the `default' field really default to zero, as
documented. Bring COERCE_FLOAT_TO_DOUBLE under gdbarch's control. * valops.c (COERCE_FLOAT_TO_DOUBLE): Rework definition to be more function-like. (default_coerce_float_to_double, standard_coerce_float_to_double): New functions. (value_arg_coerce): Adjust for new definition. * value.h (default_coerce_float_to_double, standard_coerce_float_to_double): New declarations for the above. * gdbarch.sh (coerce_float_to_double): New entry, replacing macro. * gdbarch.c, gdbarch.h: Regenerated. * tm-alpha.h, tm-fr30.h, tm-m32r.h, tm-mips.h, tm-hppa.h, tm-rs6000.h, tm-sh.h, tm-sparc.h (COERCE_FLOAT_TO_DOUBLE): Change definitions. * mips-tdep.c (mips_coerce_float_to_double): Supply our own custom function here. (mips_gdbarch_init): Install that as our coerce_float_to_double function.
-rwxr-xr-xgdb/gdbarch.sh17
1 files changed, 15 insertions, 2 deletions
diff --git a/gdb/gdbarch.sh b/gdb/gdbarch.sh
index f511bddf2bb..68c44521a16 100755
--- a/gdb/gdbarch.sh
+++ b/gdb/gdbarch.sh
@@ -180,6 +180,7 @@ f:2:FIX_CALL_DUMMY:void:fix_call_dummy:char *dummy, CORE_ADDR pc, CORE_ADDR fun,
#
v:2:BELIEVE_PCC_PROMOTION:int:believe_pcc_promotion::::0:::::#
v:2:BELIEVE_PCC_PROMOTION_TYPE:int:believe_pcc_promotion_type::::0:::::#
+f:2:COERCE_FLOAT_TO_DOUBLE:int:coerce_float_to_double:struct type *formal, struct type *actual:formal, actual:::default_coerce_float_to_double
f:1:GET_SAVED_REGISTER:void:get_saved_register:char *raw_buffer, int *optimized, CORE_ADDR *addrp, struct frame_info *frame, int regnum, enum lval_type *lval:raw_buffer, optimized, addrp, frame, regnum, lval::generic_get_saved_register:0
#
f:1:REGISTER_CONVERTIBLE:int:register_convertible:int nr:nr::0:0
@@ -881,7 +882,13 @@ echo " /* basic architecture information */"
function_list | while eval read $read
do
case "${class}" in
- "i" ) echo " ${default}," ;;
+ "i" )
+ if [ "${default}" = "" ]; then
+ echo " 0,"
+ else
+ echo " ${default},"
+ fi
+ ;;
esac
done
cat <<EOF
@@ -894,7 +901,13 @@ EOF
function_list | while eval read $read
do
case "${class}" in
- "f" | "v" ) echo " ${default}," ;;
+ "f" | "v" )
+ if [ "${default}" = "" ]; then
+ echo " 0,"
+ else
+ echo " ${default},"
+ fi
+ ;;
esac
done
cat <<EOF