gcc/
[official-gcc.git] / libgcc / libgcov-merge.c
blobbf6920cfd08d1b1822afa997fd43612ab51422de
1 /* Routines required for instrumenting a program. */
2 /* Compile this one with gcc. */
3 /* Copyright (C) 1989-2015 Free Software Foundation, Inc.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
10 version.
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
17 Under Section 7 of GPL version 3, you are granted additional
18 permissions described in the GCC Runtime Library Exception, version
19 3.1, as published by the Free Software Foundation.
21 You should have received a copy of the GNU General Public License and
22 a copy of the GCC Runtime Library Exception along with this program;
23 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
24 <http://www.gnu.org/licenses/>. */
26 #include "libgcov.h"
28 #if defined(inhibit_libc)
29 /* If libc and its header files are not available, provide dummy functions. */
31 #ifdef L_gcov_merge_add
32 void __gcov_merge_add (gcov_type *counters __attribute__ ((unused)),
33 unsigned n_counters __attribute__ ((unused))) {}
34 #endif
36 #ifdef L_gcov_merge_single
37 void __gcov_merge_single (gcov_type *counters __attribute__ ((unused)),
38 unsigned n_counters __attribute__ ((unused))) {}
39 #endif
41 #ifdef L_gcov_merge_delta
42 void __gcov_merge_delta (gcov_type *counters __attribute__ ((unused)),
43 unsigned n_counters __attribute__ ((unused))) {}
44 #endif
46 #else
48 #ifdef L_gcov_merge_add
49 /* The profile merging function that just adds the counters. It is given
50 an array COUNTERS of N_COUNTERS old counters and it reads the same number
51 of counters from the gcov file. */
52 void
53 __gcov_merge_add (gcov_type *counters, unsigned n_counters)
55 for (; n_counters; counters++, n_counters--)
56 *counters += gcov_get_counter ();
58 #endif /* L_gcov_merge_add */
60 #ifdef L_gcov_merge_ior
61 /* The profile merging function that just adds the counters. It is given
62 an array COUNTERS of N_COUNTERS old counters and it reads the same number
63 of counters from the gcov file. */
64 void
65 __gcov_merge_ior (gcov_type *counters, unsigned n_counters)
67 for (; n_counters; counters++, n_counters--)
68 *counters |= gcov_get_counter_target ();
70 #endif
72 #ifdef L_gcov_merge_time_profile
73 /* Time profiles are merged so that minimum from all valid (greater than zero)
74 is stored. There could be a fork that creates new counters. To have
75 the profile stable, we chosen to pick the smallest function visit time. */
76 void
77 __gcov_merge_time_profile (gcov_type *counters, unsigned n_counters)
79 unsigned int i;
80 gcov_type value;
82 for (i = 0; i < n_counters; i++)
84 value = gcov_get_counter_target ();
86 if (value && (!counters[i] || value < counters[i]))
87 counters[i] = value;
90 #endif /* L_gcov_merge_time_profile */
92 #ifdef L_gcov_merge_single
93 /* The profile merging function for choosing the most common value.
94 It is given an array COUNTERS of N_COUNTERS old counters and it
95 reads the same number of counters from the gcov file. The counters
96 are split into 3-tuples where the members of the tuple have
97 meanings:
99 -- the stored candidate on the most common value of the measured entity
100 -- counter
101 -- total number of evaluations of the value */
102 void
103 __gcov_merge_single (gcov_type *counters, unsigned n_counters)
105 unsigned i, n_measures;
106 gcov_type value, counter, all;
108 gcc_assert (!(n_counters % 3));
109 n_measures = n_counters / 3;
110 for (i = 0; i < n_measures; i++, counters += 3)
112 value = gcov_get_counter_target ();
113 counter = gcov_get_counter ();
114 all = gcov_get_counter ();
116 if (counters[0] == value)
117 counters[1] += counter;
118 else if (counter > counters[1])
120 counters[0] = value;
121 counters[1] = counter - counters[1];
123 else
124 counters[1] -= counter;
125 counters[2] += all;
128 #endif /* L_gcov_merge_single */
130 #ifdef L_gcov_merge_delta
131 /* The profile merging function for choosing the most common
132 difference between two consecutive evaluations of the value. It is
133 given an array COUNTERS of N_COUNTERS old counters and it reads the
134 same number of counters from the gcov file. The counters are split
135 into 4-tuples where the members of the tuple have meanings:
137 -- the last value of the measured entity
138 -- the stored candidate on the most common difference
139 -- counter
140 -- total number of evaluations of the value */
141 void
142 __gcov_merge_delta (gcov_type *counters, unsigned n_counters)
144 unsigned i, n_measures;
145 gcov_type value, counter, all;
147 gcc_assert (!(n_counters % 4));
148 n_measures = n_counters / 4;
149 for (i = 0; i < n_measures; i++, counters += 4)
151 /* last = */ gcov_get_counter ();
152 value = gcov_get_counter_target ();
153 counter = gcov_get_counter ();
154 all = gcov_get_counter ();
156 if (counters[1] == value)
157 counters[2] += counter;
158 else if (counter > counters[2])
160 counters[1] = value;
161 counters[2] = counter - counters[2];
163 else
164 counters[2] -= counter;
165 counters[3] += all;
168 #endif /* L_gcov_merge_delta */
170 #ifdef L_gcov_merge_icall_topn
171 /* The profile merging function used for merging indirect call counts
172 This function is given array COUNTERS of N_COUNTERS old counters and it
173 reads the same number of counters from the gcov file. */
175 void
176 __gcov_merge_icall_topn (gcov_type *counters, unsigned n_counters)
178 unsigned i, j, k, m;
180 gcc_assert (!(n_counters % GCOV_ICALL_TOPN_NCOUNTS));
181 for (i = 0; i < n_counters; i += GCOV_ICALL_TOPN_NCOUNTS)
183 gcov_type *value_array = &counters[i + 1];
184 unsigned tmp_size = 2 * (GCOV_ICALL_TOPN_NCOUNTS - 1);
185 gcov_type *tmp_array
186 = (gcov_type *) alloca (tmp_size * sizeof (gcov_type));
188 for (j = 0; j < tmp_size; j++)
189 tmp_array[j] = 0;
191 for (j = 0; j < GCOV_ICALL_TOPN_NCOUNTS - 1; j += 2)
193 tmp_array[j] = value_array[j];
194 tmp_array[j + 1] = value_array [j + 1];
197 /* Skip the number_of_eviction entry. */
198 gcov_get_counter ();
199 for (k = 0; k < GCOV_ICALL_TOPN_NCOUNTS - 1; k += 2)
201 int found = 0;
202 gcov_type global_id = gcov_get_counter_target ();
203 gcov_type call_count = gcov_get_counter ();
204 for (m = 0; m < j; m += 2)
206 if (tmp_array[m] == global_id)
208 found = 1;
209 tmp_array[m + 1] += call_count;
210 break;
213 if (!found)
215 tmp_array[j] = global_id;
216 tmp_array[j + 1] = call_count;
217 j += 2;
220 /* Now sort the temp array */
221 gcov_sort_n_vals (tmp_array, j);
223 /* Now copy back the top half of the temp array */
224 for (k = 0; k < GCOV_ICALL_TOPN_NCOUNTS - 1; k += 2)
226 value_array[k] = tmp_array[k];
227 value_array[k + 1] = tmp_array[k + 1];
231 #endif /* L_gcov_merge_icall_topn */
232 #endif /* inhibit_libc */