1 /* Miscellaneous utilities for GIMPLE streaming. Things that are used
2 in both input and output are here.
4 Copyright (C) 2009-2019 Free Software Foundation, Inc.
5 Contributed by Doug Kwan <dougkwan@google.com>
7 This file is part of GCC.
9 GCC is free software; you can redistribute it and/or modify it under
10 the terms of the GNU General Public License as published by the Free
11 Software Foundation; either version 3, or (at your option) any later
14 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
15 WARRANTY; without even the implied warranty of MERCHANTABILITY or
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
19 You should have received a copy of the GNU General Public License
20 along with GCC; see the file COPYING3. If not see
21 <http://www.gnu.org/licenses/>. */
25 #include "coretypes.h"
29 #include "tree-streamer.h"
31 #include "lto-streamer.h"
33 #include "lto-section-names.h"
35 /* Statistics gathered during LTO, WPA and LTRANS. */
36 struct lto_stats_d lto_stats
;
38 const char *section_name_prefix
= LTO_SECTION_NAME_PREFIX
;
39 /* Set when streaming LTO for offloading compiler. */
40 bool lto_stream_offload_p
;
42 FILE *streamer_dump_file
;
44 /* Return a string representing LTO tag TAG. */
47 lto_tag_name (enum LTO_tags tag
)
49 if (lto_tag_is_tree_code_p (tag
))
51 /* For tags representing tree nodes, return the name of the
52 associated tree code. */
53 return get_tree_code_name (lto_tag_to_tree_code (tag
));
56 if (lto_tag_is_gimple_code_p (tag
))
58 /* For tags representing gimple statements, return the name of
59 the associated gimple code. */
60 return gimple_code_name
[lto_tag_to_gimple_code (tag
)];
72 return "LTO_eh_region";
74 return "LTO_function";
76 return "LTO_eh_table";
78 return "LTO_ert_cleanup";
81 case LTO_ert_allowed_exceptions
:
82 return "LTO_ert_allowed_exceptions";
83 case LTO_ert_must_not_throw
:
84 return "LTO_ert_must_not_throw";
85 case LTO_tree_pickle_reference
:
86 return "LTO_tree_pickle_reference";
87 case LTO_field_decl_ref
:
88 return "LTO_field_decl_ref";
89 case LTO_function_decl_ref
:
90 return "LTO_function_decl_ref";
91 case LTO_label_decl_ref
:
92 return "LTO_label_decl_ref";
93 case LTO_namespace_decl_ref
:
94 return "LTO_namespace_decl_ref";
95 case LTO_result_decl_ref
:
96 return "LTO_result_decl_ref";
97 case LTO_ssa_name_ref
:
98 return "LTO_ssa_name_ref";
99 case LTO_type_decl_ref
:
100 return "LTO_type_decl_ref";
102 return "LTO_type_ref";
103 case LTO_global_decl_ref
:
104 return "LTO_global_decl_ref";
106 return "LTO_UNKNOWN";
111 /* Get a section name for a particular type or name. The NAME field
112 is only used if SECTION_TYPE is LTO_section_function_body. For all
113 others it is ignored. The callee of this function is responsible
114 to free the returned name. */
117 lto_get_section_name (int section_type
, const char *name
, struct lto_file_decl_data
*f
)
123 if (section_type
== LTO_section_function_body
)
125 gcc_assert (name
!= NULL
);
131 else if (section_type
< LTO_N_SECTION_TYPES
)
133 add
= lto_section_name
[section_type
];
137 internal_error ("bytecode stream: unexpected LTO section %s", name
);
139 /* Make the section name unique so that ld -r combining sections
140 doesn't confuse the reader with merged sections.
142 For options don't add a ID, the option reader cannot deal with them
143 and merging should be ok here. */
144 if (section_type
== LTO_section_opts
)
147 sprintf (post
, "." HOST_WIDE_INT_PRINT_HEX_PURE
, f
->id
);
149 sprintf (post
, "." HOST_WIDE_INT_PRINT_HEX_PURE
, get_random_seed (false));
150 return concat (section_name_prefix
, sep
, add
, post
, NULL
);
154 /* Show various memory usage statistics related to LTO. */
157 print_lto_report (const char *s
)
161 fprintf (stderr
, "[%s] # of input files: "
162 HOST_WIDE_INT_PRINT_UNSIGNED
"\n", s
, lto_stats
.num_input_files
);
164 fprintf (stderr
, "[%s] # of input cgraph nodes: "
165 HOST_WIDE_INT_PRINT_UNSIGNED
"\n", s
,
166 lto_stats
.num_input_cgraph_nodes
);
168 fprintf (stderr
, "[%s] # of function bodies: "
169 HOST_WIDE_INT_PRINT_UNSIGNED
"\n", s
,
170 lto_stats
.num_function_bodies
);
172 for (i
= 0; i
< NUM_TREE_CODES
; i
++)
173 if (lto_stats
.num_trees
[i
])
174 fprintf (stderr
, "[%s] # of '%s' objects read: "
175 HOST_WIDE_INT_PRINT_UNSIGNED
"\n", s
,
176 get_tree_code_name ((enum tree_code
) i
), lto_stats
.num_trees
[i
]);
180 fprintf (stderr
, "[%s] Compression: "
181 HOST_WIDE_INT_PRINT_UNSIGNED
" output bytes, "
182 HOST_WIDE_INT_PRINT_UNSIGNED
" compressed bytes", s
,
183 lto_stats
.num_output_il_bytes
,
184 lto_stats
.num_compressed_il_bytes
);
185 if (lto_stats
.num_output_il_bytes
> 0)
187 const float dividend
= (float) lto_stats
.num_compressed_il_bytes
;
188 const float divisor
= (float) lto_stats
.num_output_il_bytes
;
189 fprintf (stderr
, " (ratio: %f)", dividend
/ divisor
);
191 fprintf (stderr
, "\n");
196 fprintf (stderr
, "[%s] # of output files: "
197 HOST_WIDE_INT_PRINT_UNSIGNED
"\n", s
,
198 lto_stats
.num_output_files
);
200 fprintf (stderr
, "[%s] # of output symtab nodes: "
201 HOST_WIDE_INT_PRINT_UNSIGNED
"\n", s
,
202 lto_stats
.num_output_symtab_nodes
);
204 fprintf (stderr
, "[%s] # of output tree pickle references: "
205 HOST_WIDE_INT_PRINT_UNSIGNED
"\n", s
,
206 lto_stats
.num_pickle_refs_output
);
207 fprintf (stderr
, "[%s] # of output tree bodies: "
208 HOST_WIDE_INT_PRINT_UNSIGNED
"\n", s
,
209 lto_stats
.num_tree_bodies_output
);
211 fprintf (stderr
, "[%s] # callgraph partitions: "
212 HOST_WIDE_INT_PRINT_UNSIGNED
"\n", s
,
213 lto_stats
.num_cgraph_partitions
);
215 fprintf (stderr
, "[%s] Compression: "
216 HOST_WIDE_INT_PRINT_UNSIGNED
" input bytes, "
217 HOST_WIDE_INT_PRINT_UNSIGNED
" uncompressed bytes", s
,
218 lto_stats
.num_input_il_bytes
,
219 lto_stats
.num_uncompressed_il_bytes
);
220 if (lto_stats
.num_input_il_bytes
> 0)
222 const float dividend
= (float) lto_stats
.num_uncompressed_il_bytes
;
223 const float divisor
= (float) lto_stats
.num_input_il_bytes
;
224 fprintf (stderr
, " (ratio: %f)", dividend
/ divisor
);
226 fprintf (stderr
, "\n");
229 for (i
= 0; i
< LTO_N_SECTION_TYPES
; i
++)
230 fprintf (stderr
, "[%s] Size of mmap'd section %s: "
231 HOST_WIDE_INT_PRINT_UNSIGNED
" bytes\n", s
,
232 lto_section_name
[i
], lto_stats
.section_size
[i
]);
235 /* Initialization common to the LTO reader and writer. */
238 lto_streamer_init (void)
240 /* Check that all the TS_* handled by the reader and writer routines
241 match exactly the structures defined in treestruct.def. When a
242 new TS_* astructure is added, the streamer should be updated to
245 streamer_check_handled_ts_structures ();
249 /* Gate function for all LTO streaming passes. */
254 return ((flag_generate_lto
|| flag_generate_offload
|| in_lto_p
)
255 /* Don't bother doing anything if the program has errors. */
259 /* Check that the version MAJOR.MINOR is the correct version number. */
262 lto_check_version (int major
, int minor
, const char *file_name
)
264 if (major
!= LTO_major_version
|| minor
!= LTO_minor_version
)
265 fatal_error (input_location
,
266 "bytecode stream in file %qs generated with LTO version "
267 "%d.%d instead of the expected %d.%d",
270 LTO_major_version
, LTO_minor_version
);
274 /* Initialize all the streamer hooks used for streaming GIMPLE. */
277 lto_streamer_hooks_init (void)
279 streamer_hooks_init ();
280 streamer_hooks
.write_tree
= lto_output_tree
;
281 streamer_hooks
.read_tree
= lto_input_tree
;
282 streamer_hooks
.input_location
= lto_input_location
;
283 streamer_hooks
.output_location
= lto_output_location
;