19990502 sourceware importbinu_ss_19990502

1 files changed, 78 insertions, 0 deletions

diff --git a/gprof/bb_exit_func.c b/gprof/bb_exit_func.c
new file mode 100644
index 00000000000..813321566c7
--- /dev/null
+++ b/gprof/bb_exit_func.c
@@ -0,0 +1,78 @@
+/*
+ * Copyright (c) 1994 David Mosberger-Tang.
+ *
+ * This is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU Library General Public License as
+ * published by the Free Software Foundation; either version 2, or (at
+ * your option) any later version.
+ *
+ * __bb_exit_func() dumps all the basic-block statistics linked into
+ * the bb_head chain to .d files.
+ */
+#include <stdio.h>
+#include <strings.h>
+#include "bfd.h"
+#include "gmon_out.h"
+
+/* structure emitted by -a */
+struct bb {
+    long		zero_word;
+    const char		*filename;
+    long		*counts;
+    long		ncounts;
+    struct bb		*next;
+    const unsigned long	*addresses;
+};
+
+struct bb *__bb_head = (struct bb *)0;
+
+
+void
+__bb_exit_func (void)
+{
+    const int version = GMON_VERSION;
+    struct gmon_hdr ghdr;
+    struct bb *ptr;
+    FILE *fp;
+    /*
+     * GEN_GMON_CNT_FILE should be defined on systems with mcleanup()
+     * functions that do not write basic-block to gmon.out.  In such
+     * cases profiling with "-pg -a" would result in a gmon.out file
+     * without basic-block info (because the file written here would
+     * be overwritten.  Thus, a separate file is generated instead.
+     * The two files can easily be combined by specifying them
+     * on gprof's command line (and possibly generating a gmon.sum
+     * file with "gprof -s").
+     */
+#ifndef GEN_GMON_CNT_FILE
+#   define OUT_NAME	"gmon.out"
+#else
+#   define OUT_NAME	"gmon.cnt"
+#endif
+    fp = fopen(OUT_NAME, "wb");
+    if (!fp) {
+	perror(OUT_NAME);
+	return;
+    } /* if */
+    memcpy(&ghdr.cookie[0], GMON_MAGIC, 4);
+    memcpy(&ghdr.version, &version, sizeof(version));
+    fwrite(&ghdr, sizeof(ghdr), 1, fp);
+
+    for (ptr = __bb_head; ptr != 0; ptr = ptr->next) {
+	u_int ncounts = ptr->ncounts;
+	u_char tag;
+	u_int i;
+
+	tag = GMON_TAG_BB_COUNT;
+	fwrite(&tag, sizeof(tag), 1, fp);
+	fwrite(&ncounts, sizeof(ncounts), 1, fp);
+
+	for (i = 0; i < ncounts; ++i) {
+	    fwrite(&ptr->addresses[i], sizeof(ptr->addresses[0]), 1, fp);
+	    fwrite(&ptr->counts[i], sizeof(ptr->counts[0]), 1, fp);
+	} /* for */
+    } /* for */
+    fclose (fp);
+} /* __bb_exit_func */
+
+			/*** end of __bb_exit_func.c ***/