static void gfc_be_parse_file (void) { int errors; int warnings; gfc_create_decls (); gfc_parse_file (); gfc_generate_constructors (); /* Tell the frontend about any errors. */ gfc_get_errors (&warnings, &errors); errorcount += errors; warningcount += warnings; clear_binding_stack (); }
static void gfc_be_parse_file (void) { int errors; int warnings; gfc_create_decls (); gfc_parse_file (); gfc_generate_constructors (); /* Tell the frontend about any errors. */ gfc_get_errors (&warnings, &errors); errorcount += errors; warningcount += warnings; /* Clear the binding level stack. */ while (!global_bindings_p ()) poplevel (0, 0); }
static void gfc_be_parse_file (void) { int errors; int warnings; gfc_create_decls (); gfc_parse_file (); gfc_generate_constructors (); /* Tell the frontend about any errors. */ gfc_get_errors (&warnings, &errors); errorcount += errors; warningcount += warnings; /* Clear the binding level stack. */ while (!global_bindings_p ()) poplevel (0, 0); /* Switch to the default tree diagnostics here, because there may be diagnostics before gfc_finish(). */ gfc_diagnostics_finish (); }