1 /* Dump infrastructure for optimizations and intermediate representation.
2 Copyright (C) 2012-2017 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
22 #include "coretypes.h"
25 #include "gimple-pretty-print.h"
26 #include "diagnostic-core.h"
30 #include "langhooks.h"
32 /* If non-NULL, return one past-the-end of the matching SUBPART of
34 #define skip_leading_substring(whole, part) \
35 (strncmp (whole, part, strlen (part)) ? NULL : whole + strlen (part))
37 static dump_flags_t pflags
; /* current dump_flags */
38 static dump_flags_t alt_flags
; /* current opt_info flags */
40 static void dump_loc (dump_flags_t
, FILE *, source_location
);
41 static FILE *dump_open_alternate_stream (struct dump_file_info
*);
43 /* These are currently used for communicating between passes.
44 However, instead of accessing them directly, the passes can use
45 dump_printf () for dumps. */
46 FILE *dump_file
= NULL
;
47 FILE *alt_dump_file
= NULL
;
48 const char *dump_file_name
;
49 dump_flags_t dump_flags
;
51 #define DUMP_FILE_INFO(suffix, swtch, dkind, num) \
52 {suffix, swtch, NULL, NULL, NULL, NULL, NULL, dkind, 0, 0, 0, 0, 0, num, \
55 /* Table of tree dump switches. This must be consistent with the
56 TREE_DUMP_INDEX enumeration in dumpfile.h. */
57 static struct dump_file_info dump_files
[TDI_end
] =
59 DUMP_FILE_INFO (NULL
, NULL
, DK_none
, 0),
60 DUMP_FILE_INFO (".cgraph", "ipa-cgraph", DK_ipa
, 0),
61 DUMP_FILE_INFO (".type-inheritance", "ipa-type-inheritance", DK_ipa
, 0),
62 DUMP_FILE_INFO (".ipa-clones", "ipa-clones", DK_ipa
, 0),
63 DUMP_FILE_INFO (".original", "tree-original", DK_tree
, 0),
64 DUMP_FILE_INFO (".gimple", "tree-gimple", DK_tree
, 0),
65 DUMP_FILE_INFO (".nested", "tree-nested", DK_tree
, 0),
66 #define FIRST_AUTO_NUMBERED_DUMP 1
67 #define FIRST_ME_AUTO_NUMBERED_DUMP 3
69 DUMP_FILE_INFO (NULL
, "lang-all", DK_lang
, 0),
70 DUMP_FILE_INFO (NULL
, "tree-all", DK_tree
, 0),
71 DUMP_FILE_INFO (NULL
, "rtl-all", DK_rtl
, 0),
72 DUMP_FILE_INFO (NULL
, "ipa-all", DK_ipa
, 0),
75 /* Define a name->number mapping for a dump flag value. */
76 struct dump_option_value_info
78 const char *const name
; /* the name of the value */
79 const dump_flags_t value
; /* the value of the name */
82 /* Table of dump options. This must be consistent with the TDF_* flags
83 in dumpfile.h and opt_info_options below. */
84 static const struct dump_option_value_info dump_options
[] =
86 {"address", TDF_ADDRESS
},
87 {"asmname", TDF_ASMNAME
},
91 {"details", (TDF_DETAILS
| MSG_OPTIMIZED_LOCATIONS
92 | MSG_MISSED_OPTIMIZATION
94 {"cselib", TDF_CSELIB
},
96 {"blocks", TDF_BLOCKS
},
98 {"lineno", TDF_LINENO
},
100 {"stmtaddr", TDF_STMTADDR
},
101 {"memsyms", TDF_MEMSYMS
},
103 {"alias", TDF_ALIAS
},
104 {"nouid", TDF_NOUID
},
105 {"enumerate_locals", TDF_ENUMERATE_LOCALS
},
107 {"gimple", TDF_GIMPLE
},
108 {"folding", TDF_FOLDING
},
109 {"optimized", MSG_OPTIMIZED_LOCATIONS
},
110 {"missed", MSG_MISSED_OPTIMIZATION
},
113 {"all", ~(TDF_RAW
| TDF_SLIM
| TDF_LINENO
| TDF_GRAPH
| TDF_STMTADDR
114 | TDF_RHS_ONLY
| TDF_NOUID
| TDF_ENUMERATE_LOCALS
| TDF_SCEV
119 /* A subset of the dump_options table which is used for -fopt-info
120 types. This must be consistent with the MSG_* flags in dumpfile.h.
122 static const struct dump_option_value_info optinfo_verbosity_options
[] =
124 {"optimized", MSG_OPTIMIZED_LOCATIONS
},
125 {"missed", MSG_MISSED_OPTIMIZATION
},
131 /* Flags used for -fopt-info groups. */
132 static const struct dump_option_value_info optgroup_options
[] =
134 {"ipa", OPTGROUP_IPA
},
135 {"loop", OPTGROUP_LOOP
},
136 {"inline", OPTGROUP_INLINE
},
137 {"omp", OPTGROUP_OMP
},
138 {"vec", OPTGROUP_VEC
},
139 {"optall", OPTGROUP_ALL
},
143 gcc::dump_manager::dump_manager ():
144 m_next_dump (FIRST_AUTO_NUMBERED_DUMP
),
145 m_extra_dump_files (NULL
),
146 m_extra_dump_files_in_use (0),
147 m_extra_dump_files_alloced (0)
151 gcc::dump_manager::~dump_manager ()
153 for (size_t i
= 0; i
< m_extra_dump_files_in_use
; i
++)
155 dump_file_info
*dfi
= &m_extra_dump_files
[i
];
156 /* suffix, swtch, glob are statically allocated for the entries
157 in dump_files, and for statistics, but are dynamically allocated
158 for those for passes. */
159 if (dfi
->owns_strings
)
161 XDELETEVEC (const_cast <char *> (dfi
->suffix
));
162 XDELETEVEC (const_cast <char *> (dfi
->swtch
));
163 XDELETEVEC (const_cast <char *> (dfi
->glob
));
165 /* These, if non-NULL, are always dynamically allocated. */
166 XDELETEVEC (const_cast <char *> (dfi
->pfilename
));
167 XDELETEVEC (const_cast <char *> (dfi
->alt_filename
));
169 XDELETEVEC (m_extra_dump_files
);
174 dump_register (const char *suffix
, const char *swtch
, const char *glob
,
175 dump_kind dkind
, int optgroup_flags
, bool take_ownership
)
177 int num
= m_next_dump
++;
179 size_t count
= m_extra_dump_files_in_use
++;
181 if (count
>= m_extra_dump_files_alloced
)
183 if (m_extra_dump_files_alloced
== 0)
184 m_extra_dump_files_alloced
= 512;
186 m_extra_dump_files_alloced
*= 2;
187 m_extra_dump_files
= XRESIZEVEC (struct dump_file_info
,
189 m_extra_dump_files_alloced
);
192 memset (&m_extra_dump_files
[count
], 0, sizeof (struct dump_file_info
));
193 m_extra_dump_files
[count
].suffix
= suffix
;
194 m_extra_dump_files
[count
].swtch
= swtch
;
195 m_extra_dump_files
[count
].glob
= glob
;
196 m_extra_dump_files
[count
].dkind
= dkind
;
197 m_extra_dump_files
[count
].optgroup_flags
= optgroup_flags
;
198 m_extra_dump_files
[count
].num
= num
;
199 m_extra_dump_files
[count
].owns_strings
= take_ownership
;
201 return count
+ TDI_end
;
205 /* Allow languages and middle-end to register their dumps before the
206 optimization passes. */
212 lang_hooks
.register_dumps (this);
213 /* If this assert fails, some FE registered more than
214 FIRST_ME_AUTO_NUMBERED_DUMP - FIRST_AUTO_NUMBERED_DUMP
215 dump files. Bump FIRST_ME_AUTO_NUMBERED_DUMP accordingly. */
216 gcc_assert (m_next_dump
<= FIRST_ME_AUTO_NUMBERED_DUMP
);
217 m_next_dump
= FIRST_ME_AUTO_NUMBERED_DUMP
;
218 dump_files
[TDI_original
].num
= m_next_dump
++;
219 dump_files
[TDI_gimple
].num
= m_next_dump
++;
220 dump_files
[TDI_nested
].num
= m_next_dump
++;
224 /* Return the dump_file_info for the given phase. */
226 struct dump_file_info
*
228 get_dump_file_info (int phase
) const
231 return &dump_files
[phase
];
232 else if ((size_t) (phase
- TDI_end
) >= m_extra_dump_files_in_use
)
235 return m_extra_dump_files
+ (phase
- TDI_end
);
238 /* Locate the dump_file_info with swtch equal to SWTCH,
239 or return NULL if no such dump_file_info exists. */
241 struct dump_file_info
*
243 get_dump_file_info_by_switch (const char *swtch
) const
245 for (unsigned i
= 0; i
< m_extra_dump_files_in_use
; i
++)
246 if (0 == strcmp (m_extra_dump_files
[i
].swtch
, swtch
))
247 return &m_extra_dump_files
[i
];
254 /* Return the name of the dump file for the given phase.
255 The caller is responsible for calling free on the returned
257 If the dump is not enabled, returns NULL. */
261 get_dump_file_name (int phase
) const
263 struct dump_file_info
*dfi
;
265 if (phase
== TDI_none
)
268 dfi
= get_dump_file_info (phase
);
270 return get_dump_file_name (dfi
);
273 /* Return the name of the dump file for the given dump_file_info.
274 The caller is responsible for calling free on the returned
276 If the dump is not enabled, returns NULL. */
280 get_dump_file_name (struct dump_file_info
*dfi
) const
286 if (dfi
->pstate
== 0)
289 /* If available, use the command line dump filename. */
291 return xstrdup (dfi
->pfilename
);
297 /* (null), LANG, TREE, RTL, IPA. */
298 char suffix
= " ltri"[dfi
->dkind
];
300 if (snprintf (dump_id
, sizeof (dump_id
), ".%03d%c", dfi
->num
, suffix
) < 0)
304 return concat (dump_base_name
, dump_id
, dfi
->suffix
, NULL
);
307 /* For a given DFI, open an alternate dump filename (which could also
308 be a standard stream such as stdout/stderr). If the alternate dump
309 file cannot be opened, return NULL. */
312 dump_open_alternate_stream (struct dump_file_info
*dfi
)
315 if (!dfi
->alt_filename
)
319 return dfi
->alt_stream
;
321 stream
= strcmp ("stderr", dfi
->alt_filename
) == 0
323 : strcmp ("stdout", dfi
->alt_filename
) == 0
325 : fopen (dfi
->alt_filename
, dfi
->alt_state
< 0 ? "w" : "a");
328 error ("could not open dump file %qs: %m", dfi
->alt_filename
);
335 /* Print source location on DFILE if enabled. */
338 dump_loc (dump_flags_t dump_kind
, FILE *dfile
, source_location loc
)
342 if (LOCATION_LOCUS (loc
) > BUILTINS_LOCATION
)
343 fprintf (dfile
, "%s:%d:%d: note: ", LOCATION_FILE (loc
),
344 LOCATION_LINE (loc
), LOCATION_COLUMN (loc
));
345 else if (current_function_decl
)
346 fprintf (dfile
, "%s:%d:%d: note: ",
347 DECL_SOURCE_FILE (current_function_decl
),
348 DECL_SOURCE_LINE (current_function_decl
),
349 DECL_SOURCE_COLUMN (current_function_decl
));
353 /* Dump gimple statement GS with SPC indentation spaces and
354 EXTRA_DUMP_FLAGS on the dump streams if DUMP_KIND is enabled. */
357 dump_gimple_stmt (dump_flags_t dump_kind
, dump_flags_t extra_dump_flags
,
360 if (dump_file
&& (dump_kind
& pflags
))
361 print_gimple_stmt (dump_file
, gs
, spc
, dump_flags
| extra_dump_flags
);
363 if (alt_dump_file
&& (dump_kind
& alt_flags
))
364 print_gimple_stmt (alt_dump_file
, gs
, spc
, dump_flags
| extra_dump_flags
);
367 /* Similar to dump_gimple_stmt, except additionally print source location. */
370 dump_gimple_stmt_loc (dump_flags_t dump_kind
, source_location loc
,
371 dump_flags_t extra_dump_flags
, gimple
*gs
, int spc
)
373 if (dump_file
&& (dump_kind
& pflags
))
375 dump_loc (dump_kind
, dump_file
, loc
);
376 print_gimple_stmt (dump_file
, gs
, spc
, dump_flags
| extra_dump_flags
);
379 if (alt_dump_file
&& (dump_kind
& alt_flags
))
381 dump_loc (dump_kind
, alt_dump_file
, loc
);
382 print_gimple_stmt (alt_dump_file
, gs
, spc
, dump_flags
| extra_dump_flags
);
386 /* Dump expression tree T using EXTRA_DUMP_FLAGS on dump streams if
387 DUMP_KIND is enabled. */
390 dump_generic_expr (dump_flags_t dump_kind
, dump_flags_t extra_dump_flags
,
393 if (dump_file
&& (dump_kind
& pflags
))
394 print_generic_expr (dump_file
, t
, dump_flags
| extra_dump_flags
);
396 if (alt_dump_file
&& (dump_kind
& alt_flags
))
397 print_generic_expr (alt_dump_file
, t
, dump_flags
| extra_dump_flags
);
401 /* Similar to dump_generic_expr, except additionally print the source
405 dump_generic_expr_loc (int dump_kind
, source_location loc
,
406 dump_flags_t extra_dump_flags
, tree t
)
408 if (dump_file
&& (dump_kind
& pflags
))
410 dump_loc (dump_kind
, dump_file
, loc
);
411 print_generic_expr (dump_file
, t
, dump_flags
| extra_dump_flags
);
414 if (alt_dump_file
&& (dump_kind
& alt_flags
))
416 dump_loc (dump_kind
, alt_dump_file
, loc
);
417 print_generic_expr (alt_dump_file
, t
, dump_flags
| extra_dump_flags
);
421 /* Output a formatted message using FORMAT on appropriate dump streams. */
424 dump_printf (dump_flags_t dump_kind
, const char *format
, ...)
426 if (dump_file
&& (dump_kind
& pflags
))
429 va_start (ap
, format
);
430 vfprintf (dump_file
, format
, ap
);
434 if (alt_dump_file
&& (dump_kind
& alt_flags
))
437 va_start (ap
, format
);
438 vfprintf (alt_dump_file
, format
, ap
);
443 /* Similar to dump_printf, except source location is also printed. */
446 dump_printf_loc (dump_flags_t dump_kind
, source_location loc
,
447 const char *format
, ...)
449 if (dump_file
&& (dump_kind
& pflags
))
452 dump_loc (dump_kind
, dump_file
, loc
);
453 va_start (ap
, format
);
454 vfprintf (dump_file
, format
, ap
);
458 if (alt_dump_file
&& (dump_kind
& alt_flags
))
461 dump_loc (dump_kind
, alt_dump_file
, loc
);
462 va_start (ap
, format
);
463 vfprintf (alt_dump_file
, format
, ap
);
468 /* Start a dump for PHASE. Store user-supplied dump flags in
469 *FLAG_PTR. Return the number of streams opened. Set globals
470 DUMP_FILE, and ALT_DUMP_FILE to point to the opened streams, and
471 set dump_flags appropriately for both pass dump stream and
472 -fopt-info stream. */
476 dump_start (int phase
, dump_flags_t
*flag_ptr
)
480 struct dump_file_info
*dfi
;
482 if (phase
== TDI_none
|| !dump_phase_enabled_p (phase
))
485 dfi
= get_dump_file_info (phase
);
486 name
= get_dump_file_name (phase
);
489 stream
= strcmp ("stderr", name
) == 0
491 : strcmp ("stdout", name
) == 0
493 : fopen (name
, dfi
->pstate
< 0 ? "w" : "a");
495 error ("could not open dump file %qs: %m", name
);
502 dfi
->pstream
= stream
;
503 dump_file
= dfi
->pstream
;
504 /* Initialize current dump flags. */
505 pflags
= dfi
->pflags
;
508 stream
= dump_open_alternate_stream (dfi
);
511 dfi
->alt_stream
= stream
;
513 alt_dump_file
= dfi
->alt_stream
;
514 /* Initialize current -fopt-info flags. */
515 alt_flags
= dfi
->alt_flags
;
519 *flag_ptr
= dfi
->pflags
;
524 /* Finish a tree dump for PHASE and close associated dump streams. Also
525 reset the globals DUMP_FILE, ALT_DUMP_FILE, and DUMP_FLAGS. */
529 dump_finish (int phase
)
531 struct dump_file_info
*dfi
;
535 dfi
= get_dump_file_info (phase
);
536 if (dfi
->pstream
&& (!dfi
->pfilename
537 || (strcmp ("stderr", dfi
->pfilename
) != 0
538 && strcmp ("stdout", dfi
->pfilename
) != 0)))
539 fclose (dfi
->pstream
);
541 if (dfi
->alt_stream
&& strcmp ("stderr", dfi
->alt_filename
) != 0
542 && strcmp ("stdout", dfi
->alt_filename
) != 0)
543 fclose (dfi
->alt_stream
);
545 dfi
->alt_stream
= NULL
;
548 alt_dump_file
= NULL
;
549 dump_flags
= TDI_none
;
554 /* Begin a tree dump for PHASE. Stores any user supplied flag in
555 *FLAG_PTR and returns a stream to write to. If the dump is not
556 enabled, returns NULL.
557 Multiple calls will reopen and append to the dump file. */
560 dump_begin (int phase
, dump_flags_t
*flag_ptr
)
562 return g
->get_dumps ()->dump_begin (phase
, flag_ptr
);
567 dump_begin (int phase
, dump_flags_t
*flag_ptr
)
570 struct dump_file_info
*dfi
;
573 if (phase
== TDI_none
|| !dump_phase_enabled_p (phase
))
576 name
= get_dump_file_name (phase
);
579 dfi
= get_dump_file_info (phase
);
581 stream
= strcmp ("stderr", name
) == 0
583 : strcmp ("stdout", name
) == 0
585 : fopen (name
, dfi
->pstate
< 0 ? "w" : "a");
588 error ("could not open dump file %qs: %m", name
);
594 *flag_ptr
= dfi
->pflags
;
596 /* Initialize current flags */
597 pflags
= dfi
->pflags
;
601 /* Returns nonzero if dump PHASE is enabled for at least one stream.
602 If PHASE is TDI_tree_all, return nonzero if any dump is enabled for
607 dump_phase_enabled_p (int phase
) const
609 if (phase
== TDI_tree_all
)
612 for (i
= TDI_none
+ 1; i
< (size_t) TDI_end
; i
++)
613 if (dump_files
[i
].pstate
|| dump_files
[i
].alt_state
)
615 for (i
= 0; i
< m_extra_dump_files_in_use
; i
++)
616 if (m_extra_dump_files
[i
].pstate
|| m_extra_dump_files
[i
].alt_state
)
622 struct dump_file_info
*dfi
= get_dump_file_info (phase
);
623 return dfi
->pstate
|| dfi
->alt_state
;
627 /* Returns nonzero if tree dump PHASE has been initialized. */
631 dump_initialized_p (int phase
) const
633 struct dump_file_info
*dfi
= get_dump_file_info (phase
);
634 return dfi
->pstate
> 0 || dfi
->alt_state
> 0;
637 /* Returns the switch name of PHASE. */
640 dump_flag_name (int phase
)
642 return g
->get_dumps ()->dump_flag_name (phase
);
647 dump_flag_name (int phase
) const
649 struct dump_file_info
*dfi
= get_dump_file_info (phase
);
653 /* Finish a tree dump for PHASE. STREAM is the stream created by
657 dump_end (int phase ATTRIBUTE_UNUSED
, FILE *stream
)
659 if (stream
!= stderr
&& stream
!= stdout
)
663 /* Enable all tree dumps with FLAGS on FILENAME. Return number of
664 enabled tree dumps. */
668 dump_enable_all (dump_kind dkind
, dump_flags_t flags
, const char *filename
)
673 for (i
= TDI_none
+ 1; i
< (size_t) TDI_end
; i
++)
675 if ((dump_files
[i
].dkind
== dkind
))
677 const char *old_filename
= dump_files
[i
].pfilename
;
678 dump_files
[i
].pstate
= -1;
679 dump_files
[i
].pflags
|= flags
;
681 /* Override the existing filename. */
684 dump_files
[i
].pfilename
= xstrdup (filename
);
685 /* Since it is a command-line provided file, which is
686 common to all the phases, use it in append mode. */
687 dump_files
[i
].pstate
= 1;
689 if (old_filename
&& filename
!= old_filename
)
690 free (CONST_CAST (char *, old_filename
));
694 for (i
= 0; i
< m_extra_dump_files_in_use
; i
++)
696 if ((m_extra_dump_files
[i
].dkind
== dkind
))
698 const char *old_filename
= m_extra_dump_files
[i
].pfilename
;
699 m_extra_dump_files
[i
].pstate
= -1;
700 m_extra_dump_files
[i
].pflags
|= flags
;
702 /* Override the existing filename. */
705 m_extra_dump_files
[i
].pfilename
= xstrdup (filename
);
706 /* Since it is a command-line provided file, which is
707 common to all the phases, use it in append mode. */
708 m_extra_dump_files
[i
].pstate
= 1;
710 if (old_filename
&& filename
!= old_filename
)
711 free (CONST_CAST (char *, old_filename
));
718 /* Enable -fopt-info dumps on all dump files matching OPTGROUP_FLAGS.
719 Enable dumps with FLAGS on FILENAME. Return the number of enabled
724 opt_info_enable_passes (int optgroup_flags
, dump_flags_t flags
,
725 const char *filename
)
730 for (i
= TDI_none
+ 1; i
< (size_t) TDI_end
; i
++)
732 if ((dump_files
[i
].optgroup_flags
& optgroup_flags
))
734 const char *old_filename
= dump_files
[i
].alt_filename
;
735 /* Since this file is shared among different passes, it
736 should be opened in append mode. */
737 dump_files
[i
].alt_state
= 1;
738 dump_files
[i
].alt_flags
|= flags
;
740 /* Override the existing filename. */
742 dump_files
[i
].alt_filename
= xstrdup (filename
);
743 if (old_filename
&& filename
!= old_filename
)
744 free (CONST_CAST (char *, old_filename
));
748 for (i
= 0; i
< m_extra_dump_files_in_use
; i
++)
750 if ((m_extra_dump_files
[i
].optgroup_flags
& optgroup_flags
))
752 const char *old_filename
= m_extra_dump_files
[i
].alt_filename
;
753 /* Since this file is shared among different passes, it
754 should be opened in append mode. */
755 m_extra_dump_files
[i
].alt_state
= 1;
756 m_extra_dump_files
[i
].alt_flags
|= flags
;
758 /* Override the existing filename. */
760 m_extra_dump_files
[i
].alt_filename
= xstrdup (filename
);
761 if (old_filename
&& filename
!= old_filename
)
762 free (CONST_CAST (char *, old_filename
));
769 /* Parse ARG as a dump switch. Return nonzero if it is, and store the
770 relevant details in the dump_files array. */
774 dump_switch_p_1 (const char *arg
, struct dump_file_info
*dfi
, bool doglob
)
776 const char *option_value
;
780 if (doglob
&& !dfi
->glob
)
783 option_value
= skip_leading_substring (arg
, doglob
? dfi
->glob
: dfi
->swtch
);
787 if (*option_value
&& *option_value
!= '-' && *option_value
!= '=')
795 const struct dump_option_value_info
*option_ptr
;
802 end_ptr
= strchr (ptr
, '-');
803 eq_ptr
= strchr (ptr
, '=');
805 if (eq_ptr
&& !end_ptr
)
809 end_ptr
= ptr
+ strlen (ptr
);
810 length
= end_ptr
- ptr
;
812 for (option_ptr
= dump_options
; option_ptr
->name
; option_ptr
++)
813 if (strlen (option_ptr
->name
) == length
814 && !memcmp (option_ptr
->name
, ptr
, length
))
816 flags
|= option_ptr
->value
;
822 /* Interpret rest of the argument as a dump filename. This
823 filename overrides other command line filenames. */
825 free (CONST_CAST (char *, dfi
->pfilename
));
826 dfi
->pfilename
= xstrdup (ptr
+ 1);
830 warning (0, "ignoring unknown option %q.*s in %<-fdump-%s%>",
831 length
, ptr
, dfi
->swtch
);
837 dfi
->pflags
|= flags
;
839 /* Process -fdump-tree-all and -fdump-rtl-all, by enabling all the
841 if (dfi
->suffix
== NULL
)
842 dump_enable_all (dfi
->dkind
, dfi
->pflags
, dfi
->pfilename
);
849 dump_switch_p (const char *arg
)
854 for (i
= TDI_none
+ 1; i
!= TDI_end
; i
++)
855 any
|= dump_switch_p_1 (arg
, &dump_files
[i
], false);
857 /* Don't glob if we got a hit already */
859 for (i
= TDI_none
+ 1; i
!= TDI_end
; i
++)
860 any
|= dump_switch_p_1 (arg
, &dump_files
[i
], true);
862 for (i
= 0; i
< m_extra_dump_files_in_use
; i
++)
863 any
|= dump_switch_p_1 (arg
, &m_extra_dump_files
[i
], false);
866 for (i
= 0; i
< m_extra_dump_files_in_use
; i
++)
867 any
|= dump_switch_p_1 (arg
, &m_extra_dump_files
[i
], true);
873 /* Parse ARG as a -fopt-info switch and store flags, optgroup_flags
874 and filename. Return non-zero if it is a recognized switch. */
877 opt_info_switch_p_1 (const char *arg
, dump_flags_t
*flags
, int *optgroup_flags
,
880 const char *option_value
;
891 return 1; /* Handle '-fopt-info' without any additional options. */
895 const struct dump_option_value_info
*option_ptr
;
902 end_ptr
= strchr (ptr
, '-');
903 eq_ptr
= strchr (ptr
, '=');
905 if (eq_ptr
&& !end_ptr
)
909 end_ptr
= ptr
+ strlen (ptr
);
910 length
= end_ptr
- ptr
;
912 for (option_ptr
= optinfo_verbosity_options
; option_ptr
->name
;
914 if (strlen (option_ptr
->name
) == length
915 && !memcmp (option_ptr
->name
, ptr
, length
))
917 *flags
|= option_ptr
->value
;
921 for (option_ptr
= optgroup_options
; option_ptr
->name
; option_ptr
++)
922 if (strlen (option_ptr
->name
) == length
923 && !memcmp (option_ptr
->name
, ptr
, length
))
925 *optgroup_flags
|= option_ptr
->value
;
931 /* Interpret rest of the argument as a dump filename. This
932 filename overrides other command line filenames. */
933 *filename
= xstrdup (ptr
+ 1);
938 warning (0, "unknown option %q.*s in %<-fopt-info-%s%>",
949 /* Return non-zero if ARG is a recognized switch for
950 -fopt-info. Return zero otherwise. */
953 opt_info_switch_p (const char *arg
)
958 static char *file_seen
= NULL
;
959 gcc::dump_manager
*dumps
= g
->get_dumps ();
961 if (!opt_info_switch_p_1 (arg
, &flags
, &optgroup_flags
, &filename
))
965 filename
= xstrdup ("stderr");
967 /* Bail out if a different filename has been specified. */
968 if (file_seen
&& strcmp (file_seen
, filename
))
970 warning (0, "ignoring possibly conflicting option %<-fopt-info-%s%>",
975 file_seen
= xstrdup (filename
);
977 flags
= MSG_OPTIMIZED_LOCATIONS
;
979 optgroup_flags
= OPTGROUP_ALL
;
981 return dumps
->opt_info_enable_passes (optgroup_flags
, flags
, filename
);
984 /* Print basic block on the dump streams. */
987 dump_basic_block (int dump_kind
, basic_block bb
, int indent
)
989 if (dump_file
&& (dump_kind
& pflags
))
990 dump_bb (dump_file
, bb
, indent
, TDF_DETAILS
);
991 if (alt_dump_file
&& (dump_kind
& alt_flags
))
992 dump_bb (alt_dump_file
, bb
, indent
, TDF_DETAILS
);
995 /* Dump FUNCTION_DECL FN as tree dump PHASE. */
998 dump_function (int phase
, tree fn
)
1003 stream
= dump_begin (phase
, &flags
);
1006 dump_function_to_file (fn
, stream
, flags
);
1007 dump_end (phase
, stream
);
1011 /* Print information from the combine pass on dump_file. */
1014 print_combine_total_stats (void)
1017 dump_combine_total_stats (dump_file
);
1020 /* Enable RTL dump for all the RTL passes. */
1023 enable_rtl_dump_file (void)
1025 gcc::dump_manager
*dumps
= g
->get_dumps ();
1027 dumps
->dump_enable_all (DK_rtl
, dump_flags_t (TDF_DETAILS
) | TDF_BLOCKS
,
1029 return num_enabled
> 0;