Remove duplicated `;'.
[kopensolaris-gnu/glibc.git] / gmon / bb_exit_func.c
1 /* Copyright (C) 1996, 1997 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3    Contributed by David Mosberger (davidm@cs.arizona.edu).
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Library General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    The GNU C Library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Library General Public License for more details.
14
15    You should have received a copy of the GNU Library General Public
16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18    Boston, MA 02111-1307, USA.  */
19
20 /* __bb_exit_func() dumps all the basic-block statistics linked into
21    the __bb_head chain to .d files.  */
22
23 #include <sys/gmon_out.h>
24 #include <sys/types.h>
25
26 #include <stdio.h>
27 #include <strings.h>
28
29 /* structure emitted by -a */
30 struct bb
31   {
32     long int zero_word;
33     const char *filename;
34     long int *counts;
35     long int ncounts;
36     struct bb *next;
37     const unsigned long int *addresses;
38   };
39
40 extern struct bb *__bb_head;    /* from gmon.c */
41
42 #define OUT_NAME        "gmon.out"
43
44
45 void
46 __bb_exit_func (void)
47 {
48   const int version = GMON_VERSION;
49   struct gmon_hdr ghdr;
50   struct bb *ptr;
51   FILE *fp;
52   fp = fopen (OUT_NAME, "wb");
53   if (!fp)
54     {
55       perror (OUT_NAME);
56       return;
57     }
58   memcpy (&ghdr.cookie[0], GMON_MAGIC, 4);
59   memcpy (&ghdr.version, &version, sizeof (version));
60   fwrite (&ghdr, sizeof (ghdr), 1, fp);
61
62   for (ptr = __bb_head; ptr != 0; ptr = ptr->next)
63     {
64       u_int ncounts = ptr->ncounts;
65       u_char tag;
66       u_int i;
67
68       tag = GMON_TAG_BB_COUNT;
69       fwrite (&tag, sizeof (tag), 1, fp);
70       fwrite (&ncounts, sizeof (ncounts), 1, fp);
71
72       for (i = 0; i < ncounts; ++i)
73         {
74           fwrite (&ptr->addresses[i], sizeof (ptr->addresses[0]), 1, fp);
75           fwrite (&ptr->counts[i], sizeof (ptr->counts[0]), 1, fp);
76         }
77     }
78   fclose (fp);
79 }