1 /* Header file for libgcov-*.c.
2 Copyright (C) 1996-2023 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 Under Section 7 of GPL version 3, you are granted additional
17 permissions described in the GCC Runtime Library Exception, version
18 3.1, as published by the Free Software Foundation.
20 You should have received a copy of the GNU General Public License and
21 a copy of the GCC Runtime Library Exception along with this program;
22 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
23 <http://www.gnu.org/licenses/>. */
28 /* work around the poisoned malloc/calloc in system.h. */
30 #define xmalloc malloc
33 #define xcalloc calloc
37 /* About the target. */
38 /* This path will be used by libgcov runtime. */
41 #include "auto-target.h"
43 #include "coretypes.h"
45 #include "libgcc_tm.h"
53 typedef unsigned gcov_unsigned_t
__attribute__ ((mode (SI
)));
54 typedef unsigned gcov_position_t
__attribute__ ((mode (SI
)));
55 #if LONG_LONG_TYPE_SIZE > 32
56 typedef signed gcov_type
__attribute__ ((mode (DI
)));
57 typedef unsigned gcov_type_unsigned
__attribute__ ((mode (DI
)));
59 typedef signed gcov_type
__attribute__ ((mode (SI
)));
60 typedef unsigned gcov_type_unsigned
__attribute__ ((mode (SI
)));
63 #if __CHAR_BIT__ == 16
64 typedef unsigned gcov_unsigned_t
__attribute__ ((mode (HI
)));
65 typedef unsigned gcov_position_t
__attribute__ ((mode (HI
)));
66 #if LONG_LONG_TYPE_SIZE > 32
67 typedef signed gcov_type
__attribute__ ((mode (SI
)));
68 typedef unsigned gcov_type_unsigned
__attribute__ ((mode (SI
)));
70 typedef signed gcov_type
__attribute__ ((mode (HI
)));
71 typedef unsigned gcov_type_unsigned
__attribute__ ((mode (HI
)));
74 typedef unsigned gcov_unsigned_t
__attribute__ ((mode (QI
)));
75 typedef unsigned gcov_position_t
__attribute__ ((mode (QI
)));
76 #if LONG_LONG_TYPE_SIZE > 32
77 typedef signed gcov_type
__attribute__ ((mode (HI
)));
78 typedef unsigned gcov_type_unsigned
__attribute__ ((mode (HI
)));
80 typedef signed gcov_type
__attribute__ ((mode (QI
)));
81 typedef unsigned gcov_type_unsigned
__attribute__ ((mode (QI
)));
86 #if defined (TARGET_POSIX_IO)
92 #if defined (__MSVCRT__)
93 #define GCOV_LOCKED_WITH_LOCKING 1
95 #define GCOV_LOCKED_WITH_LOCKING 0
98 /* Detect whether target can support atomic update of profilers. */
99 #if (__SIZEOF_LONG_LONG__ == 4 && __GCC_HAVE_SYNC_COMPARE_AND_SWAP_4) \
100 || (__SIZEOF_LONG_LONG__ == 8 && __GCC_HAVE_SYNC_COMPARE_AND_SWAP_8) \
101 || __LIBGCC_HAVE_LIBATOMIC
102 #define GCOV_SUPPORTS_ATOMIC 1
104 #define GCOV_SUPPORTS_ATOMIC 0
107 /* In libgcov we need these functions to be extern, so prefix them with
108 __gcov. In libgcov they must also be hidden so that the instance in
109 the executable is not also used in a DSO. */
110 #define gcov_var __gcov_var
111 #define gcov_open __gcov_open
112 #define gcov_close __gcov_close
113 #define gcov_position __gcov_position
114 #define gcov_rewrite __gcov_rewrite
115 #define gcov_is_error __gcov_is_error
116 #define gcov_write_unsigned __gcov_write_unsigned
117 #define gcov_write_object_summary __gcov_write_object_summary
118 #define gcov_read_unsigned __gcov_read_unsigned
119 #define gcov_read_counter __gcov_read_counter
120 #define gcov_read_summary __gcov_read_summary
122 #else /* IN_GCOV_TOOL */
123 /* About the host. */
124 /* This path will be compiled for the host and linked into
129 #include "coretypes.h"
132 typedef unsigned gcov_unsigned_t
;
133 typedef unsigned gcov_position_t
;
134 /* gcov_type is typedef'd elsewhere for the compiler */
136 #if defined (HOST_HAS_F_SETLKW)
137 #define GCOV_LOCKED 1
139 #define GCOV_LOCKED 0
142 #if defined (HOST_HAS_LK_LOCK)
143 #define GCOV_LOCKED_WITH_LOCKING 1
145 #define GCOV_LOCKED_WITH_LOCKING 0
148 /* Some Macros specific to gcov-tool. */
151 #define L_gcov_merge_add 1
152 #define L_gcov_merge_topn 1
153 #define L_gcov_merge_ior 1
154 #define L_gcov_merge_time_profile 1
156 extern gcov_type
gcov_read_counter_mem ();
157 extern unsigned gcov_get_merge_weight ();
158 extern struct gcov_info
*gcov_list
;
160 #endif /* !IN_GCOV_TOOL */
162 #if defined(inhibit_libc)
163 #define IN_LIBGCOV (-1)
167 #define GCOV_LINKAGE /* nothing */
171 /* Poison these, so they don't accidentally slip in. */
172 #pragma GCC poison gcov_write_string gcov_write_tag gcov_write_length
173 #pragma GCC poison gcov_time
175 #ifdef HAVE_GAS_HIDDEN
176 #define ATTRIBUTE_HIDDEN __attribute__ ((__visibility__ ("hidden")))
178 #define ATTRIBUTE_HIDDEN
183 #define MAP_FAILED ((void *)-1)
186 #if !defined (MAP_ANONYMOUS) && defined (MAP_ANON)
187 #define MAP_ANONYMOUS MAP_ANON
193 /* Structures embedded in coveraged program. The structures generated
194 by write_profile must match these. */
196 /* Information about counters for a single function. */
199 gcov_unsigned_t num
; /* number of counters. */
200 gcov_type
*values
; /* their values. */
203 /* Information about a single function. This uses the trailing array
204 idiom. The number of counters is determined from the merge pointer
205 array in gcov_info. The key is used to detect which of a set of
206 comdat functions was selected -- it points to the gcov_info object
207 of the object file containing the selected comdat function. */
211 const struct gcov_info
*key
; /* comdat key */
212 gcov_unsigned_t ident
; /* unique ident of function */
213 gcov_unsigned_t lineno_checksum
; /* function lineo_checksum */
214 gcov_unsigned_t cfg_checksum
; /* function cfg checksum */
215 struct gcov_ctr_info ctrs
[1]; /* instrumented counters */
218 /* Type of function used to merge counters. */
219 typedef void (*gcov_merge_fn
) (gcov_type
*, gcov_unsigned_t
);
221 /* Information about a single object file. */
224 gcov_unsigned_t version
; /* expected version number */
225 struct gcov_info
*next
; /* link to next, used by libgcov */
227 gcov_unsigned_t stamp
; /* uniquifying time stamp */
228 gcov_unsigned_t checksum
; /* unique object checksum */
229 const char *filename
; /* output file name */
231 gcov_merge_fn merge
[GCOV_COUNTERS
]; /* merge functions (null for
234 gcov_unsigned_t n_functions
; /* number of functions */
237 const struct gcov_fn_info
*const *functions
; /* pointer to pointers
238 to function information */
240 struct gcov_fn_info
**functions
;
241 struct gcov_summary summary
;
242 #endif /* !IN_GCOV_TOOL */
245 /* Root of a program/shared-object state */
248 struct gcov_info
*list
;
249 unsigned dumped
: 1; /* counts have been dumped. */
250 unsigned run_counted
: 1; /* run has been accounted for. */
251 struct gcov_root
*next
;
252 struct gcov_root
*prev
;
255 extern struct gcov_root __gcov_root ATTRIBUTE_HIDDEN
;
259 gcov_unsigned_t version
;
260 struct gcov_root
*root
;
263 struct indirect_call_tuple
265 /* Callee function. */
268 /* Pointer to counters. */
272 /* Exactly one of these will be active in the process. */
273 extern struct gcov_master __gcov_master
;
274 extern struct gcov_kvp
*__gcov_kvp_dynamic_pool
;
275 extern unsigned __gcov_kvp_dynamic_pool_index
;
276 extern unsigned __gcov_kvp_dynamic_pool_size
;
278 /* Dump a set of gcov objects. */
279 extern void __gcov_dump_one (struct gcov_root
*) ATTRIBUTE_HIDDEN
;
281 /* Register a new object file module. */
282 extern void __gcov_init (struct gcov_info
*) ATTRIBUTE_HIDDEN
;
284 /* GCOV exit function registered via a static destructor. */
285 extern void __gcov_exit (void) ATTRIBUTE_HIDDEN
;
287 /* Function to reset all counters to 0. Both externally visible (and
288 overridable) and internal version. */
289 extern void __gcov_reset_int (void) ATTRIBUTE_HIDDEN
;
291 /* User function to enable early write of profile information so far. */
292 extern void __gcov_dump_int (void) ATTRIBUTE_HIDDEN
;
294 /* Lock critical section for __gcov_dump and __gcov_reset functions. */
295 extern void __gcov_lock (void) ATTRIBUTE_HIDDEN
;
297 /* Unlock critical section for __gcov_dump and __gcov_reset functions. */
298 extern void __gcov_unlock (void) ATTRIBUTE_HIDDEN
;
300 /* The merge function that just sums the counters. */
301 extern void __gcov_merge_add (gcov_type
*, unsigned) ATTRIBUTE_HIDDEN
;
303 /* The merge function to select the minimum valid counter value. */
304 extern void __gcov_merge_time_profile (gcov_type
*, unsigned) ATTRIBUTE_HIDDEN
;
306 /* The merge function to choose the most common N values. */
307 extern void __gcov_merge_topn (gcov_type
*, unsigned) ATTRIBUTE_HIDDEN
;
309 /* The merge function that just ors the counters together. */
310 extern void __gcov_merge_ior (gcov_type
*, unsigned) ATTRIBUTE_HIDDEN
;
312 /* The profiler functions. */
313 extern void __gcov_interval_profiler (gcov_type
*, gcov_type
, int, unsigned);
314 extern void __gcov_interval_profiler_atomic (gcov_type
*, gcov_type
, int,
316 extern void __gcov_pow2_profiler (gcov_type
*, gcov_type
);
317 extern void __gcov_pow2_profiler_atomic (gcov_type
*, gcov_type
);
318 extern void __gcov_topn_values_profiler (gcov_type
*, gcov_type
);
319 extern void __gcov_topn_values_profiler_atomic (gcov_type
*, gcov_type
);
320 extern void __gcov_indirect_call_profiler_v4 (gcov_type
, void *);
321 extern void __gcov_indirect_call_profiler_v4_atomic (gcov_type
, void *);
322 extern void __gcov_time_profiler (gcov_type
*);
323 extern void __gcov_time_profiler_atomic (gcov_type
*);
324 extern void __gcov_average_profiler (gcov_type
*, gcov_type
);
325 extern void __gcov_average_profiler_atomic (gcov_type
*, gcov_type
);
326 extern void __gcov_ior_profiler (gcov_type
*, gcov_type
);
327 extern void __gcov_ior_profiler_atomic (gcov_type
*, gcov_type
);
330 /* The wrappers around some library functions.. */
331 extern pid_t
__gcov_fork (void) ATTRIBUTE_HIDDEN
;
332 extern int __gcov_execl (const char *, char *, ...) ATTRIBUTE_HIDDEN
;
333 extern int __gcov_execlp (const char *, char *, ...) ATTRIBUTE_HIDDEN
;
334 extern int __gcov_execle (const char *, char *, ...) ATTRIBUTE_HIDDEN
;
335 extern int __gcov_execv (const char *, char *const []) ATTRIBUTE_HIDDEN
;
336 extern int __gcov_execvp (const char *, char *const []) ATTRIBUTE_HIDDEN
;
337 extern int __gcov_execve (const char *, char *const [], char *const [])
340 /* Functions that only available in libgcov. */
341 GCOV_LINKAGE
void gcov_write_object_summary (const struct gcov_summary
*)
343 GCOV_LINKAGE
void gcov_rewrite (void) ATTRIBUTE_HIDDEN
;
345 /* "Counts" stored in gcda files can be a real counter value, or
346 an target address. When differentiate these two types because
347 when manipulating counts, we should only change real counter values,
348 rather target addresses. */
350 static inline gcov_type
351 gcov_get_counter (void)
354 /* This version is for reading count values in libgcov runtime:
355 we read from gcda files. */
357 return gcov_read_counter ();
359 /* This version is for gcov-tool. We read the value from memory and
360 multiply it by the merge weight. */
362 return gcov_read_counter_mem () * gcov_get_merge_weight ();
366 /* Similar function as gcov_get_counter(), but do not scale
367 when read value is equal to IGNORE_SCALING. */
369 static inline gcov_type
370 gcov_get_counter_ignore_scaling (gcov_type ignore_scaling ATTRIBUTE_UNUSED
)
373 /* This version is for reading count values in libgcov runtime:
374 we read from gcda files. */
376 return gcov_read_counter ();
378 /* This version is for gcov-tool. We read the value from memory and
379 multiply it by the merge weight. */
381 gcov_type v
= gcov_read_counter_mem ();
382 if (v
!= ignore_scaling
)
383 v
*= gcov_get_merge_weight ();
389 /* Similar function as gcov_get_counter(), but handles target address
392 static inline gcov_type
393 gcov_get_counter_target (void)
396 /* This version is for reading count target values in libgcov runtime:
397 we read from gcda files. */
399 return gcov_read_counter ();
401 /* This version is for gcov-tool. We read the value from memory and we do NOT
402 multiply it by the merge weight. */
404 return gcov_read_counter_mem ();
408 /* Add VALUE to *COUNTER and make it with atomic operation
409 if USE_ATOMIC is true. */
412 gcov_counter_add (gcov_type
*counter
, gcov_type value
,
413 int use_atomic ATTRIBUTE_UNUSED
)
415 #if GCOV_SUPPORTS_ATOMIC
417 __atomic_fetch_add (counter
, value
, __ATOMIC_RELAXED
);
425 /* Allocate LENGTH with mmap function. */
428 malloc_mmap (size_t length
)
430 return mmap (NULL
, length
, PROT_READ
| PROT_WRITE
,
431 MAP_PRIVATE
| MAP_ANONYMOUS
, -1, 0);
436 /* Allocate gcov_kvp from statically pre-allocated pool,
437 or use heap otherwise. */
439 static inline struct gcov_kvp
*
440 allocate_gcov_kvp (void)
442 #define MMAP_CHUNK_SIZE (128 * 1024)
443 struct gcov_kvp
*new_node
= NULL
;
444 unsigned kvp_sizeof
= sizeof(struct gcov_kvp
);
446 /* Try mmaped pool if available. */
447 #if !defined(IN_GCOV_TOOL) && !defined(L_gcov_merge_topn) && HAVE_SYS_MMAN_H
448 if (__gcov_kvp_dynamic_pool
== NULL
449 || __gcov_kvp_dynamic_pool_index
>= __gcov_kvp_dynamic_pool_size
)
451 void *ptr
= malloc_mmap (MMAP_CHUNK_SIZE
);
452 if (ptr
!= MAP_FAILED
)
454 __gcov_kvp_dynamic_pool
= ptr
;
455 __gcov_kvp_dynamic_pool_size
= MMAP_CHUNK_SIZE
/ kvp_sizeof
;
456 __gcov_kvp_dynamic_pool_index
= 0;
460 if (__gcov_kvp_dynamic_pool
!= NULL
)
463 #if GCOV_SUPPORTS_ATOMIC
465 = __atomic_fetch_add (&__gcov_kvp_dynamic_pool_index
, 1,
468 index
= __gcov_kvp_dynamic_pool_index
++;
470 if (index
< __gcov_kvp_dynamic_pool_size
)
471 new_node
= __gcov_kvp_dynamic_pool
+ index
;
475 /* Fallback to malloc. */
476 if (new_node
== NULL
)
477 new_node
= (struct gcov_kvp
*)xcalloc (1, kvp_sizeof
);
482 /* Add key value pair VALUE:COUNT to a top N COUNTERS. When INCREMENT_TOTAL
483 is true, add COUNT to total of the TOP counter. If USE_ATOMIC is true,
484 do it in atomic way. Return true when the counter is full, otherwise
487 static inline unsigned
488 gcov_topn_add_value (gcov_type
*counters
, gcov_type value
, gcov_type count
,
489 int use_atomic
, int increment_total
)
493 /* In the multi-threaded mode, we can have an already merged profile
494 with a negative total value. In that case, we should bail out. */
497 gcov_counter_add (&counters
[0], 1, use_atomic
);
500 struct gcov_kvp
*prev_node
= NULL
;
501 struct gcov_kvp
*minimal_node
= NULL
;
502 struct gcov_kvp
*current_node
= (struct gcov_kvp
*)(intptr_t)counters
[2];
506 if (current_node
->value
== value
)
508 gcov_counter_add (¤t_node
->count
, count
, use_atomic
);
512 if (minimal_node
== NULL
513 || current_node
->count
< minimal_node
->count
)
514 minimal_node
= current_node
;
516 prev_node
= current_node
;
517 current_node
= current_node
->next
;
520 if (counters
[1] == GCOV_TOPN_MAXIMUM_TRACKED_VALUES
)
522 if (--minimal_node
->count
< count
)
524 minimal_node
->value
= value
;
525 minimal_node
->count
= count
;
532 struct gcov_kvp
*new_node
= allocate_gcov_kvp ();
533 if (new_node
== NULL
)
536 new_node
->value
= value
;
537 new_node
->count
= count
;
542 #if GCOV_SUPPORTS_ATOMIC
545 struct gcov_kvp
**ptr
= (struct gcov_kvp
**)(intptr_t)&counters
[2];
546 success
= !__sync_val_compare_and_swap (ptr
, 0, new_node
);
551 counters
[2] = (intptr_t)new_node
;
555 else if (prev_node
&& !prev_node
->next
)
557 #if GCOV_SUPPORTS_ATOMIC
559 success
= !__sync_val_compare_and_swap (&prev_node
->next
, 0,
564 prev_node
->next
= new_node
;
569 /* Increment number of nodes. */
571 gcov_counter_add (&counters
[1], 1, use_atomic
);
577 #endif /* !inhibit_libc */
579 #endif /* GCC_LIBGCOV_H */