X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=gdb%2Ff-valprint.c;h=1438fc660aff827a5c69666eb70f6c394e8d16d6;hb=b8162e5ac9e052b2a88912b729081600972e854c;hp=728bdafe5b020a1450f672a030fb60c29b879e22;hpb=dccbb60975cdbcd6a906a79d0c4308b040fdac1b;p=deliverable%2Fbinutils-gdb.git
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 728bdafe5b..1438fc660a 100644
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -1,6 +1,6 @@
/* Support for printing Fortran values for GDB, the GNU debugger.
- Copyright (C) 1993-2014 Free Software Foundation, Inc.
+ Copyright (C) 1993-2016 Free Software Foundation, Inc.
Contributed by Motorola. Adapted from the C definitions by Farooq Butt
(fmbutt@engage.sps.mot.com), additionally worked over by Stan Shebs.
@@ -21,7 +21,6 @@
along with this program. If not, see . */
#include "defs.h"
-#include
#include "symtab.h"
#include "gdbtypes.h"
#include "expression.h"
@@ -34,7 +33,6 @@
#include "command.h"
#include "block.h"
#include "dictionary.h"
-#include "exceptions.h"
extern void _initialize_f_valprint (void);
static void info_common_command (char *, int);
@@ -266,7 +264,7 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
CORE_ADDR addr;
int index;
- CHECK_TYPEDEF (type);
+ type = check_typedef (type);
switch (TYPE_CODE (type))
{
case TYPE_CODE_STRING:
@@ -350,7 +348,7 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
opts.format = (options->format ? options->format
: options->output_format);
val_print_scalar_formatted (type, valaddr, embedded_offset,
- original_value, options, 0, stream);
+ original_value, &opts, 0, stream);
}
else
{
@@ -445,19 +443,22 @@ info_common_command_for_block (const struct block *block, const char *comname,
for (index = 0; index < common->n_entries; index++)
{
struct value *val = NULL;
- volatile struct gdb_exception except;
printf_filtered ("%s = ",
SYMBOL_PRINT_NAME (common->contents[index]));
- TRY_CATCH (except, RETURN_MASK_ERROR)
+ TRY
{
val = value_of_variable (common->contents[index], block);
value_print (val, gdb_stdout, &opts);
}
- if (except.reason < 0)
- printf_filtered ("", except.message);
+ CATCH (except, RETURN_MASK_ERROR)
+ {
+ printf_filtered ("", except.message);
+ }
+ END_CATCH
+
putchar_filtered ('\n');
}
}
@@ -515,7 +516,4 @@ _initialize_f_valprint (void)
{
add_info ("common", info_common_command,
_("Print out the values contained in a Fortran COMMON block."));
- if (xdb_commands)
- add_com ("lc", class_info, info_common_command,
- _("Print out the values contained in a Fortran COMMON block."));
}