* texi2pod.pl: Substitue for @value even when part of @include.
[binutils.git] / gprof / bb_exit_func.c
blob5f98eec4cff6fc5ad3802b93a0c67121cf941840
1 /* bb_exit_func.c - dumps all the basic-block statistics linked into
2 the bb_head chain to .d files.
4 Copyright 2000, 2001, 2004 Free Software Foundation, Inc.
6 This file is part of GNU Binutils.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
21 02110-1301, USA.
23 This code was contributed by:
25 David Mosberger-Tang <David.Mosberger@acm.org> */
27 #include <stdio.h>
28 #include <strings.h>
29 #include "bfd.h"
30 #include "gmon_out.h"
32 /* structure emitted by -a */
33 struct bb
35 long zero_word;
36 const char *filename;
37 long *counts;
38 long ncounts;
39 struct bb *next;
40 const unsigned long *addresses;
43 struct bb *__bb_head = (struct bb *) 0;
46 void
47 __bb_exit_func ()
49 const int version = GMON_VERSION;
50 struct gmon_hdr ghdr;
51 struct bb *ptr;
52 FILE *fp;
53 /* GEN_GMON_CNT_FILE should be defined on systems with mcleanup()
54 functions that do not write basic-block to gmon.out. In such
55 cases profiling with "-pg -a" would result in a gmon.out file
56 without basic-block info (because the file written here would be
57 overwritten. Thus, a separate file is generated instead. The
58 two files can easily be combined by specifying them on gprof's
59 command line (and possibly generating a gmon.sum file with "gprof
60 -s"). */
61 #ifndef GEN_GMON_CNT_FILE
62 # define OUT_NAME "gmon.out"
63 #else
64 # define OUT_NAME "gmon.cnt"
65 #endif
66 fp = fopen (OUT_NAME, "wb");
67 if (!fp)
69 perror (OUT_NAME);
70 return;
72 memcpy (&ghdr.cookie[0], GMON_MAGIC, 4);
73 memcpy (&ghdr.version, &version, sizeof (version));
74 fwrite (&ghdr, sizeof (ghdr), 1, fp);
76 for (ptr = __bb_head; ptr != 0; ptr = ptr->next)
78 u_int ncounts = ptr->ncounts;
79 u_char tag;
80 u_int i;
82 tag = GMON_TAG_BB_COUNT;
83 fwrite (&tag, sizeof (tag), 1, fp);
84 fwrite (&ncounts, sizeof (ncounts), 1, fp);
86 for (i = 0; i < ncounts; ++i)
88 fwrite (&ptr->addresses[i], sizeof (ptr->addresses[0]), 1, fp);
89 fwrite (&ptr->counts[i], sizeof (ptr->counts[0]), 1, fp);
92 fclose (fp);