diff options
author | John Gilmore <gnu@cygnus> | 1991-09-25 01:18:59 +0000 |
---|---|---|
committer | John Gilmore <gnu@cygnus> | 1991-09-25 01:18:59 +0000 |
commit | be3bc7ad7a59f6d29c71ded80439691e93a3f4be (patch) | |
tree | ae5bce4958916c36d2aa6396fd8b67d68a4ac0fb /gdb | |
parent | 680c9dfa720a0585b3b740cd467419f068afc9b4 (diff) | |
download | gdb-be3bc7ad7a59f6d29c71ded80439691e93a3f4be.zip gdb-be3bc7ad7a59f6d29c71ded80439691e93a3f4be.tar.gz gdb-be3bc7ad7a59f6d29c71ded80439691e93a3f4be.tar.bz2 |
iVS: Modified Files:
Print 9 digits for IEEE floats.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/valprint.c | 45 |
1 files changed, 44 insertions, 1 deletions
diff --git a/gdb/valprint.c b/gdb/valprint.c index f63820c..246c66a 100644 --- a/gdb/valprint.c +++ b/gdb/valprint.c @@ -27,6 +27,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "gdbcmd.h" #include "target.h" #include "obstack.h" +#include "language.h" #include <errno.h> extern int sys_nerr; @@ -250,7 +251,7 @@ print_floating (valaddr, type, stream) if (inv) fprintf_filtered (stream, "<invalid float value>"); else - fprintf_filtered (stream, len <= sizeof(float) ? "%.6g" : "%.17g", doub); + fprintf_filtered (stream, len <= sizeof(float) ? "%.9g" : "%.17g", doub); } /* VALADDR points to an integer of LEN bytes. Print it in hex on stream. */ @@ -451,6 +452,8 @@ val_print_fields (type, valaddr, stream, format, recurse, pretty, dont_print) { int i, len, n_baseclasses; + check_stub_type (type); + fprintf_filtered (stream, "{"); len = TYPE_NFIELDS (type); n_baseclasses = TYPE_N_BASECLASSES (type); @@ -1216,6 +1219,46 @@ val_print (type, valaddr, address, stream, format, return 0; } +/* Print a description of a type in the format of a + typedef for the current language. + NEW is the new name for a type TYPE. */ +void +typedef_print (type, new, stream) + struct type *type; + struct symbol *new; + FILE *stream; +{ + switch (current_language->la_language) + { +#ifdef _LANG_c + case language_c: + fprintf_filtered(stream, "typedef "); + type_print(type,"",stream,0); + if(TYPE_NAME ((SYMBOL_TYPE (new))) == 0 + || 0 != strcmp (TYPE_NAME ((SYMBOL_TYPE (new))), + SYMBOL_NAME (new))) + fprintf_filtered(stream, " %s", SYMBOL_NAME(new)); + break; +#endif +#ifdef _LANG_m2 + case language_m2: + fprintf_filtered(stream, "TYPE "); + if(!TYPE_NAME(SYMBOL_TYPE(new)) || + strcmp (TYPE_NAME(SYMBOL_TYPE(new)), + SYMBOL_NAME(new))) + fprintf_filtered(stream, "%s = ", SYMBOL_NAME(new)); + else + fprintf_filtered(stream, "<builtin> = "); + type_print(type,"",stream,0); + break; +#endif + default: + error("Language not supported."); + } + fprintf_filtered(stream, ";\n"); +} + + /* Print a description of a type TYPE in the form of a declaration of a variable named VARSTRING. (VARSTRING is demangled if necessary.) |