Re: [patch/rfc] Add host's floatformat

[Andrew Cagney <cagney@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 134 bytes --]

Here's a revised patch:

- uses functions instead of variables
- adds m68k
- adds _host_ to the function names

more comments?
Andrew

[-- Attachment #2: diffs --]
[-- Type: text/plain, Size: 6305 bytes --]

Index: include/ChangeLog
2004-04-30  Andrew Cagney  <cagney@redhat.com>

	* floatformat.h (floatformat_host_float, floatformat_host_double)
	(floatformat_host_long_double): Declare.

Index: libiberty/ChangeLog
2004-04-30  Andrew Cagney  <cagney@redhat.com>

	* configure.ac: Define HOST_FLOAT_FORMAT, HOST_DOUBLE_FORMAT, and
	HOST_LONG_DOUBLE_FORMAT.
	* configure, config.in: Re-generate.
	* floatformat.c (floatformat_host_float, floatformat_host_double)
	(floatformat_host_long_double): New functions.

Index: include/floatformat.h
===================================================================
RCS file: /cvs/src/src/include/floatformat.h,v
retrieving revision 1.9
diff -p -u -r1.9 floatformat.h
--- include/floatformat.h	22 Sep 2003 17:41:02 -0000	1.9
+++ include/floatformat.h	1 May 2004 17:17:36 -0000
@@ -1,5 +1,7 @@
 /* IEEE floating point support declarations, for GDB, the GNU Debugger.
-   Copyright 1991, 1994, 1995, 1997, 2000, 2003 Free Software Foundation, Inc.
+
+   Copyright 1991, 1994, 1995, 1997, 2000, 2003, 2004 Free Software
+   Foundation, Inc.
 
 This file is part of GDB.
 
@@ -129,5 +131,11 @@ floatformat_from_double PARAMS ((const s
 
 extern int
 floatformat_is_valid PARAMS ((const struct floatformat *fmt, const char *from));
+
+/* If non-NULL, the host's floatformat corresponding to the compilers
+   "float", "double" and "long double" types.  */
+extern const struct floatformat *floatformat_host_float PARAMS ((void));
+extern const struct floatformat *floatformat_host_double PARAMS ((void));
+extern const struct floatformat *floatformat_host_long_double PARAMS ((void));
 
 #endif	/* defined (FLOATFORMAT_H) */
Index: libiberty/config.in
===================================================================
RCS file: /cvs/src/src/libiberty/config.in,v
retrieving revision 1.26
diff -p -u -r1.26 config.in
--- libiberty/config.in	22 Apr 2004 18:39:02 -0000	1.26
+++ libiberty/config.in	1 May 2004 17:17:43 -0000
@@ -313,6 +313,15 @@
 /* Define if you have the _system_configuration variable. */
 #undef HAVE__SYSTEM_CONFIGURATION
 
+/* Host double floatformat */
+#undef HOST_DOUBLE_FORMAT
+
+/* Host float floatformat */
+#undef HOST_FLOAT_FORMAT
+
+/* Host long double floatformat */
+#undef HOST_LONG_DOUBLE_FORMAT
+
 /* Define if the host machine stores words of multi-word integers in
    big-endian order. */
 #undef HOST_WORDS_BIG_ENDIAN
Index: libiberty/configure
===================================================================
RCS file: /cvs/src/src/libiberty/configure,v
retrieving revision 1.58
diff -p -u -r1.58 configure
--- libiberty/configure	26 Apr 2004 18:23:59 -0000	1.58
+++ libiberty/configure	1 May 2004 17:17:47 -0000
@@ -6293,6 +6293,45 @@ case "${host}" in
 esac
 
 
+# Figure out which floatformat to use.
+case "${host}" in
+i3456786-*-*)
+	host_float_format="&floatformat_ieee_single_little"
+	host_double_format="&floatformat_ieee_double_little"
+	host_long_double_format="&floatformat_i387_ext"
+	;;
+hppa*-*-linux*)
+	host_float_format="&floatformat_ieee_single_big"
+	host_double_format="&floatformat_ieee_double_big"
+	host_long_double_format="&floatformat_ieee_double_big"
+	;;
+m68*-*-*)
+	host_float_format="&floatformat_ieee_single_big"
+	host_double_format="&floatformat_ieee_double_big"
+	host_long_double_format="&floatformat_m68881_ext"
+	;;
+*)
+	host_float_format=0
+	host_double_format=0
+	host_long_double_format=0
+	;;
+esac
+
+cat >>confdefs.h <<_ACEOF
+#define HOST_FLOAT_FORMAT $host_float_format
+_ACEOF
+
+
+cat >>confdefs.h <<_ACEOF
+#define HOST_DOUBLE_FORMAT $host_double_format
+_ACEOF
+
+
+cat >>confdefs.h <<_ACEOF
+#define HOST_LONG_DOUBLE_FORMAT $host_long_double_format
+_ACEOF
+
+
 if test x$gcc_no_link = xyes; then
   if test "x${ac_cv_func_mmap_fixed_mapped+set}" != xset; then
     ac_cv_func_mmap_fixed_mapped=no
Index: libiberty/configure.ac
===================================================================
RCS file: /cvs/src/src/libiberty/configure.ac,v
retrieving revision 1.6
diff -p -u -r1.6 configure.ac
--- libiberty/configure.ac	26 Apr 2004 18:23:59 -0000	1.6
+++ libiberty/configure.ac	1 May 2004 17:17:47 -0000
@@ -520,6 +520,33 @@ case "${host}" in
 esac
 AC_SUBST(pexecute)
 
+# Figure out which floatformat to use.
+case "${host}" in
+i[34567]86-*-*)
+	host_float_format="&floatformat_ieee_single_little"
+	host_double_format="&floatformat_ieee_double_little"
+	host_long_double_format="&floatformat_i387_ext"
+	;;
+hppa*-*-linux*)
+	host_float_format="&floatformat_ieee_single_big"
+	host_double_format="&floatformat_ieee_double_big"
+	host_long_double_format="&floatformat_ieee_double_big"
+	;;
+m68*-*-*)
+	host_float_format="&floatformat_ieee_single_big"
+	host_double_format="&floatformat_ieee_double_big"
+	host_long_double_format="&floatformat_m68881_ext"
+	;;
+*)
+	host_float_format=0
+	host_double_format=0
+	host_long_double_format=0
+	;;
+esac
+AC_DEFINE_UNQUOTED(HOST_FLOAT_FORMAT,$host_float_format,[Host float floatformat])
+AC_DEFINE_UNQUOTED(HOST_DOUBLE_FORMAT,$host_double_format,[Host double floatformat])
+AC_DEFINE_UNQUOTED(HOST_LONG_DOUBLE_FORMAT,$host_long_double_format,[Host long double floatformat])
+
 libiberty_AC_FUNC_STRNCMP
 
 # Install a library built with a cross compiler in $(tooldir) rather
Index: libiberty/floatformat.c
===================================================================
RCS file: /cvs/src/src/libiberty/floatformat.c,v
retrieving revision 1.12
diff -p -u -r1.12 floatformat.c
--- libiberty/floatformat.c	3 Dec 2003 19:03:29 -0000	1.12
+++ libiberty/floatformat.c	1 May 2004 17:17:47 -0000
@@ -1,5 +1,7 @@
 /* IEEE floating point support routines, for GDB, the GNU Debugger.
-   Copyright (C) 1991, 1994, 1999, 2000, 2003 Free Software Foundation, Inc.
+
+   Copyright 1991, 1994, 1999, 2000, 2003, 2004 Free Software
+   Foundation, Inc.
 
 This file is part of GDB.
 
@@ -548,6 +550,24 @@ floatformat_is_valid (fmt, from)
   return fmt->is_valid (fmt, from);
 }
 
+/* If non-NULL, the host's floatformat.  */
+const struct floatformat *
+floatformat_host_float ()
+{
+  return HOST_FLOAT_FORMAT;
+}
+
+const struct floatformat *
+floatformat_host_double ()
+{
+  return HOST_DOUBLE_FORMAT;
+}
+
+const struct floatformat *
+floatformat_host_long_double ()
+{
+  return HOST_LONG_DOUBLE_FORMAT;
+}
 
 #ifdef IEEE_DEBUG