Daily bump.
[official-gcc.git] / libgcc / libgcov-interface.c
blob7f831f2ef240bb4a68795dddf62f51273eceba09
1 /* Routines required for instrumenting a program. */
2 /* Compile this one with gcc. */
3 /* Copyright (C) 1989-2014 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"
27 #include "gthr.h"
29 #if defined(inhibit_libc)
31 #ifdef L_gcov_flush
32 void __gcov_flush (void) {}
33 #endif
35 #ifdef L_gcov_reset
36 void __gcov_reset (void) {}
37 #endif
39 #ifdef L_gcov_dump
40 void __gcov_dump (void) {}
41 #endif
43 #else
45 extern void gcov_clear (void) ATTRIBUTE_HIDDEN;
46 extern void gcov_exit (void) ATTRIBUTE_HIDDEN;
47 extern void set_gcov_dump_complete (void) ATTRIBUTE_HIDDEN;
48 extern void reset_gcov_dump_complete (void) ATTRIBUTE_HIDDEN;
50 #ifdef L_gcov_flush
52 #ifdef __GTHREAD_MUTEX_INIT
53 ATTRIBUTE_HIDDEN __gthread_mutex_t __gcov_flush_mx = __GTHREAD_MUTEX_INIT;
54 #define init_mx_once()
55 #else
56 __gthread_mutex_t __gcov_flush_mx ATTRIBUTE_HIDDEN;
58 static void
59 init_mx (void)
61 __GTHREAD_MUTEX_INIT_FUNCTION (&__gcov_flush_mx);
63 static void
64 init_mx_once (void)
66 static __gthread_once_t once = __GTHREAD_ONCE_INIT;
67 __gthread_once (&once, init_mx);
69 #endif
71 /* Called before fork or exec - write out profile information gathered so
72 far and reset it to zero. This avoids duplication or loss of the
73 profile information gathered so far. */
75 void
76 __gcov_flush (void)
78 init_mx_once ();
79 __gthread_mutex_lock (&__gcov_flush_mx);
81 gcov_exit ();
82 gcov_clear ();
84 __gthread_mutex_unlock (&__gcov_flush_mx);
87 #endif /* L_gcov_flush */
89 #ifdef L_gcov_reset
91 /* Function that can be called from application to reset counters to zero,
92 in order to collect profile in region of interest. */
94 void
95 __gcov_reset (void)
97 gcov_clear ();
98 /* Re-enable dumping to support collecting profile in multiple regions
99 of interest. */
100 reset_gcov_dump_complete ();
103 #endif /* L_gcov_reset */
105 #ifdef L_gcov_dump
107 /* Function that can be called from application to write profile collected
108 so far, in order to collect profile in region of interest. */
110 void
111 __gcov_dump (void)
113 gcov_exit ();
114 /* Prevent profile from being dumped a second time on application exit. */
115 set_gcov_dump_complete ();
118 #endif /* L_gcov_dump */
121 #ifdef L_gcov_fork
122 /* A wrapper for the fork function. Flushes the accumulated profiling data, so
123 that they are not counted twice. */
125 pid_t
126 __gcov_fork (void)
128 pid_t pid;
129 extern __gthread_mutex_t __gcov_flush_mx;
130 __gcov_flush ();
131 pid = fork ();
132 if (pid == 0)
133 __GTHREAD_MUTEX_INIT_FUNCTION (&__gcov_flush_mx);
134 return pid;
136 #endif
138 #ifdef L_gcov_execl
139 /* A wrapper for the execl function. Flushes the accumulated profiling data, so
140 that they are not lost. */
143 __gcov_execl (const char *path, char *arg, ...)
145 va_list ap, aq;
146 unsigned i, length;
147 char **args;
149 __gcov_flush ();
151 va_start (ap, arg);
152 va_copy (aq, ap);
154 length = 2;
155 while (va_arg (ap, char *))
156 length++;
157 va_end (ap);
159 args = (char **) alloca (length * sizeof (void *));
160 args[0] = arg;
161 for (i = 1; i < length; i++)
162 args[i] = va_arg (aq, char *);
163 va_end (aq);
165 return execv (path, args);
167 #endif
169 #ifdef L_gcov_execlp
170 /* A wrapper for the execlp function. Flushes the accumulated profiling data, so
171 that they are not lost. */
174 __gcov_execlp (const char *path, char *arg, ...)
176 va_list ap, aq;
177 unsigned i, length;
178 char **args;
180 __gcov_flush ();
182 va_start (ap, arg);
183 va_copy (aq, ap);
185 length = 2;
186 while (va_arg (ap, char *))
187 length++;
188 va_end (ap);
190 args = (char **) alloca (length * sizeof (void *));
191 args[0] = arg;
192 for (i = 1; i < length; i++)
193 args[i] = va_arg (aq, char *);
194 va_end (aq);
196 return execvp (path, args);
198 #endif
200 #ifdef L_gcov_execle
201 /* A wrapper for the execle function. Flushes the accumulated profiling data, so
202 that they are not lost. */
205 __gcov_execle (const char *path, char *arg, ...)
207 va_list ap, aq;
208 unsigned i, length;
209 char **args;
210 char **envp;
212 __gcov_flush ();
214 va_start (ap, arg);
215 va_copy (aq, ap);
217 length = 2;
218 while (va_arg (ap, char *))
219 length++;
220 va_end (ap);
222 args = (char **) alloca (length * sizeof (void *));
223 args[0] = arg;
224 for (i = 1; i < length; i++)
225 args[i] = va_arg (aq, char *);
226 envp = va_arg (aq, char **);
227 va_end (aq);
229 return execve (path, args, envp);
231 #endif
233 #ifdef L_gcov_execv
234 /* A wrapper for the execv function. Flushes the accumulated profiling data, so
235 that they are not lost. */
238 __gcov_execv (const char *path, char *const argv[])
240 __gcov_flush ();
241 return execv (path, argv);
243 #endif
245 #ifdef L_gcov_execvp
246 /* A wrapper for the execvp function. Flushes the accumulated profiling data, so
247 that they are not lost. */
250 __gcov_execvp (const char *path, char *const argv[])
252 __gcov_flush ();
253 return execvp (path, argv);
255 #endif
257 #ifdef L_gcov_execve
258 /* A wrapper for the execve function. Flushes the accumulated profiling data, so
259 that they are not lost. */
262 __gcov_execve (const char *path, char *const argv[], char *const envp[])
264 __gcov_flush ();
265 return execve (path, argv, envp);
267 #endif
268 #endif /* inhibit_libc */