along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include "defs.h"
-
-/* Local non-gdb includes. */
-#include "block.h"
-#include "command.h"
-#include "dictionary.h"
+#include "symtab.h"
+#include "gdbtypes.h"
#include "expression.h"
+#include "value.h"
+#include "valprint.h"
+#include "language.h"
#include "f-lang.h"
#include "frame.h"
#include "gdbcore.h"
-#include "gdbtypes.h"
-#include "language.h"
-#include "symtab.h"
-#include "valprint.h"
-#include "value.h"
+#include "command.h"
+#include "block.h"
+#include "dictionary.h"
static void f77_get_dynamic_length_of_aggregate (struct type *);
")",
".TRUE.",
".FALSE.",
- "VOID",
+ "void",
"{",
"}"
};
printf_filtered ("%s = ",
SYMBOL_PRINT_NAME (common->contents[index]));
- TRY
+ try
{
val = value_of_variable (common->contents[index], block);
value_print (val, gdb_stdout, &opts);
}
- CATCH (except, RETURN_MASK_ERROR)
+ catch (const gdb_exception_error &except)
{
- printf_filtered ("<error reading variable: %s>", except.message);
+ printf_filtered ("<error reading variable: %s>",
+ except.what ());
}
- END_CATCH
putchar_filtered ('\n');
}