aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/gcc-interface
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/gcc-interface')
-rw-r--r--gcc/ada/gcc-interface/misc.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c
index 3999f9c..183daf3 100644
--- a/gcc/ada/gcc-interface/misc.c
+++ b/gcc/ada/gcc-interface/misc.c
@@ -35,6 +35,7 @@
#include "stor-layout.h"
#include "print-tree.h"
#include "toplev.h"
+#include "tree-pass.h"
#include "langhooks.h"
#include "langhooks-def.h"
#include "plugin.h"
@@ -307,6 +308,9 @@ internal_error_function (diagnostic_context *context, const char *msgid,
/* Warn if plugins present. */
warn_if_plugins ();
+ /* Dump the representation of the function. */
+ emergency_dump_function ();
+
/* Reset the pretty-printer. */
pp_clear_output_area (context->printer);