1 /* Routines required for instrumenting a program. */
2 /* Compile this one with gcc. */
3 /* Copyright (C) 1989-2019 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
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
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/>. */
27 /* Configured via the GCOV_ERROR_FILE environment variable;
28 it will either be stderr, or a file of the user's choosing.
29 Non-static to prevent multiple gcov-aware shared objects from
30 instantiating their own copies. */
31 FILE *__gcov_error_file
= NULL
;
34 /* A utility function to populate the __gcov_error_file pointer.
35 This should NOT be called outside of the gcov system driver code. */
38 get_gcov_error_file (void)
43 if (!__gcov_error_file
)
45 const char *gcov_error_filename
= getenv ("GCOV_ERROR_FILE");
47 if (gcov_error_filename
)
48 __gcov_error_file
= fopen (gcov_error_filename
, "a");
49 if (!__gcov_error_file
)
50 __gcov_error_file
= stderr
;
52 return __gcov_error_file
;
56 /* A utility function for outputting errors. */
58 static int __attribute__((format(printf
, 1, 2)))
59 gcov_error (const char *fmt
, ...)
65 FILE *f
= get_gcov_error_file ();
66 ret
= vfprintf (f
, fmt
, argp
);
69 if (getenv ("GCOV_EXIT_AT_ERROR"))
71 fprintf (f
, "profiling:exiting after an error\n");
80 gcov_error_exit (void)
82 if (__gcov_error_file
&& __gcov_error_file
!= stderr
)
84 fclose (__gcov_error_file
);
85 __gcov_error_file
= NULL
;
90 /* Make sure path component of the given FILENAME exists, create
91 missing directories. FILENAME must be writable.
92 Returns zero on success, or -1 if an error occurred. */
95 create_file_directory (char *filename
)
97 #if !defined(TARGET_POSIX_IO) && !defined(_WIN32)
105 if (HAS_DRIVE_SPEC(s
))
107 if (IS_DIR_SEPARATOR(*s
))
109 for (; *s
!= '\0'; s
++)
110 if (IS_DIR_SEPARATOR(*s
))
115 /* Try to make directory if it doesn't already exist. */
116 if (access (filename
, F_OK
) == -1
117 #ifdef TARGET_POSIX_IO
118 && mkdir (filename
, 0755) == -1
123 && mkdir (filename
) == -1
125 /* The directory might have been made by another process. */
128 gcov_error ("profiling:%s:Cannot create directory\n", filename
);
139 /* Replace filename variables in FILENAME. We currently support expansion:
142 %q{ENV} - value of environment variable ENV
146 replace_filename_variables (char *filename
)
150 for (char *p
= filename
; *p
!= '\0'; p
++)
152 unsigned length
= strlen (filename
);
153 if (*p
== '%' && *(p
+ 1) != '\0')
155 unsigned start
= p
- filename
;
157 char *replacement
= NULL
;
161 sprintf (buffer
, "%d", getpid ());
162 replacement
= buffer
;
169 char *e
= strchr (p
, '}');
173 replacement
= getenv (p
);
174 if (replacement
== NULL
)
186 /* Concat beginning of the path, replacement and
187 ending of the path. */
188 unsigned end
= length
- (p
- filename
);
189 unsigned repl_length
= replacement
!= NULL
? strlen (replacement
) : 0;
191 char *buffer
= (char *)xmalloc (start
+ end
+ repl_length
+ 1);
192 char *buffer_ptr
= buffer
;
193 buffer_ptr
= (char *)memcpy (buffer_ptr
, filename
, start
);
195 if (replacement
!= NULL
)
196 buffer_ptr
= (char *)memcpy (buffer_ptr
, replacement
, repl_length
);
197 buffer_ptr
+= repl_length
;
198 buffer_ptr
= (char *)memcpy (buffer_ptr
, p
, end
);
204 p
= buffer
+ start
+ repl_length
;
212 allocate_filename_struct (struct gcov_filename
*gf
)
214 const char *gcov_prefix
;
215 size_t prefix_length
;
220 /* Check if the level of dirs to strip off specified. */
221 char *tmp
= getenv("GCOV_PREFIX_STRIP");
225 /* Do not consider negative values. */
232 /* Get file name relocation prefix. Non-absolute values are ignored. */
233 gcov_prefix
= getenv("GCOV_PREFIX");
234 prefix_length
= gcov_prefix
? strlen (gcov_prefix
) : 0;
236 /* Remove an unnecessary trailing '/' */
237 if (prefix_length
&& IS_DIR_SEPARATOR (gcov_prefix
[prefix_length
- 1]))
240 /* If no prefix was specified and a prefix stip, then we assume
242 if (!prefix_length
&& gf
->strip
)
248 /* Allocate and initialize the filename scratch space. */
251 gf
->prefix
= (char *) xmalloc (prefix_length
+ 1);
252 char *p
= (char *) memcpy (gf
->prefix
, gcov_prefix
, prefix_length
);
253 *(p
+ prefix_length
) = '\0';
259 /* Open a gcda file specified by GI_FILENAME.
260 Return -1 on error. Return 0 on success. */
263 gcov_exit_open_gcda_file (struct gcov_info
*gi_ptr
,
264 struct gcov_filename
*gf
)
266 const char *fname
= gi_ptr
->filename
;
267 int append_slash
= 0;
269 fname
= gi_ptr
->filename
;
271 /* Build relocated filename, stripping off leading
272 directories from the initial filename if requested. */
275 const char *probe
= fname
;
278 /* Remove a leading separator, without counting it. */
279 if (IS_DIR_SEPARATOR (*probe
))
282 /* Skip selected directory levels. If we fall off the end, we
283 keep the final part. */
284 for (level
= gf
->strip
; *probe
&& level
; probe
++)
285 if (IS_DIR_SEPARATOR (*probe
))
292 /* Update complete filename with stripped original. */
295 /* Avoid to add multiple drive letters into combined path. */
296 if (HAS_DRIVE_SPEC(fname
))
299 if (!IS_DIR_SEPARATOR (*fname
))
303 size_t prefix_length
= gf
->prefix
? strlen (gf
->prefix
) : 0;
304 gf
->filename
= (char *) xmalloc (prefix_length
+ strlen (fname
) + 2);
305 *gf
->filename
= '\0';
307 strcat (gf
->filename
, gf
->prefix
);
309 *gf
->filename
++ = '/';
310 strcat (gf
->filename
, fname
);
312 gf
->filename
= replace_filename_variables (gf
->filename
);
314 if (!gcov_open (gf
->filename
))
316 /* Open failed likely due to missed directory.
317 Create directory and retry to open file. */
318 if (create_file_directory (gf
->filename
))
320 fprintf (stderr
, "profiling:%s:Skip\n", gf
->filename
);
323 if (!gcov_open (gf
->filename
))
325 fprintf (stderr
, "profiling:%s:Cannot open\n", gf
->filename
);