diff options
Diffstat (limited to 'lib/gcc/arm-eabi/4.6.x-google/gcov-src/libgcov.c')
-rw-r--r-- | lib/gcc/arm-eabi/4.6.x-google/gcov-src/libgcov.c | 1989 |
1 files changed, 0 insertions, 1989 deletions
diff --git a/lib/gcc/arm-eabi/4.6.x-google/gcov-src/libgcov.c b/lib/gcc/arm-eabi/4.6.x-google/gcov-src/libgcov.c deleted file mode 100644 index 613c1f4..0000000 --- a/lib/gcc/arm-eabi/4.6.x-google/gcov-src/libgcov.c +++ /dev/null @@ -1,1989 +0,0 @@ -/* Routines required for instrumenting a program. */ -/* Compile this one with gcc. */ -/* Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, - 2000, 2001, 2002, 2003, 2004, 2005, 2008, 2009, 2010 - Free Software Foundation, Inc. - -This file is part of GCC. - -GCC is free software; you can redistribute it and/or modify it under -the terms of the GNU General Public License as published by the Free -Software Foundation; either version 3, or (at your option) any later -version. - -GCC is distributed in the hope that it will be useful, but WITHOUT ANY -WARRANTY; without even the implied warranty of MERCHANTABILITY or -FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -for more details. - -Under Section 7 of GPL version 3, you are granted additional -permissions described in the GCC Runtime Library Exception, version -3.1, as published by the Free Software Foundation. - -You should have received a copy of the GNU General Public License and -a copy of the GCC Runtime Library Exception along with this program; -see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -<http://www.gnu.org/licenses/>. */ - -/* Assume compiling for Linux Kernel if __KERNEL__ is defined. */ -#ifdef __KERNEL__ - /* Define MACROs to be used by kernel compilation. */ -# define L_gcov -# define L_gcov_interval_profiler -# define L_gcov_pow2_profiler -# define L_gcov_one_value_profiler -# define L_gcov_indirect_call_profiler -# define L_gcov_average_profiler -# define L_gcov_ior_profiler - -# define HAVE_CC_TLS 0 -# define __GCOV_KERNEL__ - -# define IN_LIBGCOV 1 -# define IN_GCOV 0 -#else /* __KERNEL__ */ -#include "tconfig.h" -#include "tsystem.h" -#include "coretypes.h" -#include "tm.h" -#endif /* __KERNEL__ */ - -#if 1 -#define THREAD_PREFIX __thread -#else -#define THREAD_PREFIX -#endif - -#ifndef __GCOV_KERNEL__ -#if defined(inhibit_libc) -#define IN_LIBGCOV (-1) -#else -#undef NULL /* Avoid errors if stdio.h and our stddef.h mismatch. */ -#include <stdio.h> -#define IN_LIBGCOV 1 -#if defined(L_gcov) -#define GCOV_LINKAGE /* nothing */ -#endif -#endif -#endif /* __GCOV_KERNEL__ */ - -#include "gcov-io.h" - -#if defined(inhibit_libc) -/* If libc and its header files are not available, provide dummy functions. */ - -#ifdef L_gcov -void __gcov_init (struct gcov_info *p __attribute__ ((unused))) {} -void __gcov_flush (void) {} -#endif - -#ifdef L_gcov_merge_add -void __gcov_merge_add (gcov_type *counters __attribute__ ((unused)), - unsigned n_counters __attribute__ ((unused))) {} -#endif - -#ifdef L_gcov_merge_single -void __gcov_merge_single (gcov_type *counters __attribute__ ((unused)), - unsigned n_counters __attribute__ ((unused))) {} -#endif - -#ifdef L_gcov_merge_delta -void __gcov_merge_delta (gcov_type *counters __attribute__ ((unused)), - unsigned n_counters __attribute__ ((unused))) {} -#endif - -#else - -#ifndef __GCOV_KERNEL__ -#include <string.h> -#if GCOV_LOCKED -#include <fcntl.h> -#include <errno.h> -#include <sys/stat.h> -#endif -#endif /* __GCOV_KERNEL__ */ - -#ifdef L_gcov -#include "gcov-io.c" - -/* Utility function for outputing errors. */ -static int -gcov_error (const char *fmt, ...) -{ - int ret; - va_list argp; - va_start (argp, fmt); -#ifdef __GCOV_KERNEL__ - ret = vprintk (fmt, argp); -#else - ret = vfprintf (stderr, fmt, argp); -#endif - va_end (argp); - return ret; -} - -#ifndef __GCOV_KERNEL__ -/* Emitted in coverage.c. */ -extern char * __gcov_pmu_profile_filename; -extern char * __gcov_pmu_profile_options; -extern gcov_unsigned_t __gcov_pmu_top_n_address; - -/* Sampling rate. */ -extern gcov_unsigned_t __gcov_sampling_rate; -static int gcov_sampling_rate_initialized = 0; -void __gcov_set_sampling_rate (unsigned int rate); - -/* Set sampling rate to RATE. */ - -void __gcov_set_sampling_rate (unsigned int rate) -{ - __gcov_sampling_rate = rate; -} - -/* Per thread sample counter. */ -THREAD_PREFIX gcov_unsigned_t __gcov_sample_counter = 0; - -/* Chain of per-object gcov structures. */ -extern struct gcov_info *__gcov_list; - -/* Size of the longest file name. */ -static size_t gcov_max_filename = 0; -#endif /* __GCOV_KERNEL__ */ - -/* Unique identifier assigned to each module (object file). */ -static gcov_unsigned_t gcov_cur_module_id = 0; - -/* Pointer to the direct-call counters (per call-site counters). - Initialized by the caller. */ -THREAD_PREFIX gcov_type *__gcov_direct_call_counters ATTRIBUTE_HIDDEN; - -/* Direct call callee address. */ -THREAD_PREFIX void *__gcov_direct_call_callee ATTRIBUTE_HIDDEN; - -/* Pointer to the indirect-call counters (per call-site counters). - Initialized by the caller. */ -THREAD_PREFIX gcov_type *__gcov_indirect_call_topn_counters ATTRIBUTE_HIDDEN; - -/* Indirect call callee address. */ -THREAD_PREFIX void *__gcov_indirect_call_topn_callee ATTRIBUTE_HIDDEN; - -/* A program checksum allows us to distinguish program data for an - object file included in multiple programs. */ -static gcov_unsigned_t gcov_crc32; - -/* Dynamic call graph build and form module groups. */ -void __gcov_compute_module_groups (void) ATTRIBUTE_HIDDEN; -void __gcov_finalize_dyn_callgraph (void) ATTRIBUTE_HIDDEN; - -/* Profile summary for the gdca file, used in sanity check? */ -static struct gcov_summary all; - -/* Profile summary for this program in current exeuction. */ -static struct gcov_summary this_program; - -/* Profile summary for this object in current execuction. */ -static struct gcov_summary this_object; - -/* Merged profile summary for this program. */ -static struct gcov_summary program; - -/* Merged profile summary for this object. */ -static struct gcov_summary object; - -/* Record the position of summary info. */ -static gcov_position_t summary_pos = 0; - -/* Record the postion of eof. */ -static gcov_position_t eof_pos = 0; - -/* Number of chars in prefix to be stripped. */ -static int gcov_prefix_strip = 0; - -/* The length of path prefix. */ -static size_t prefix_length = 0; - -/* gi_filename is current object filename. - gi_filename_up points to the stripped filename. */ -static char *gi_filename, *gi_filename_up; - -static int gcov_open_by_filename (char * gi_filename); -static int gcov_exit_init (void); -static void gcov_dump_one_gcov (struct gcov_info *gi_ptr); - -/* Make sure path component of the given FILENAME exists, create - missing directories. FILENAME must be writable. - Returns zero on success, or -1 if an error occurred. */ - -static int -create_file_directory (char *filename) -{ -#if !defined(TARGET_POSIX_IO) && !defined(_WIN32) - (void) filename; - return -1; -#else - char *s; - - s = filename; - - if (HAS_DRIVE_SPEC(s)) - s += 2; - if (IS_DIR_SEPARATOR(*s)) - ++s; - for (; *s != '\0'; s++) - if (IS_DIR_SEPARATOR(*s)) - { - char sep = *s; - *s = '\0'; - - /* Try to make directory if it doesn't already exist. */ - if (access (filename, F_OK) == -1 -#ifdef TARGET_POSIX_IO - && mkdir (filename, 0755) == -1 -#else - && mkdir (filename) == -1 -#endif - /* The directory might have been made by another process. */ - && errno != EEXIST) - { - fprintf (stderr, "profiling:%s:Cannot create directory\n", - filename); - *s = sep; - return -1; - }; - - *s = sep; - }; - return 0; -#endif -} - -/* Open a file with the specified name. */ - -static int -gcov_open_by_filename (char * gi_filename) -{ - if (!gcov_open (gi_filename)) - { - /* Open failed likely due to missed directory. - Create directory and retry to open file. */ - if (create_file_directory (gi_filename)) - { - gcov_error ("profiling:%s:Skip\n", gi_filename); - return -1; - } - if (!gcov_open (gi_filename)) - { - gcov_error ("profiling:%s:Cannot open\n", gi_filename); - return -1; - } - } - return 0; -} - - -/* Determine whether a counter is active. */ - -static inline int -gcov_counter_active (const struct gcov_info *info, unsigned int type) -{ - return (1 << type) & info->ctr_mask; -} - -#ifndef __GCOV_KERNEL__ -/* Check if VERSION of the info block PTR matches libgcov one. - Return 1 on success, or zero in case of versions mismatch. - If FILENAME is not NULL, its value used for reporting purposes - instead of value from the info block. */ - -static int -gcov_version (struct gcov_info *ptr __attribute__ ((unused)), - gcov_unsigned_t version, const char *filename) -{ - if (version != GCOV_VERSION) - { - char v[4], e[4]; - - GCOV_UNSIGNED2STRING (v, version); - GCOV_UNSIGNED2STRING (e, GCOV_VERSION); - - if (filename) - gcov_error ("profiling:%s:Version mismatch - expected %.4s got %.4s\n", - filename, e, v); - else - gcov_error ("profiling:Version mismatch - expected %.4s got %.4s\n", e, v); - return 0; - } - return 1; -} - -#define GCOV_GET_FILENAME gcov_strip_leading_dirs - -/* Strip GCOV_PREFIX_STRIP levels of leading '/' from FILENAME and - put the result into GI_FILENAME_UP. */ - -static void -gcov_strip_leading_dirs (int prefix_length, int gcov_prefix_strip, - const char *filename, char *gi_filename_up) -{ - /* Avoid to add multiple drive letters into combined path. */ - if (prefix_length != 0 && HAS_DRIVE_SPEC(filename)) - filename += 2; - - /* Build relocated filename, stripping off leading - directories from the initial filename if requested. */ - if (gcov_prefix_strip > 0) - { - int level = 0; - const char *s = filename; - if (IS_DIR_SEPARATOR(*s)) - ++s; - - /* Skip selected directory levels. */ - for (; (*s != '\0') && (level < gcov_prefix_strip); s++) - if (IS_DIR_SEPARATOR(*s)) - { - filename = s; - level++; - } - } - /* Update complete filename with stripped original. */ - if (prefix_length != 0 && !IS_DIR_SEPARATOR (*filename)) - { - /* If prefix is given, add directory separator. */ - strcpy (gi_filename_up, "/"); - strcpy (gi_filename_up + 1, filename); - } - else - strcpy (gi_filename_up, filename); -} - -/* This function allocates the space to store current file name. */ - -static void -gcov_alloc_filename (void) -{ - /* Get file name relocation prefix. Non-absolute values are ignored. */ - char *gcov_prefix = 0; - - prefix_length = 0; - gcov_prefix_strip = 0; - - { - /* Check if the level of dirs to strip off specified. */ - char *tmp = getenv ("GCOV_PREFIX_STRIP"); - if (tmp) - { - gcov_prefix_strip = atoi (tmp); - /* Do not consider negative values. */ - if (gcov_prefix_strip < 0) - gcov_prefix_strip = 0; - } - } - /* Get file name relocation prefix. Non-absolute values are ignored. */ - gcov_prefix = getenv ("GCOV_PREFIX"); - if (gcov_prefix) - { - prefix_length = strlen(gcov_prefix); - - /* Remove an unnecessary trailing '/' */ - if (IS_DIR_SEPARATOR (gcov_prefix[prefix_length - 1])) - prefix_length--; - } - else - prefix_length = 0; - - /* If no prefix was specified and a prefix stip, then we assume - relative. */ - if (gcov_prefix_strip != 0 && prefix_length == 0) - { - gcov_prefix = "."; - prefix_length = 1; - } - - /* Allocate and initialize the filename scratch space. */ - gi_filename = (char *) malloc (prefix_length + gcov_max_filename + 2); - if (prefix_length) - memcpy (gi_filename, gcov_prefix, prefix_length); - - gi_filename_up = gi_filename + prefix_length; -} - -/* Stop the pmu profiler and dump pmu profile info into the global file. */ - -static void -pmu_profile_stop (void) -{ - const char *pmu_profile_filename = __gcov_pmu_profile_filename; - const char *pmu_options = __gcov_pmu_profile_options; - size_t filename_length; - int gcda_error; - - if (!pmu_profile_filename || !pmu_options) - return; - - __gcov_stop_pmu_profiler (); - - filename_length = strlen (pmu_profile_filename); - if (filename_length > gcov_max_filename) - gcov_max_filename = filename_length; - /* Allocate and initialize the filename scratch space. */ - gcov_alloc_filename (); - GCOV_GET_FILENAME (prefix_length, gcov_prefix_strip, pmu_profile_filename, - gi_filename_up); - /* Open the gcda file for writing. We don't support merge yet. */ - gcda_error = gcov_open_by_filename (gi_filename); - __gcov_end_pmu_profiler (gcda_error); - if ((gcda_error = gcov_close ())) - gcov_error (gcda_error < 0 ? "pmu_profile_stop:%s:Overflow writing\n" : - "pmu_profile_stop:%s:Error writing\n", - gi_filename); -} - -/* Sort N entries in VALUE_ARRAY in descending order. - Each entry in VALUE_ARRAY has two values. The sorting - is based on the second value. */ - -GCOV_LINKAGE void -gcov_sort_n_vals (gcov_type *value_array, int n) -{ - int j, k; - for (j = 2; j < n; j += 2) - { - gcov_type cur_ent[2]; - cur_ent[0] = value_array[j]; - cur_ent[1] = value_array[j + 1]; - k = j - 2; - while (k >= 0 && value_array[k + 1] < cur_ent[1]) - { - value_array[k + 2] = value_array[k]; - value_array[k + 3] = value_array[k+1]; - k -= 2; - } - value_array[k + 2] = cur_ent[0]; - value_array[k + 3] = cur_ent[1]; - } -} - -/* Sort the profile counters for all indirect call sites. Counters - for each call site are allocated in array COUNTERS. */ - -static void -gcov_sort_icall_topn_counter (const struct gcov_ctr_info *counters) -{ - int i; - gcov_type *values; - int n = counters->num; - gcc_assert (!(n % GCOV_ICALL_TOPN_NCOUNTS)); - - values = counters->values; - - for (i = 0; i < n; i += GCOV_ICALL_TOPN_NCOUNTS) - { - gcov_type *value_array = &values[i + 1]; - gcov_sort_n_vals (value_array, GCOV_ICALL_TOPN_NCOUNTS - 1); - } -} - -/* Write imported files (auxiliary modules) for primary module GI_PTR - into file GI_FILENAME. */ - -static void -gcov_write_import_file (char *gi_filename, struct gcov_info *gi_ptr) -{ - char *gi_imports_filename; - const char *gcov_suffix; - FILE *imports_file; - size_t prefix_length, suffix_length; - - gcov_suffix = getenv ("GCOV_IMPORTS_SUFFIX"); - if (!gcov_suffix || !strlen (gcov_suffix)) - gcov_suffix = ".imports"; - suffix_length = strlen (gcov_suffix); - prefix_length = strlen (gi_filename); - gi_imports_filename = (char *) alloca (prefix_length + suffix_length + 1); - memset (gi_imports_filename, 0, prefix_length + suffix_length + 1); - memcpy (gi_imports_filename, gi_filename, prefix_length); - memcpy (gi_imports_filename + prefix_length, gcov_suffix, suffix_length); - imports_file = fopen (gi_imports_filename, "w"); - if (imports_file) - { - const struct dyn_imp_mod **imp_mods; - unsigned i, imp_len; - imp_mods = gcov_get_sorted_import_module_array (gi_ptr, &imp_len); - if (imp_mods) - { - for (i = 0; i < imp_len; i++) - { - fprintf (imports_file, "%s\n", - imp_mods[i]->imp_mod->mod_info->source_filename); - fprintf (imports_file, "%s%s\n", - imp_mods[i]->imp_mod->mod_info->da_filename, GCOV_DATA_SUFFIX); - } - free (imp_mods); - } - fclose (imports_file); - } -} - -static void -gcov_dump_module_info (void) -{ - struct gcov_info *gi_ptr; - - __gcov_compute_module_groups (); - - /* Now write out module group info. */ - for (gi_ptr = __gcov_list; gi_ptr; gi_ptr = gi_ptr->next) - { - int error; - - GCOV_GET_FILENAME (prefix_length, gcov_prefix_strip, gi_ptr->filename, - gi_filename_up); - error = gcov_open_by_filename (gi_filename); - if (error != 0) - continue; - - /* Overwrite the zero word at the of the file. */ - gcov_rewrite (); - gcov_seek (gi_ptr->eof_pos); - - gcov_write_module_infos (gi_ptr); - gcov_truncate (); - - if ((error = gcov_close ())) - gcov_error (error < 0 ? "profiling:%s:Overflow writing\n" : - "profiling:%s:Error writing\n", - gi_filename); - gcov_write_import_file (gi_filename, gi_ptr); - } - __gcov_finalize_dyn_callgraph (); -} - -/* Dump the coverage counts. We merge with existing counts when - possible, to avoid growing the .da files ad infinitum. We use this - program's checksum to make sure we only accumulate whole program - statistics to the correct summary. An object file might be embedded - in two separate programs, and we must keep the two program - summaries separate. */ - -static void -gcov_exit (void) -{ - struct gcov_info *gi_ptr; - int dump_module_info; - - /* Stop and write the PMU profile data into the global file. */ - pmu_profile_stop (); - - dump_module_info = gcov_exit_init (); - - for (gi_ptr = __gcov_list; gi_ptr; gi_ptr = gi_ptr->next) - gcov_dump_one_gcov (gi_ptr); - - if (dump_module_info) - gcov_dump_module_info (); - - free (gi_filename); -} - -/* Add a new object file onto the bb chain. Invoked automatically - when running an object file's global ctors. */ - -void -__gcov_init (struct gcov_info *info) -{ - if (!gcov_sampling_rate_initialized) - { - const char* env_value_str = getenv ("GCOV_SAMPLING_RATE"); - if (env_value_str) - { - int env_value_int = atoi(env_value_str); - if (env_value_int >= 1) - __gcov_sampling_rate = env_value_int; - } - gcov_sampling_rate_initialized = 1; - } - - if (!info->version) - return; - - if (gcov_version (info, info->version, 0)) - { - const char *ptr = info->filename; - gcov_unsigned_t crc32 = gcov_crc32; - size_t filename_length = strlen (info->filename); - struct gcov_pmu_info pmu_info; - - /* Refresh the longest file name information. */ - if (filename_length > gcov_max_filename) - gcov_max_filename = filename_length; - - /* Initialize the pmu profiler. */ - pmu_info.pmu_profile_filename = __gcov_pmu_profile_filename; - pmu_info.pmu_tool = __gcov_pmu_profile_options; - pmu_info.pmu_top_n_address = __gcov_pmu_top_n_address; - __gcov_init_pmu_profiler (&pmu_info); - if (pmu_info.pmu_profile_filename) - { - /* Refresh the longest file name information. */ - filename_length = strlen (pmu_info.pmu_profile_filename); - if (filename_length > gcov_max_filename) - gcov_max_filename = filename_length; - } - - /* Assign the module ID (starting at 1). */ - info->mod_info->ident = (++gcov_cur_module_id); - gcc_assert (EXTRACT_MODULE_ID_FROM_GLOBAL_ID (GEN_FUNC_GLOBAL_ID ( - info->mod_info->ident, 0)) - == info->mod_info->ident); - - do - { - unsigned ix; - gcov_unsigned_t value = *ptr << 24; - - for (ix = 8; ix--; value <<= 1) - { - gcov_unsigned_t feedback; - - feedback = (value ^ crc32) & 0x80000000 ? 0x04c11db7 : 0; - crc32 <<= 1; - crc32 ^= feedback; - } - } while (*ptr++); - - gcov_crc32 = crc32; - - if (!__gcov_list) - { - atexit (gcov_exit); - /* Start pmu profiler. */ - __gcov_start_pmu_profiler (); - } - - info->next = __gcov_list; - __gcov_list = info; - } - info->version = 0; -} - -/* Called before fork or exec - write out profile information gathered so - far and reset it to zero. This avoids duplication or loss of the - profile information gathered so far. */ - -void -__gcov_flush (void) -{ - const struct gcov_info *gi_ptr; - - __gcov_stop_pmu_profiler (); - gcov_exit (); - for (gi_ptr = __gcov_list; gi_ptr; gi_ptr = gi_ptr->next) - { - unsigned t_ix; - const struct gcov_ctr_info *ci_ptr; - - for (t_ix = 0, ci_ptr = gi_ptr->counts; t_ix != GCOV_COUNTERS; t_ix++) - if (gcov_counter_active (gi_ptr, t_ix)) - { - memset (ci_ptr->values, 0, sizeof (gcov_type) * ci_ptr->num); - ci_ptr++; - } - } - __gcov_start_pmu_profiler (); -} - -#else /* __GCOV_KERNEL__ */ - -#define GCOV_GET_FILENAME gcov_get_filename - -/* Copy the filename to the buffer. */ - -static inline void -gcov_get_filename (int prefix_length __attribute__ ((unused)), - int gcov_prefix_strip __attribute__ ((unused)), - const char *filename, char *gi_filename_up) -{ - strcpy (gi_filename_up, filename); -} - -/* Sort the profile counters for all indirect call sites. Counters - for each call site are allocated in array COUNTERS. */ - -static void -gcov_sort_icall_topn_counter (const struct gcov_ctr_info *counters) -{ - /* Empty */ -} - -/* Reserves a buffer to store the name of the file being processed. */ -static char _kernel_gi_filename[520]; - -/* This function allocates the space to store current file name. */ - -static void -gcov_alloc_filename (void) -{ - prefix_length = 0; - gcov_prefix_strip = 0; - gi_filename = _kernel_gi_filename; - gi_filename_up = _kernel_gi_filename; -} - -#endif /* __GCOV_KERNEL__ */ - -/* Determine number of active counters in gcov_info INFO, - the counter arrays are stored in VALUES if the coming - value of VALUES !=0. If FLAG_SORT_ICALL_TOPN_COUNTER !=0, - the icall_topn_counter in INFO will be sorted. - Return: the number of active counter types. */ - -static unsigned int -gcov_counter_array (const struct gcov_info *info, - gcov_type *values[GCOV_COUNTERS], - int flag_sort_icall_topn_counter) -{ - unsigned int i; - unsigned int result = 0; - - for (i = 0; i < GCOV_COUNTERS; i++) { - if (gcov_counter_active (info, i)) - { - if (values) - values[result] = info->counts[result].values; - if (flag_sort_icall_topn_counter && - (i == GCOV_COUNTER_ICALL_TOPNV)) - gcov_sort_icall_topn_counter (&info->counts[result]); - result++; - } - } - return result; -} - -/* Compute object summary recored in gcov_info INFO. The result is - stored in OBJ_SUM. Note that the caller is responsible for - zeroing out OBJ_SUM, otherwise the summary is accumulated. */ - -static void -gcov_object_summary (struct gcov_info *info, - struct gcov_summary *obj_sum) -{ - const struct gcov_ctr_info *ci_ptr; - struct gcov_ctr_summary *cs_ptr; - gcov_unsigned_t c_num; - unsigned t_ix; - - /* Totals for this object file. */ - ci_ptr = info->counts; - for (t_ix = 0; t_ix < GCOV_COUNTERS_SUMMABLE; t_ix++) - { - if (!gcov_counter_active (info, t_ix)) - continue; - - cs_ptr = &(obj_sum->ctrs[t_ix]); - cs_ptr->num += ci_ptr->num; - for (c_num = 0; c_num < ci_ptr->num; c_num++) - { - cs_ptr->sum_all += ci_ptr->values[c_num]; - if (cs_ptr->run_max < ci_ptr->values[c_num]) - cs_ptr->run_max = ci_ptr->values[c_num]; - } - ci_ptr++; - } -} - -/* Merge with existing gcda file in the same directory to avoid - excessive growthe of the files. */ - -static int -gcov_merge_gcda_file (struct gcov_info *info, - gcov_type *values[GCOV_COUNTERS], - unsigned fi_stride) -{ - struct gcov_ctr_summary *cs_obj, *cs_tobj, *cs_prg, *cs_tprg, *cs_all; - unsigned t_ix, f_ix; - -#ifndef __GCOV_KERNEL__ - const struct gcov_fn_info *fi_ptr; - unsigned c_ix, n_counts; - int error = 0; - gcov_unsigned_t tag, length; - - eof_pos = 0; - summary_pos = 0; - - tag = gcov_read_unsigned (); - if (tag) - { - /* Merge data from file. */ - if (tag != GCOV_DATA_MAGIC) - { - gcov_error ("profiling:%s:Not a gcov data file\n", gi_filename); - goto read_fatal; - } - length = gcov_read_unsigned (); - if (!gcov_version (info, length, gi_filename)) - goto read_fatal; - - length = gcov_read_unsigned (); - if (length != info->stamp) - /* Read from a different compilation. Overwrite the file. */ - goto rewrite; - - /* Merge execution counts for each function. */ - for (f_ix = 0; f_ix < info->n_functions; f_ix++) - { - fi_ptr = (const struct gcov_fn_info *) - ((const char *) info->functions + f_ix * fi_stride); - tag = gcov_read_unsigned (); - length = gcov_read_unsigned (); - - /* Check function. */ - if (tag != GCOV_TAG_FUNCTION - || length != GCOV_TAG_FUNCTION_LENGTH - || gcov_read_unsigned () != fi_ptr->ident - || gcov_read_unsigned () != fi_ptr->lineno_checksum - || gcov_read_unsigned () != fi_ptr->cfg_checksum) - goto read_mismatch; - - c_ix = 0; - for (t_ix = 0; t_ix < GCOV_COUNTERS; t_ix++) - { - gcov_merge_fn merge; - - if (!((1 << t_ix) & info->ctr_mask)) - continue; - - n_counts = fi_ptr->n_ctrs[c_ix]; - merge = info->counts[c_ix].merge; - - tag = gcov_read_unsigned (); - length = gcov_read_unsigned (); - if (tag != GCOV_TAG_FOR_COUNTER (t_ix) - || length != GCOV_TAG_COUNTER_LENGTH (n_counts)) - goto read_mismatch; - (*merge) (values[c_ix], n_counts); - values[c_ix] += n_counts; - c_ix++; - } - if ((error = gcov_is_error ())) - goto read_error; - } - - f_ix = ~0u; - /* Check program & object summary. */ - while (1) - { - int is_program; - - eof_pos = gcov_position (); - tag = gcov_read_unsigned (); - if (!tag) - break; - - length = gcov_read_unsigned (); - is_program = tag == GCOV_TAG_PROGRAM_SUMMARY; - if (length != GCOV_TAG_SUMMARY_LENGTH - || (!is_program && tag != GCOV_TAG_OBJECT_SUMMARY)) - goto read_mismatch; - gcov_read_summary (is_program ? &program : &object); - if ((error = gcov_is_error ())) - goto read_error; - if (is_program && program.checksum == gcov_crc32) - { - summary_pos = eof_pos; - goto rewrite; - } - } - } - - goto rewrite; - -read_error:; - gcov_error (error < 0 ? "profiling:%s:Overflow merging\n" - : "profiling:%s:Error merging\n", gi_filename); - goto read_fatal; - -#endif /* __GCOV_KERNEL__ */ - - goto rewrite; - -read_mismatch:; - gcov_error ("profiling:%s:Merge mismatch for %s\n", gi_filename, - f_ix + 1 ? "function" : "summaries"); - goto read_fatal; /* work-around the compiler warning */ - -read_fatal:; - gcov_close (); - return 1; - -rewrite:; - gcov_rewrite (); - if (!summary_pos) - memset (&program, 0, sizeof (program)); - - /* Merge the summaries. */ - f_ix = ~0u; - for (t_ix = 0; t_ix < GCOV_COUNTERS_SUMMABLE; t_ix++) - { - cs_obj = &object.ctrs[t_ix]; - cs_tobj = &this_object.ctrs[t_ix]; - cs_prg = &program.ctrs[t_ix]; - cs_tprg = &this_program.ctrs[t_ix]; - cs_all = &all.ctrs[t_ix]; - - if ((1 << t_ix) & info->ctr_mask) - { - if (!cs_obj->runs++) - cs_obj->num = cs_tobj->num; - else if (cs_obj->num != cs_tobj->num) - goto read_mismatch; - cs_obj->sum_all += cs_tobj->sum_all; - if (cs_obj->run_max < cs_tobj->run_max) - cs_obj->run_max = cs_tobj->run_max; - cs_obj->sum_max += cs_tobj->run_max; - - if (!cs_prg->runs++) - cs_prg->num = cs_tprg->num; - else if (cs_prg->num != cs_tprg->num) - goto read_mismatch; - cs_prg->sum_all += cs_tprg->sum_all; - if (cs_prg->run_max < cs_tprg->run_max) - cs_prg->run_max = cs_tprg->run_max; - cs_prg->sum_max += cs_tprg->run_max; - } - else if (cs_obj->num || cs_prg->num) - goto read_mismatch; - - if (!cs_all->runs && cs_prg->runs) - memcpy (cs_all, cs_prg, sizeof (*cs_all)); - else if (!all.checksum - && (!GCOV_LOCKED || cs_all->runs == cs_prg->runs) - && memcmp (cs_all, cs_prg, sizeof (*cs_all))) - { - gcov_error ("profiling:%s:Invocation mismatch - " - "some data files may have been removed%s", - gi_filename, GCOV_LOCKED - ? "" : " or concurrent update without locking support"); - all.checksum = ~0u; - } - } - - return 0; -} - -/* Calculate the function_info stride. This depends on the - number of counter types being measured. - NUM_COUNTER_TYPES is number of counter types recorded. - Return: the number of bytes for accessing next fn_info - (aligned to gcov_fn_info). */ - -static unsigned -gcov_compute_fi_stride (unsigned num_counter_types) -{ - unsigned fi_stride; - - fi_stride = offsetof (struct gcov_fn_info, n_ctrs) + - num_counter_types * sizeof (unsigned); - if (__alignof__ (struct gcov_fn_info) > sizeof (unsigned)) - { - fi_stride += __alignof__ (struct gcov_fn_info) - 1; - fi_stride &= ~(__alignof__ (struct gcov_fn_info) - 1); - } - return fi_stride; -} - -/* This function returns the size of gcda file to be written. Note - the size is in units of gcov_type. */ - -GCOV_LINKAGE unsigned -gcov_gcda_file_size (struct gcov_info *gi_ptr) -{ - unsigned size; - const struct gcov_fn_info *fi_ptr; - unsigned f_ix, t_ix, c_ix; - unsigned n_counts; - unsigned fi_stride; - gcov_type *values[GCOV_COUNTERS]; - - c_ix = gcov_counter_array (gi_ptr, values, 0); - fi_stride = gcov_compute_fi_stride (c_ix); - - /* GCOV_DATA_MAGIC, GCOV_VERSION and time_stamp. */ - size = 3; - - /* size for each function. */ - for (f_ix = 0; f_ix < gi_ptr->n_functions; f_ix++) - { - fi_ptr = (const struct gcov_fn_info *) - ((const char *) gi_ptr->functions + f_ix * fi_stride); - - size += 2 /* tag_length itself */ - + GCOV_TAG_FUNCTION_LENGTH; /* ident, lineno_cksum, cfg_cksm */ - - c_ix = 0; - for (t_ix = 0; t_ix < GCOV_COUNTERS; t_ix++) - { - if (!((1 << t_ix) & gi_ptr->ctr_mask)) - continue; - - n_counts = fi_ptr->n_ctrs[c_ix]; - size += 2 + GCOV_TAG_COUNTER_LENGTH (n_counts); - c_ix++; - } - } - - /* Object summary. */ - size += 2 + GCOV_TAG_SUMMARY_LENGTH; - - /* Program summary. */ - size += 2 + GCOV_TAG_SUMMARY_LENGTH; - - size += 1; - - return size*4; -} - -/* Write profile data (including summary and module grouping information, - if available, to file. */ - -static void -gcov_write_gcda_file (struct gcov_info *gi_ptr, - unsigned fi_stride) -{ - const struct gcov_fn_info *fi_ptr; - gcov_type *values[GCOV_COUNTERS]; - unsigned t_ix, c_ix, f_ix, n_counts; - int error = 0; - - /* Write out the data. */ - gcov_write_tag_length (GCOV_DATA_MAGIC, GCOV_VERSION); - gcov_write_unsigned (gi_ptr->stamp); - - gcov_counter_array (gi_ptr, values, 0); - - /* Write execution counts for each function. */ - for (f_ix = 0; f_ix < gi_ptr->n_functions; f_ix++) - { - fi_ptr = (const struct gcov_fn_info *) - ((const char *) gi_ptr->functions + f_ix * fi_stride); - - /* Announce function. */ - gcov_write_tag_length (GCOV_TAG_FUNCTION, GCOV_TAG_FUNCTION_LENGTH); - gcov_write_unsigned (fi_ptr->ident); - gcov_write_unsigned (fi_ptr->lineno_checksum); - gcov_write_unsigned (fi_ptr->cfg_checksum); - - c_ix = 0; - for (t_ix = 0; t_ix < GCOV_COUNTERS; t_ix++) - { - gcov_type *c_ptr; - - if (!((1 << t_ix) & gi_ptr->ctr_mask)) - continue; - - n_counts = fi_ptr->n_ctrs[c_ix]; - - gcov_write_tag_length (GCOV_TAG_FOR_COUNTER (t_ix), - GCOV_TAG_COUNTER_LENGTH (n_counts)); - c_ptr = values[c_ix]; - while (n_counts--) - gcov_write_counter (*c_ptr++); - - values[c_ix] = c_ptr; - c_ix++; - } - } - - /* Object file summary. */ - gcov_write_summary (GCOV_TAG_OBJECT_SUMMARY, &object); - - /* Generate whole program statistics. */ - program.checksum = gcov_crc32; - if (eof_pos) - gcov_seek (eof_pos); - gcov_write_summary (GCOV_TAG_PROGRAM_SUMMARY, &program); - if (!summary_pos) - gcov_write_unsigned (0); - - /* TODO: there is a problem here -- if there are other program - summary data after the matching one, setting eof_pos to this - position means that the module info table will overwrite the - those other program summary. It also means a mismatch error - may occur at the next merge if no matching program summary is - found before the module info data. */ - if (!summary_pos) - gi_ptr->eof_pos = gcov_position () - 1; - else - gi_ptr->eof_pos = gcov_position (); - - if ((error = gcov_close ())) - gcov_error (error < 0 ? - "profiling:%s:Overflow writing\n" : - "profiling:%s:Error writing\n", - gi_filename); -} - -/* Do some preparation work before calling the actual dumping - routine. - Return: 1 when module grouping info needs to be dumped, - 0 otherwise. */ - -static int -gcov_exit_init (void) -{ - struct gcov_info *gi_ptr; - int dump_module_info = 0; - - dump_module_info = 0; - gcov_prefix_strip = 0; - - memset (&all, 0, sizeof (all)); - - /* Find the totals for this execution. */ - memset (&this_program, 0, sizeof (this_program)); - for (gi_ptr = __gcov_list; gi_ptr; gi_ptr = gi_ptr->next) - { - gcov_object_summary (gi_ptr, &this_program); - - /* The IS_PRIMARY field is overloaded to indicate if this module - is FDO/LIPO. */ - dump_module_info |= gi_ptr->mod_info->is_primary; - } - - gcov_alloc_filename (); - - return dump_module_info; -} - -/* Dump one entry in the gcov_info list (for one object). */ - -static void -gcov_dump_one_gcov (struct gcov_info *gi_ptr) -{ - gcov_type *values[GCOV_COUNTERS]; - unsigned fi_stride; - unsigned c_ix; - int ret; - - memset (&this_object, 0, sizeof (this_object)); - memset (&object, 0, sizeof (object)); - - gcov_object_summary (gi_ptr, &this_object); - - c_ix = gcov_counter_array (gi_ptr, values, 1); - - fi_stride = gcov_compute_fi_stride (c_ix); - - GCOV_GET_FILENAME (prefix_length, gcov_prefix_strip, gi_ptr->filename, - gi_filename_up); - - if (gcov_open_by_filename (gi_filename) == -1) - return; - - /* Now merge this file. */ - ret = gcov_merge_gcda_file (gi_ptr, values, fi_stride); - if (ret != 0 ) return; - - gcov_write_gcda_file (gi_ptr, fi_stride); -} - -#endif /* L_gcov */ - -#ifdef L_gcov_merge_add -/* The profile merging function that just adds the counters. It is given - an array COUNTERS of N_COUNTERS old counters and it reads the same number - of counters from the gcov file. */ -void -__gcov_merge_add (gcov_type *counters, unsigned n_counters) -{ - for (; n_counters; counters++, n_counters--) - *counters += gcov_read_counter (); -} -#endif /* L_gcov_merge_add */ - -#ifdef L_gcov_merge_ior -/* The profile merging function that just adds the counters. It is given - an array COUNTERS of N_COUNTERS old counters and it reads the same number - of counters from the gcov file. */ -void -__gcov_merge_ior (gcov_type *counters, unsigned n_counters) -{ - for (; n_counters; counters++, n_counters--) - *counters |= gcov_read_counter (); -} -#endif - -#ifdef L_gcov_merge_reusedist - -/* Return the weighted arithmetic mean of two values. */ - -static gcov_type -__gcov_weighted_mean2 (gcov_type value1, gcov_type count1, - gcov_type value2, gcov_type count2) -{ - if (count1 + count2 == 0) - return 0; - else - return (value1 * count1 + value2 * count2) / (count1 + count2); -} - -void -__gcov_merge_reusedist (gcov_type *counters, unsigned n_counters) -{ - unsigned i; - - gcc_assert(!(n_counters % 4)); - - for (i = 0; i < n_counters; i += 4) - { - /* Decode current values. */ - gcov_type c_mean_dist = counters[i]; - gcov_type c_mean_size = counters[i+1]; - gcov_type c_count = counters[i+2]; - gcov_type c_dist_x_size = counters[i+3]; - - /* Read and decode values in file. */ - gcov_type f_mean_dist = __gcov_read_counter (); - gcov_type f_mean_size = __gcov_read_counter (); - gcov_type f_count = __gcov_read_counter (); - gcov_type f_dist_x_size = __gcov_read_counter (); - - /* Compute aggregates. */ - gcov_type a_mean_dist = __gcov_weighted_mean2 ( - f_mean_dist, f_count, c_mean_dist, c_count); - gcov_type a_mean_size = __gcov_weighted_mean2 ( - f_mean_size, f_count, c_mean_size, c_count); - gcov_type a_count = f_count + c_count; - gcov_type a_dist_x_size = f_dist_x_size + c_dist_x_size; - - /* Encode back into counters. */ - counters[i] = a_mean_dist; - counters[i+1] = a_mean_size; - counters[i+2] = a_count; - counters[i+3] = a_dist_x_size; - } -} - -#endif - -#ifdef L_gcov_merge_dc - -/* Returns 1 if the function global id GID is not valid. */ - -static int -__gcov_is_gid_insane (gcov_type gid) -{ - if (EXTRACT_MODULE_ID_FROM_GLOBAL_ID (gid) == 0 - || EXTRACT_FUNC_ID_FROM_GLOBAL_ID (gid) == 0) - return 1; - return 0; -} - -/* The profile merging function used for merging direct call counts - This function is given array COUNTERS of N_COUNTERS old counters and it - reads the same number of counters from the gcov file. */ - -void -__gcov_merge_dc (gcov_type *counters, unsigned n_counters) -{ - unsigned i; - - gcc_assert (!(n_counters % 2)); - for (i = 0; i < n_counters; i += 2) - { - gcov_type global_id = gcov_read_counter (); - gcov_type call_count = gcov_read_counter (); - - /* Note that global id counter may never have been set if no calls were - made from this call-site. */ - if (counters[i] && global_id) - { - /* TODO race condition requires us do the following correction. */ - if (__gcov_is_gid_insane (counters[i])) - counters[i] = global_id; - else if (__gcov_is_gid_insane (global_id)) - global_id = counters[i]; - - gcc_assert (counters[i] == global_id); - } - else if (global_id) - counters[i] = global_id; - - counters[i + 1] += call_count; - - /* Reset. */ - if (__gcov_is_gid_insane (counters[i])) - counters[i] = counters[i + 1] = 0; - - /* Assert that the invariant (global_id == 0) <==> (call_count == 0) - holds true after merging. */ - if (counters[i] == 0) - counters[i+1] = 0; - if (counters[i + 1] == 0) - counters[i] = 0; - } -} -#endif - -#ifdef L_gcov_merge_icall_topn -/* The profile merging function used for merging indirect call counts - This function is given array COUNTERS of N_COUNTERS old counters and it - reads the same number of counters from the gcov file. */ - -void -__gcov_merge_icall_topn (gcov_type *counters, unsigned n_counters) -{ - unsigned i, j, k, m; - - gcc_assert (!(n_counters % GCOV_ICALL_TOPN_NCOUNTS)); - for (i = 0; i < n_counters; i += GCOV_ICALL_TOPN_NCOUNTS) - { - gcov_type *value_array = &counters[i + 1]; - unsigned tmp_size = 2 * (GCOV_ICALL_TOPN_NCOUNTS - 1); - gcov_type *tmp_array - = (gcov_type *) alloca (tmp_size * sizeof (gcov_type)); - - for (j = 0; j < tmp_size; j++) - tmp_array[j] = 0; - - for (j = 0; j < GCOV_ICALL_TOPN_NCOUNTS - 1; j += 2) - { - tmp_array[j] = value_array[j]; - tmp_array[j + 1] = value_array [j + 1]; - } - - /* Skip the number_of_eviction entry. */ - gcov_read_counter (); - for (k = 0; k < GCOV_ICALL_TOPN_NCOUNTS - 1; k += 2) - { - int found = 0; - gcov_type global_id = gcov_read_counter (); - gcov_type call_count = gcov_read_counter (); - for (m = 0; m < j; m += 2) - { - if (tmp_array[m] == global_id) - { - found = 1; - tmp_array[m + 1] += call_count; - break; - } - } - if (!found) - { - tmp_array[j] = global_id; - tmp_array[j + 1] = call_count; - j += 2; - } - } - /* Now sort the temp array */ - gcov_sort_n_vals (tmp_array, j); - - /* Now copy back the top half of the temp array */ - for (k = 0; k < GCOV_ICALL_TOPN_NCOUNTS - 1; k += 2) - { - value_array[k] = tmp_array[k]; - value_array[k + 1] = tmp_array[k + 1]; - } - } -} -#endif - - -#ifdef L_gcov_merge_single -/* The profile merging function for choosing the most common value. - It is given an array COUNTERS of N_COUNTERS old counters and it - reads the same number of counters from the gcov file. The counters - are split into 3-tuples where the members of the tuple have - meanings: - - -- the stored candidate on the most common value of the measured entity - -- counter - -- total number of evaluations of the value */ -void -__gcov_merge_single (gcov_type *counters, unsigned n_counters) -{ - unsigned i, n_measures; - gcov_type value, counter, all; - - gcc_assert (!(n_counters % 3)); - n_measures = n_counters / 3; - for (i = 0; i < n_measures; i++, counters += 3) - { - value = gcov_read_counter (); - counter = gcov_read_counter (); - all = gcov_read_counter (); - - if (counters[0] == value) - counters[1] += counter; - else if (counter > counters[1]) - { - counters[0] = value; - counters[1] = counter - counters[1]; - } - else - counters[1] -= counter; - counters[2] += all; - } -} -#endif /* L_gcov_merge_single */ - -#ifdef L_gcov_merge_delta -/* The profile merging function for choosing the most common - difference between two consecutive evaluations of the value. It is - given an array COUNTERS of N_COUNTERS old counters and it reads the - same number of counters from the gcov file. The counters are split - into 4-tuples where the members of the tuple have meanings: - - -- the last value of the measured entity - -- the stored candidate on the most common difference - -- counter - -- total number of evaluations of the value */ -void -__gcov_merge_delta (gcov_type *counters, unsigned n_counters) -{ - unsigned i, n_measures; - gcov_type value, counter, all; - - gcc_assert (!(n_counters % 4)); - n_measures = n_counters / 4; - for (i = 0; i < n_measures; i++, counters += 4) - { - /* last = */ gcov_read_counter (); - value = gcov_read_counter (); - counter = gcov_read_counter (); - all = gcov_read_counter (); - - if (counters[1] == value) - counters[2] += counter; - else if (counter > counters[2]) - { - counters[1] = value; - counters[2] = counter - counters[2]; - } - else - counters[2] -= counter; - counters[3] += all; - } -} -#endif /* L_gcov_merge_delta */ - -#ifdef L_gcov_interval_profiler -/* If VALUE is in interval <START, START + STEPS - 1>, then increases the - corresponding counter in COUNTERS. If the VALUE is above or below - the interval, COUNTERS[STEPS] or COUNTERS[STEPS + 1] is increased - instead. */ - -void -__gcov_interval_profiler (gcov_type *counters, gcov_type value, - int start, unsigned steps) -{ - gcov_type delta = value - start; - if (delta < 0) - counters[steps + 1]++; - else if (delta >= steps) - counters[steps]++; - else - counters[delta]++; -} -#endif - -#ifdef L_gcov_pow2_profiler -/* If VALUE is a power of two, COUNTERS[1] is incremented. Otherwise - COUNTERS[0] is incremented. */ - -void -__gcov_pow2_profiler (gcov_type *counters, gcov_type value) -{ - if (value & (value - 1)) - counters[0]++; - else - counters[1]++; -} -#endif - -/* Tries to determine the most common value among its inputs. Checks if the - value stored in COUNTERS[0] matches VALUE. If this is the case, COUNTERS[1] - is incremented. If this is not the case and COUNTERS[1] is not zero, - COUNTERS[1] is decremented. Otherwise COUNTERS[1] is set to one and - VALUE is stored to COUNTERS[0]. This algorithm guarantees that if this - function is called more than 50% of the time with one value, this value - will be in COUNTERS[0] in the end. - - In any case, COUNTERS[2] is incremented. */ - -static inline void -__gcov_one_value_profiler_body (gcov_type *counters, gcov_type value) -{ - if (value == counters[0]) - counters[1]++; - else if (counters[1] == 0) - { - counters[1] = 1; - counters[0] = value; - } - else - counters[1]--; - counters[2]++; -} - -#ifdef L_gcov_indirect_call_topn_profiler -/* Tries to keep track the most frequent N values in the counters where - N is specified by parameter TOPN_VAL. To track top N values, 2*N counter - entries are used. - counter[0] --- the accumative count of the number of times one entry in - in the counters gets evicted/replaced due to limited capacity. - When this value reaches a threshold, the bottom N values are - cleared. - counter[1] through counter[2*N] records the top 2*N values collected so far. - Each value is represented by two entries: count[2*i+1] is the ith value, and - count[2*i+2] is the number of times the value is seen. */ - -static void -__gcov_topn_value_profiler_body (gcov_type *counters, gcov_type value, - gcov_unsigned_t topn_val) -{ - unsigned i, found = 0, have_zero_count = 0; - - gcov_type *entry; - gcov_type *lfu_entry = &counters[1]; - gcov_type *value_array = &counters[1]; - gcov_type *num_eviction = &counters[0]; - - /* There are 2*topn_val values tracked, each value takes two slots in the - counter array */ - for ( i = 0; i < (topn_val << 2); i += 2) - { - entry = &value_array[i]; - if ( entry[0] == value) - { - entry[1]++ ; - found = 1; - break; - } - else if (entry[1] == 0) - { - lfu_entry = entry; - have_zero_count = 1; - } - else if (entry[1] < lfu_entry[1]) - lfu_entry = entry; - } - - if (found) - return; - - /* lfu_entry is either an empty entry or an entry - with lowest count, which will be evicted. */ - lfu_entry[0] = value; - lfu_entry[1] = 1; - -#define GCOV_ICALL_COUNTER_CLEAR_THRESHOLD 3000 - - /* Too many evictions -- time to clear bottom entries to - avoid hot values bumping each other out. */ - if ( !have_zero_count - && ++*num_eviction >= GCOV_ICALL_COUNTER_CLEAR_THRESHOLD) - { - unsigned i, j; - gcov_type *p, minv; - gcov_type* tmp_cnts - = (gcov_type *)alloca (topn_val * sizeof(gcov_type)); - - *num_eviction = 0; - - for ( i = 0; i < topn_val; i++ ) - tmp_cnts[i] = 0; - - /* Find the largest topn_val values from the group of - 2*topn_val values and put them into tmp_cnts. */ - - for ( i = 0; i < 2 * topn_val; i += 2 ) - { - p = 0; - for ( j = 0; j < topn_val; j++ ) - { - if ( !p || tmp_cnts[j] < *p ) - p = &tmp_cnts[j]; - } - if ( value_array[i + 1] > *p ) - *p = value_array[i + 1]; - } - - minv = tmp_cnts[0]; - for ( j = 1; j < topn_val; j++ ) - { - if (tmp_cnts[j] < minv) - minv = tmp_cnts[j]; - } - /* Zero out low value entries */ - for ( i = 0; i < 2 * topn_val; i += 2 ) - { - if (value_array[i + 1] < minv) - { - value_array[i] = 0; - value_array[i + 1] = 0; - } - } - } -} -#endif - -#ifdef L_gcov_one_value_profiler -void -__gcov_one_value_profiler (gcov_type *counters, gcov_type value) -{ - __gcov_one_value_profiler_body (counters, value); -} -#endif - -#ifdef L_gcov_indirect_call_profiler - -/* By default, the C++ compiler will use function addresses in the - vtable entries. Setting TARGET_VTABLE_USES_DESCRIPTORS to nonzero - tells the compiler to use function descriptors instead. The value - of this macro says how many words wide the descriptor is (normally 2), - but it may be dependent on target flags. Since we do not have access - to the target flags here we just check to see if it is set and use - that to set VTABLE_USES_DESCRIPTORS to 0 or 1. - - It is assumed that the address of a function descriptor may be treated - as a pointer to a function. */ - -#ifdef TARGET_VTABLE_USES_DESCRIPTORS -#define VTABLE_USES_DESCRIPTORS 1 -#else -#define VTABLE_USES_DESCRIPTORS 0 -#endif - -/* Tries to determine the most common value among its inputs. */ -void -__gcov_indirect_call_profiler (gcov_type* counter, gcov_type value, - void* cur_func, void* callee_func) -{ - /* If the C++ virtual tables contain function descriptors then one - function may have multiple descriptors and we need to dereference - the descriptors to see if they point to the same function. */ - if (cur_func == callee_func - || (VTABLE_USES_DESCRIPTORS && callee_func - && *(void **) cur_func == *(void **) callee_func)) - __gcov_one_value_profiler_body (counter, value); -} -#endif - - -#ifdef L_gcov_indirect_call_topn_profiler -extern THREAD_PREFIX gcov_type *__gcov_indirect_call_topn_counters ATTRIBUTE_HIDDEN; -extern THREAD_PREFIX void *__gcov_indirect_call_topn_callee ATTRIBUTE_HIDDEN; -#ifdef TARGET_VTABLE_USES_DESCRIPTORS -#define VTABLE_USES_DESCRIPTORS 1 -#else -#define VTABLE_USES_DESCRIPTORS 0 -#endif -void -__gcov_indirect_call_topn_profiler (void *cur_func, - void *cur_module_gcov_info, - gcov_unsigned_t cur_func_id) -{ - void *callee_func = __gcov_indirect_call_topn_callee; - gcov_type *counter = __gcov_indirect_call_topn_counters; - /* If the C++ virtual tables contain function descriptors then one - function may have multiple descriptors and we need to dereference - the descriptors to see if they point to the same function. */ - if (cur_func == callee_func - || (VTABLE_USES_DESCRIPTORS && callee_func - && *(void **) cur_func == *(void **) callee_func)) - { - gcov_type global_id - = ((struct gcov_info *) cur_module_gcov_info)->mod_info->ident; - global_id = GEN_FUNC_GLOBAL_ID (global_id, cur_func_id); - __gcov_topn_value_profiler_body (counter, global_id, GCOV_ICALL_TOPN_VAL); - __gcov_indirect_call_topn_callee = 0; - } -} - -#endif - -#ifdef L_gcov_direct_call_profiler -extern THREAD_PREFIX gcov_type *__gcov_direct_call_counters ATTRIBUTE_HIDDEN; -extern THREAD_PREFIX void *__gcov_direct_call_callee ATTRIBUTE_HIDDEN; -/* Direct call profiler. */ -void -__gcov_direct_call_profiler (void *cur_func, - void *cur_module_gcov_info, - gcov_unsigned_t cur_func_id) -{ - if (cur_func == __gcov_direct_call_callee) - { - gcov_type global_id - = ((struct gcov_info *) cur_module_gcov_info)->mod_info->ident; - global_id = GEN_FUNC_GLOBAL_ID (global_id, cur_func_id); - __gcov_direct_call_counters[0] = global_id; - __gcov_direct_call_counters[1]++; - __gcov_direct_call_callee = 0; - } -} -#endif - - -#ifdef L_gcov_average_profiler -/* Increase corresponding COUNTER by VALUE. FIXME: Perhaps we want - to saturate up. */ - -void -__gcov_average_profiler (gcov_type *counters, gcov_type value) -{ - counters[0] += value; - counters[1] ++; -} -#endif - -#ifdef L_gcov_ior_profiler -/* Increase corresponding COUNTER by VALUE. FIXME: Perhaps we want - to saturate up. */ - -void -__gcov_ior_profiler (gcov_type *counters, gcov_type value) -{ - *counters |= value; -} -#endif - -#ifdef L_gcov_fork -/* A wrapper for the fork function. Flushes the accumulated profiling data, so - that they are not counted twice. */ - -pid_t -__gcov_fork (void) -{ - __gcov_flush (); - return fork (); -} -#endif - -#ifdef L_gcov_execl -/* A wrapper for the execl function. Flushes the accumulated profiling data, so - that they are not lost. */ - -int -__gcov_execl (const char *path, char *arg, ...) -{ - va_list ap, aq; - unsigned i, length; - char **args; - - __gcov_flush (); - - va_start (ap, arg); - va_copy (aq, ap); - - length = 2; - while (va_arg (ap, char *)) - length++; - va_end (ap); - - args = (char **) alloca (length * sizeof (void *)); - args[0] = arg; - for (i = 1; i < length; i++) - args[i] = va_arg (aq, char *); - va_end (aq); - - return execv (path, args); -} -#endif - -#ifdef L_gcov_execlp -/* A wrapper for the execlp function. Flushes the accumulated profiling data, so - that they are not lost. */ - -int -__gcov_execlp (const char *path, char *arg, ...) -{ - va_list ap, aq; - unsigned i, length; - char **args; - - __gcov_flush (); - - va_start (ap, arg); - va_copy (aq, ap); - - length = 2; - while (va_arg (ap, char *)) - length++; - va_end (ap); - - args = (char **) alloca (length * sizeof (void *)); - args[0] = arg; - for (i = 1; i < length; i++) - args[i] = va_arg (aq, char *); - va_end (aq); - - return execvp (path, args); -} -#endif - -#ifdef L_gcov_execle -/* A wrapper for the execle function. Flushes the accumulated profiling data, so - that they are not lost. */ - -int -__gcov_execle (const char *path, char *arg, ...) -{ - va_list ap, aq; - unsigned i, length; - char **args; - char **envp; - - __gcov_flush (); - - va_start (ap, arg); - va_copy (aq, ap); - - length = 2; - while (va_arg (ap, char *)) - length++; - va_end (ap); - - args = (char **) alloca (length * sizeof (void *)); - args[0] = arg; - for (i = 1; i < length; i++) - args[i] = va_arg (aq, char *); - envp = va_arg (aq, char **); - va_end (aq); - - return execve (path, args, envp); -} -#endif - -#ifdef L_gcov_execv -/* A wrapper for the execv function. Flushes the accumulated profiling data, so - that they are not lost. */ - -int -__gcov_execv (const char *path, char *const argv[]) -{ - __gcov_flush (); - return execv (path, argv); -} -#endif - -#ifdef L_gcov_execvp -/* A wrapper for the execvp function. Flushes the accumulated profiling data, so - that they are not lost. */ - -int -__gcov_execvp (const char *path, char *const argv[]) -{ - __gcov_flush (); - return execvp (path, argv); -} -#endif - -#ifdef L_gcov_execve -/* A wrapper for the execve function. Flushes the accumulated profiling data, so - that they are not lost. */ - -int -__gcov_execve (const char *path, char *const argv[], char *const envp[]) -{ - __gcov_flush (); - return execve (path, argv, envp); -} -#endif - -#ifdef __GCOV_KERNEL__ -/* - * Provide different implementation for the following functions: - * __gcov_init - * __gcov_exit - * - * Provide the following dummy merge functions: - * __gcov_merge_add - * __gcov_merge_single - * __gcov_merge_delta - * __gcov_merge_ior - * __gcov_merge_icall_topn - * __gcov_merge_dc - * __gcov_merge_reusedist - * - * Reuse the following functions: - * __gcov_interval_profiler() - * __gcov_pow2_profiler() - * __gcov_average_profiler() - * __gcov_ior_profiler() - * __gcov_one_value_profiler() - * __gcov_indirect_call_profiler() - * |-> __gcov_one_value_profiler_body() - * - * For LIPO: (TBD) - * Change slightly for the following functions: - * __gcov_merge_icall_topn - * __gcov_merge_dc - * - * Reuse the following functions: - * __gcov_direct_call_profiler() - * __gcov_indirect_call_topn_profiler() - * |-> __gcov_topn_value_profiler_body() - * - */ - -/* Current virual gcda file. This is for kernel use only. */ -gcov_kernel_vfile *gcov_current_file; - -/* Set current virutal gcda file. It needs to be set before dumping - profile data. */ - -void -gcov_set_vfile (gcov_kernel_vfile *file) -{ - gcov_current_file = file; -} - -/* Dump one entry in the gcov_info list (for one object) in kernel. */ - -void -gcov_kernel_dump_one_gcov (struct gcov_info *info) -{ - gcc_assert (gcov_current_file); - - gcov_exit_init (); - - gcov_dump_one_gcov (info); -} - -#define DUMMY_FUNC(func) \ -void func (gcov_type *counters __attribute__ ((unused)), \ - unsigned n_counters __attribute__ ((unused))) {} - -DUMMY_FUNC (__gcov_merge_add) -EXPORT_SYMBOL (__gcov_merge_add); - -DUMMY_FUNC (__gcov_merge_single) -EXPORT_SYMBOL (__gcov_merge_single); - -DUMMY_FUNC (__gcov_merge_delta) -EXPORT_SYMBOL (__gcov_merge_delta); - -DUMMY_FUNC(__gcov_merge_ior) -EXPORT_SYMBOL (__gcov_merge_ior); - -DUMMY_FUNC (__gcov_merge_icall_topn) -EXPORT_SYMBOL (__gcov_merge_icall_topn); - -DUMMY_FUNC (__gcov_merge_dc) -EXPORT_SYMBOL (__gcov_merge_dc); - -DUMMY_FUNC (__gcov_merge_reusedist) -EXPORT_SYMBOL (__gcov_merge_reusedist); - -EXPORT_SYMBOL (__gcov_average_profiler); -EXPORT_SYMBOL (__gcov_indirect_call_profiler); -EXPORT_SYMBOL (__gcov_interval_profiler); -EXPORT_SYMBOL (__gcov_ior_profiler); -EXPORT_SYMBOL (__gcov_one_value_profiler); -EXPORT_SYMBOL (__gcov_pow2_profiler); - -#endif /* __GCOV_KERNEL__ */ - -#endif /* inhibit_libc */ |