projects
/
deliverable
/
binutils-gdb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix zero_ext documentation
[deliverable/binutils-gdb.git]
/
gdb
/
f-valprint.c
diff --git
a/gdb/f-valprint.c
b/gdb/f-valprint.c
index 6c254554997c8eb48bb41fd95003e85ff4330f90..1438fc660aff827a5c69666eb70f6c394e8d16d6 100644
(file)
--- a/
gdb/f-valprint.c
+++ b/
gdb/f-valprint.c
@@
-1,6
+1,6
@@
/* Support for printing Fortran values for GDB, the GNU debugger.
/* Support for printing Fortran values for GDB, the GNU debugger.
- Copyright (C) 1993-201
4
Free Software Foundation, Inc.
+ Copyright (C) 1993-201
6
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.
Contributed by Motorola. Adapted from the C definitions by Farooq Butt
(fmbutt@engage.sps.mot.com), additionally worked over by Stan Shebs.
@@
-264,7
+264,7
@@
f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
CORE_ADDR addr;
int index;
CORE_ADDR addr;
int index;
-
CHECK_TYPEDEF
(type);
+
type = check_typedef
(type);
switch (TYPE_CODE (type))
{
case TYPE_CODE_STRING:
switch (TYPE_CODE (type))
{
case TYPE_CODE_STRING:
@@
-443,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;
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]));
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);
}
{
val = value_of_variable (common->contents[index], block);
value_print (val, gdb_stdout, &opts);
}
- if (except.reason < 0)
- printf_filtered ("<error reading variable: %s>", except.message);
+ CATCH (except, RETURN_MASK_ERROR)
+ {
+ printf_filtered ("<error reading variable: %s>", except.message);
+ }
+ END_CATCH
+
putchar_filtered ('\n');
}
}
putchar_filtered ('\n');
}
}
@@
-513,7
+516,4
@@
_initialize_f_valprint (void)
{
add_info ("common", info_common_command,
_("Print out the values contained in a Fortran COMMON block."));
{
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."));
}
}
This page took
0.024612 seconds
and
4
git commands to generate.