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", dump_flags_t (~(TDF_RAW
| TDF_SLIM
| TDF_LINENO
| TDF_GRAPH
114 | TDF_STMTADDR
| TDF_RHS_ONLY
| TDF_NOUID
115 | TDF_ENUMERATE_LOCALS
| TDF_SCEV
| TDF_GIMPLE
))},
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
);
191 /* Construct a new object in the space allocated above. */
192 new (m_extra_dump_files
+ count
) dump_file_info ();
196 /* Zero out the already constructed object. */
197 m_extra_dump_files
[count
] = dump_file_info ();
200 m_extra_dump_files
[count
].suffix
= suffix
;
201 m_extra_dump_files
[count
].swtch
= swtch
;
202 m_extra_dump_files
[count
].glob
= glob
;
203 m_extra_dump_files
[count
].dkind
= dkind
;
204 m_extra_dump_files
[count
].optgroup_flags
= optgroup_flags
;
205 m_extra_dump_files
[count
].num
= num
;
206 m_extra_dump_files
[count
].owns_strings
= take_ownership
;
208 return count
+ TDI_end
;
212 /* Allow languages and middle-end to register their dumps before the
213 optimization passes. */
219 lang_hooks
.register_dumps (this);
220 /* If this assert fails, some FE registered more than
221 FIRST_ME_AUTO_NUMBERED_DUMP - FIRST_AUTO_NUMBERED_DUMP
222 dump files. Bump FIRST_ME_AUTO_NUMBERED_DUMP accordingly. */
223 gcc_assert (m_next_dump
<= FIRST_ME_AUTO_NUMBERED_DUMP
);
224 m_next_dump
= FIRST_ME_AUTO_NUMBERED_DUMP
;
225 dump_files
[TDI_original
].num
= m_next_dump
++;
226 dump_files
[TDI_gimple
].num
= m_next_dump
++;
227 dump_files
[TDI_nested
].num
= m_next_dump
++;
231 /* Return the dump_file_info for the given phase. */
233 struct dump_file_info
*
235 get_dump_file_info (int phase
) const
238 return &dump_files
[phase
];
239 else if ((size_t) (phase
- TDI_end
) >= m_extra_dump_files_in_use
)
242 return m_extra_dump_files
+ (phase
- TDI_end
);
245 /* Locate the dump_file_info with swtch equal to SWTCH,
246 or return NULL if no such dump_file_info exists. */
248 struct dump_file_info
*
250 get_dump_file_info_by_switch (const char *swtch
) const
252 for (unsigned i
= 0; i
< m_extra_dump_files_in_use
; i
++)
253 if (0 == strcmp (m_extra_dump_files
[i
].swtch
, swtch
))
254 return &m_extra_dump_files
[i
];
261 /* Return the name of the dump file for the given phase.
262 The caller is responsible for calling free on the returned
264 If the dump is not enabled, returns NULL. */
268 get_dump_file_name (int phase
) const
270 struct dump_file_info
*dfi
;
272 if (phase
== TDI_none
)
275 dfi
= get_dump_file_info (phase
);
277 return get_dump_file_name (dfi
);
280 /* Return the name of the dump file for the given dump_file_info.
281 The caller is responsible for calling free on the returned
283 If the dump is not enabled, returns NULL. */
287 get_dump_file_name (struct dump_file_info
*dfi
) const
293 if (dfi
->pstate
== 0)
296 /* If available, use the command line dump filename. */
298 return xstrdup (dfi
->pfilename
);
304 /* (null), LANG, TREE, RTL, IPA. */
305 char suffix
= " ltri"[dfi
->dkind
];
307 if (snprintf (dump_id
, sizeof (dump_id
), ".%03d%c", dfi
->num
, suffix
) < 0)
311 return concat (dump_base_name
, dump_id
, dfi
->suffix
, NULL
);
314 /* For a given DFI, open an alternate dump filename (which could also
315 be a standard stream such as stdout/stderr). If the alternate dump
316 file cannot be opened, return NULL. */
319 dump_open_alternate_stream (struct dump_file_info
*dfi
)
322 if (!dfi
->alt_filename
)
326 return dfi
->alt_stream
;
328 stream
= strcmp ("stderr", dfi
->alt_filename
) == 0
330 : strcmp ("stdout", dfi
->alt_filename
) == 0
332 : fopen (dfi
->alt_filename
, dfi
->alt_state
< 0 ? "w" : "a");
335 error ("could not open dump file %qs: %m", dfi
->alt_filename
);
342 /* Print source location on DFILE if enabled. */
345 dump_loc (dump_flags_t dump_kind
, FILE *dfile
, source_location loc
)
349 if (LOCATION_LOCUS (loc
) > BUILTINS_LOCATION
)
350 fprintf (dfile
, "%s:%d:%d: note: ", LOCATION_FILE (loc
),
351 LOCATION_LINE (loc
), LOCATION_COLUMN (loc
));
352 else if (current_function_decl
)
353 fprintf (dfile
, "%s:%d:%d: note: ",
354 DECL_SOURCE_FILE (current_function_decl
),
355 DECL_SOURCE_LINE (current_function_decl
),
356 DECL_SOURCE_COLUMN (current_function_decl
));
360 /* Dump gimple statement GS with SPC indentation spaces and
361 EXTRA_DUMP_FLAGS on the dump streams if DUMP_KIND is enabled. */
364 dump_gimple_stmt (dump_flags_t dump_kind
, dump_flags_t extra_dump_flags
,
367 if (dump_file
&& (dump_kind
& pflags
))
368 print_gimple_stmt (dump_file
, gs
, spc
, dump_flags
| extra_dump_flags
);
370 if (alt_dump_file
&& (dump_kind
& alt_flags
))
371 print_gimple_stmt (alt_dump_file
, gs
, spc
, dump_flags
| extra_dump_flags
);
374 /* Similar to dump_gimple_stmt, except additionally print source location. */
377 dump_gimple_stmt_loc (dump_flags_t dump_kind
, source_location loc
,
378 dump_flags_t extra_dump_flags
, gimple
*gs
, int spc
)
380 if (dump_file
&& (dump_kind
& pflags
))
382 dump_loc (dump_kind
, dump_file
, loc
);
383 print_gimple_stmt (dump_file
, gs
, spc
, dump_flags
| extra_dump_flags
);
386 if (alt_dump_file
&& (dump_kind
& alt_flags
))
388 dump_loc (dump_kind
, alt_dump_file
, loc
);
389 print_gimple_stmt (alt_dump_file
, gs
, spc
, dump_flags
| extra_dump_flags
);
393 /* Dump expression tree T using EXTRA_DUMP_FLAGS on dump streams if
394 DUMP_KIND is enabled. */
397 dump_generic_expr (dump_flags_t dump_kind
, dump_flags_t extra_dump_flags
,
400 if (dump_file
&& (dump_kind
& pflags
))
401 print_generic_expr (dump_file
, t
, dump_flags
| extra_dump_flags
);
403 if (alt_dump_file
&& (dump_kind
& alt_flags
))
404 print_generic_expr (alt_dump_file
, t
, dump_flags
| extra_dump_flags
);
408 /* Similar to dump_generic_expr, except additionally print the source
412 dump_generic_expr_loc (int dump_kind
, source_location loc
,
413 dump_flags_t extra_dump_flags
, tree t
)
415 if (dump_file
&& (dump_kind
& pflags
))
417 dump_loc (dump_kind
, dump_file
, loc
);
418 print_generic_expr (dump_file
, t
, dump_flags
| extra_dump_flags
);
421 if (alt_dump_file
&& (dump_kind
& alt_flags
))
423 dump_loc (dump_kind
, alt_dump_file
, loc
);
424 print_generic_expr (alt_dump_file
, t
, dump_flags
| extra_dump_flags
);
428 /* Output a formatted message using FORMAT on appropriate dump streams. */
431 dump_printf (dump_flags_t dump_kind
, const char *format
, ...)
433 if (dump_file
&& (dump_kind
& pflags
))
436 va_start (ap
, format
);
437 vfprintf (dump_file
, format
, ap
);
441 if (alt_dump_file
&& (dump_kind
& alt_flags
))
444 va_start (ap
, format
);
445 vfprintf (alt_dump_file
, format
, ap
);
450 /* Similar to dump_printf, except source location is also printed. */
453 dump_printf_loc (dump_flags_t dump_kind
, source_location loc
,
454 const char *format
, ...)
456 if (dump_file
&& (dump_kind
& pflags
))
459 dump_loc (dump_kind
, dump_file
, loc
);
460 va_start (ap
, format
);
461 vfprintf (dump_file
, format
, ap
);
465 if (alt_dump_file
&& (dump_kind
& alt_flags
))
468 dump_loc (dump_kind
, alt_dump_file
, loc
);
469 va_start (ap
, format
);
470 vfprintf (alt_dump_file
, format
, ap
);
475 /* Start a dump for PHASE. Store user-supplied dump flags in
476 *FLAG_PTR. Return the number of streams opened. Set globals
477 DUMP_FILE, and ALT_DUMP_FILE to point to the opened streams, and
478 set dump_flags appropriately for both pass dump stream and
479 -fopt-info stream. */
483 dump_start (int phase
, dump_flags_t
*flag_ptr
)
487 struct dump_file_info
*dfi
;
489 if (phase
== TDI_none
|| !dump_phase_enabled_p (phase
))
492 dfi
= get_dump_file_info (phase
);
493 name
= get_dump_file_name (phase
);
496 stream
= strcmp ("stderr", name
) == 0
498 : strcmp ("stdout", name
) == 0
500 : fopen (name
, dfi
->pstate
< 0 ? "w" : "a");
502 error ("could not open dump file %qs: %m", name
);
509 dfi
->pstream
= stream
;
510 dump_file
= dfi
->pstream
;
511 /* Initialize current dump flags. */
512 pflags
= dfi
->pflags
;
515 stream
= dump_open_alternate_stream (dfi
);
518 dfi
->alt_stream
= stream
;
520 alt_dump_file
= dfi
->alt_stream
;
521 /* Initialize current -fopt-info flags. */
522 alt_flags
= dfi
->alt_flags
;
526 *flag_ptr
= dfi
->pflags
;
531 /* Finish a tree dump for PHASE and close associated dump streams. Also
532 reset the globals DUMP_FILE, ALT_DUMP_FILE, and DUMP_FLAGS. */
536 dump_finish (int phase
)
538 struct dump_file_info
*dfi
;
542 dfi
= get_dump_file_info (phase
);
543 if (dfi
->pstream
&& (!dfi
->pfilename
544 || (strcmp ("stderr", dfi
->pfilename
) != 0
545 && strcmp ("stdout", dfi
->pfilename
) != 0)))
546 fclose (dfi
->pstream
);
548 if (dfi
->alt_stream
&& strcmp ("stderr", dfi
->alt_filename
) != 0
549 && strcmp ("stdout", dfi
->alt_filename
) != 0)
550 fclose (dfi
->alt_stream
);
552 dfi
->alt_stream
= NULL
;
555 alt_dump_file
= NULL
;
556 dump_flags
= TDI_none
;
561 /* Begin a tree dump for PHASE. Stores any user supplied flag in
562 *FLAG_PTR and returns a stream to write to. If the dump is not
563 enabled, returns NULL.
564 Multiple calls will reopen and append to the dump file. */
567 dump_begin (int phase
, dump_flags_t
*flag_ptr
)
569 return g
->get_dumps ()->dump_begin (phase
, flag_ptr
);
574 dump_begin (int phase
, dump_flags_t
*flag_ptr
)
577 struct dump_file_info
*dfi
;
580 if (phase
== TDI_none
|| !dump_phase_enabled_p (phase
))
583 name
= get_dump_file_name (phase
);
586 dfi
= get_dump_file_info (phase
);
588 stream
= strcmp ("stderr", name
) == 0
590 : strcmp ("stdout", name
) == 0
592 : fopen (name
, dfi
->pstate
< 0 ? "w" : "a");
595 error ("could not open dump file %qs: %m", name
);
601 *flag_ptr
= dfi
->pflags
;
603 /* Initialize current flags */
604 pflags
= dfi
->pflags
;
608 /* Returns nonzero if dump PHASE is enabled for at least one stream.
609 If PHASE is TDI_tree_all, return nonzero if any dump is enabled for
614 dump_phase_enabled_p (int phase
) const
616 if (phase
== TDI_tree_all
)
619 for (i
= TDI_none
+ 1; i
< (size_t) TDI_end
; i
++)
620 if (dump_files
[i
].pstate
|| dump_files
[i
].alt_state
)
622 for (i
= 0; i
< m_extra_dump_files_in_use
; i
++)
623 if (m_extra_dump_files
[i
].pstate
|| m_extra_dump_files
[i
].alt_state
)
629 struct dump_file_info
*dfi
= get_dump_file_info (phase
);
630 return dfi
->pstate
|| dfi
->alt_state
;
634 /* Returns nonzero if tree dump PHASE has been initialized. */
638 dump_initialized_p (int phase
) const
640 struct dump_file_info
*dfi
= get_dump_file_info (phase
);
641 return dfi
->pstate
> 0 || dfi
->alt_state
> 0;
644 /* Returns the switch name of PHASE. */
647 dump_flag_name (int phase
)
649 return g
->get_dumps ()->dump_flag_name (phase
);
654 dump_flag_name (int phase
) const
656 struct dump_file_info
*dfi
= get_dump_file_info (phase
);
660 /* Finish a tree dump for PHASE. STREAM is the stream created by
664 dump_end (int phase ATTRIBUTE_UNUSED
, FILE *stream
)
666 if (stream
!= stderr
&& stream
!= stdout
)
670 /* Enable all tree dumps with FLAGS on FILENAME. Return number of
671 enabled tree dumps. */
675 dump_enable_all (dump_kind dkind
, dump_flags_t flags
, const char *filename
)
680 for (i
= TDI_none
+ 1; i
< (size_t) TDI_end
; i
++)
682 if ((dump_files
[i
].dkind
== dkind
))
684 const char *old_filename
= dump_files
[i
].pfilename
;
685 dump_files
[i
].pstate
= -1;
686 dump_files
[i
].pflags
|= flags
;
688 /* Override the existing filename. */
691 dump_files
[i
].pfilename
= xstrdup (filename
);
692 /* Since it is a command-line provided file, which is
693 common to all the phases, use it in append mode. */
694 dump_files
[i
].pstate
= 1;
696 if (old_filename
&& filename
!= old_filename
)
697 free (CONST_CAST (char *, old_filename
));
701 for (i
= 0; i
< m_extra_dump_files_in_use
; i
++)
703 if ((m_extra_dump_files
[i
].dkind
== dkind
))
705 const char *old_filename
= m_extra_dump_files
[i
].pfilename
;
706 m_extra_dump_files
[i
].pstate
= -1;
707 m_extra_dump_files
[i
].pflags
|= flags
;
709 /* Override the existing filename. */
712 m_extra_dump_files
[i
].pfilename
= xstrdup (filename
);
713 /* Since it is a command-line provided file, which is
714 common to all the phases, use it in append mode. */
715 m_extra_dump_files
[i
].pstate
= 1;
717 if (old_filename
&& filename
!= old_filename
)
718 free (CONST_CAST (char *, old_filename
));
725 /* Enable -fopt-info dumps on all dump files matching OPTGROUP_FLAGS.
726 Enable dumps with FLAGS on FILENAME. Return the number of enabled
731 opt_info_enable_passes (int optgroup_flags
, dump_flags_t flags
,
732 const char *filename
)
737 for (i
= TDI_none
+ 1; i
< (size_t) TDI_end
; i
++)
739 if ((dump_files
[i
].optgroup_flags
& optgroup_flags
))
741 const char *old_filename
= dump_files
[i
].alt_filename
;
742 /* Since this file is shared among different passes, it
743 should be opened in append mode. */
744 dump_files
[i
].alt_state
= 1;
745 dump_files
[i
].alt_flags
|= flags
;
747 /* Override the existing filename. */
749 dump_files
[i
].alt_filename
= xstrdup (filename
);
750 if (old_filename
&& filename
!= old_filename
)
751 free (CONST_CAST (char *, old_filename
));
755 for (i
= 0; i
< m_extra_dump_files_in_use
; i
++)
757 if ((m_extra_dump_files
[i
].optgroup_flags
& optgroup_flags
))
759 const char *old_filename
= m_extra_dump_files
[i
].alt_filename
;
760 /* Since this file is shared among different passes, it
761 should be opened in append mode. */
762 m_extra_dump_files
[i
].alt_state
= 1;
763 m_extra_dump_files
[i
].alt_flags
|= flags
;
765 /* Override the existing filename. */
767 m_extra_dump_files
[i
].alt_filename
= xstrdup (filename
);
768 if (old_filename
&& filename
!= old_filename
)
769 free (CONST_CAST (char *, old_filename
));
776 /* Parse ARG as a dump switch. Return nonzero if it is, and store the
777 relevant details in the dump_files array. */
781 dump_switch_p_1 (const char *arg
, struct dump_file_info
*dfi
, bool doglob
)
783 const char *option_value
;
787 if (doglob
&& !dfi
->glob
)
790 option_value
= skip_leading_substring (arg
, doglob
? dfi
->glob
: dfi
->swtch
);
794 if (*option_value
&& *option_value
!= '-' && *option_value
!= '=')
802 const struct dump_option_value_info
*option_ptr
;
809 end_ptr
= strchr (ptr
, '-');
810 eq_ptr
= strchr (ptr
, '=');
812 if (eq_ptr
&& !end_ptr
)
816 end_ptr
= ptr
+ strlen (ptr
);
817 length
= end_ptr
- ptr
;
819 for (option_ptr
= dump_options
; option_ptr
->name
; option_ptr
++)
820 if (strlen (option_ptr
->name
) == length
821 && !memcmp (option_ptr
->name
, ptr
, length
))
823 flags
|= option_ptr
->value
;
829 /* Interpret rest of the argument as a dump filename. This
830 filename overrides other command line filenames. */
832 free (CONST_CAST (char *, dfi
->pfilename
));
833 dfi
->pfilename
= xstrdup (ptr
+ 1);
837 warning (0, "ignoring unknown option %q.*s in %<-fdump-%s%>",
838 length
, ptr
, dfi
->swtch
);
844 dfi
->pflags
|= flags
;
846 /* Process -fdump-tree-all and -fdump-rtl-all, by enabling all the
848 if (dfi
->suffix
== NULL
)
849 dump_enable_all (dfi
->dkind
, dfi
->pflags
, dfi
->pfilename
);
856 dump_switch_p (const char *arg
)
861 for (i
= TDI_none
+ 1; i
!= TDI_end
; i
++)
862 any
|= dump_switch_p_1 (arg
, &dump_files
[i
], false);
864 /* Don't glob if we got a hit already */
866 for (i
= TDI_none
+ 1; i
!= TDI_end
; i
++)
867 any
|= dump_switch_p_1 (arg
, &dump_files
[i
], true);
869 for (i
= 0; i
< m_extra_dump_files_in_use
; i
++)
870 any
|= dump_switch_p_1 (arg
, &m_extra_dump_files
[i
], false);
873 for (i
= 0; i
< m_extra_dump_files_in_use
; i
++)
874 any
|= dump_switch_p_1 (arg
, &m_extra_dump_files
[i
], true);
880 /* Parse ARG as a -fopt-info switch and store flags, optgroup_flags
881 and filename. Return non-zero if it is a recognized switch. */
884 opt_info_switch_p_1 (const char *arg
, dump_flags_t
*flags
, int *optgroup_flags
,
887 const char *option_value
;
898 return 1; /* Handle '-fopt-info' without any additional options. */
902 const struct dump_option_value_info
*option_ptr
;
909 end_ptr
= strchr (ptr
, '-');
910 eq_ptr
= strchr (ptr
, '=');
912 if (eq_ptr
&& !end_ptr
)
916 end_ptr
= ptr
+ strlen (ptr
);
917 length
= end_ptr
- ptr
;
919 for (option_ptr
= optinfo_verbosity_options
; option_ptr
->name
;
921 if (strlen (option_ptr
->name
) == length
922 && !memcmp (option_ptr
->name
, ptr
, length
))
924 *flags
|= option_ptr
->value
;
928 for (option_ptr
= optgroup_options
; option_ptr
->name
; option_ptr
++)
929 if (strlen (option_ptr
->name
) == length
930 && !memcmp (option_ptr
->name
, ptr
, length
))
932 *optgroup_flags
|= option_ptr
->value
;
938 /* Interpret rest of the argument as a dump filename. This
939 filename overrides other command line filenames. */
940 *filename
= xstrdup (ptr
+ 1);
945 warning (0, "unknown option %q.*s in %<-fopt-info-%s%>",
956 /* Return non-zero if ARG is a recognized switch for
957 -fopt-info. Return zero otherwise. */
960 opt_info_switch_p (const char *arg
)
965 static char *file_seen
= NULL
;
966 gcc::dump_manager
*dumps
= g
->get_dumps ();
968 if (!opt_info_switch_p_1 (arg
, &flags
, &optgroup_flags
, &filename
))
972 filename
= xstrdup ("stderr");
974 /* Bail out if a different filename has been specified. */
975 if (file_seen
&& strcmp (file_seen
, filename
))
977 warning (0, "ignoring possibly conflicting option %<-fopt-info-%s%>",
982 file_seen
= xstrdup (filename
);
984 flags
= MSG_OPTIMIZED_LOCATIONS
;
986 optgroup_flags
= OPTGROUP_ALL
;
988 return dumps
->opt_info_enable_passes (optgroup_flags
, flags
, filename
);
991 /* Print basic block on the dump streams. */
994 dump_basic_block (int dump_kind
, basic_block bb
, int indent
)
996 if (dump_file
&& (dump_kind
& pflags
))
997 dump_bb (dump_file
, bb
, indent
, TDF_DETAILS
);
998 if (alt_dump_file
&& (dump_kind
& alt_flags
))
999 dump_bb (alt_dump_file
, bb
, indent
, TDF_DETAILS
);
1002 /* Dump FUNCTION_DECL FN as tree dump PHASE. */
1005 dump_function (int phase
, tree fn
)
1010 stream
= dump_begin (phase
, &flags
);
1013 dump_function_to_file (fn
, stream
, flags
);
1014 dump_end (phase
, stream
);
1018 /* Print information from the combine pass on dump_file. */
1021 print_combine_total_stats (void)
1024 dump_combine_total_stats (dump_file
);
1027 /* Enable RTL dump for all the RTL passes. */
1030 enable_rtl_dump_file (void)
1032 gcc::dump_manager
*dumps
= g
->get_dumps ();
1034 dumps
->dump_enable_all (DK_rtl
, dump_flags_t (TDF_DETAILS
) | TDF_BLOCKS
,
1036 return num_enabled
> 0;