aboutsummaryrefslogtreecommitdiff
path: root/debug/pcprofiledump.c
diff options
context:
space:
mode:
Diffstat (limited to 'debug/pcprofiledump.c')
-rw-r--r--debug/pcprofiledump.c187
1 files changed, 187 insertions, 0 deletions
diff --git a/debug/pcprofiledump.c b/debug/pcprofiledump.c
new file mode 100644
index 0000000000..2d20a88b9f
--- /dev/null
+++ b/debug/pcprofiledump.c
@@ -0,0 +1,187 @@
+/* Dump information generating by PC profiling.
+ Copyright (C) 1999 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Ulrich Drepper <drepper@cygnus.com>, 1999.
+
+ The GNU C Library 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 of the
+ License, or (at your option) any later version.
+
+ The GNU C Library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Library General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with the GNU C Library; see the file COPYING.LIB. If not,
+ write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
+
+/* This is mainly and example. It shows how programs which want to use
+ the information should read the file. */
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <argp.h>
+#include <byteswap.h>
+#include <errno.h>
+#include <error.h>
+#include <fcntl.h>
+#include <inttypes.h>
+#include <libintl.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+
+#include "../version.h"
+
+
+#ifndef _
+# define _(Str) gettext (Str)
+#endif
+
+#ifndef N_
+# define N_(Str) Str
+#endif
+
+/* Definitions of arguments for argp functions. */
+static const struct argp_option options[] =
+{
+ { NULL, 0, NULL, 0, NULL }
+};
+
+/* Short description of program. */
+static const char doc[] = N_("Dump information generating by PC profiling.");
+
+/* Strings for arguments in help texts. */
+static const char args_doc[] = N_("[FILE]");
+
+/* Function to print some extra text in the help message. */
+static char *more_help (int key, const char *text, void *input);
+
+/* Data structure to communicate with argp functions. */
+static struct argp argp =
+{
+ options, NULL, args_doc, doc, NULL, more_help
+};
+
+
+int
+main (int argc, char *argv[])
+{
+ int fd;
+ int remaining;
+ int must_swap;
+ uint32_t word;
+
+ /* Parse and process arguments. */
+ argp_parse (&argp, argc, argv, 0, &remaining, NULL);
+
+ if (remaining == argc)
+ fd = STDIN_FILENO;
+ else if (remaining + 1 != argc)
+ {
+ argp_help (&argp, stdout, ARGP_HELP_SEE | ARGP_HELP_EXIT_ERR,
+ program_invocation_short_name);
+ exit (1);
+ }
+ else
+ {
+ /* Open the given file. */
+ fd = open (argv[remaining], O_RDONLY);
+
+ if (fd == -1)
+ error (EXIT_FAILURE, errno, _("cannot open input file"));
+ }
+
+ /* Read the first 4-byte word. It contains the information about
+ the word size and the endianess. */
+ if (TEMP_FAILURE_RETRY (read (fd, &word, 4)) != 4)
+ error (EXIT_FAILURE, errno, _("cannot read header"));
+
+ /* Check whether we have to swap the byte order. */
+ must_swap = (word & 0xfffffff0) == bswap_32 (0xdeb00000);
+ if (must_swap)
+ word = bswap_32 (word);
+
+ /* We have two loops, one for 32 bit pointers, one for 64 bit pointers. */
+ if (word == 0xdeb00004)
+ {
+ union
+ {
+ uint32_t ptrs[2];
+ char bytes[8];
+ } pair;
+
+ while (1)
+ {
+ size_t len = sizeof (pair);
+ size_t n;
+
+ while (len > 0
+ && (n = TEMP_FAILURE_RETRY (read (fd, &pair.bytes[8 - len],
+ len))) != 0)
+ len -= n;
+
+ if (len != 0)
+ /* Nothing to read. */
+ break;
+
+ printf ("this = %#010" PRIx32 ", caller = %#010" PRIx32 "\n",
+ must_swap ? bswap_32 (pair.ptrs[0]) : pair.ptrs[0],
+ must_swap ? bswap_32 (pair.ptrs[1]) : pair.ptrs[1]);
+ }
+ }
+ else if (word == 0xdeb00008)
+ {
+ union
+ {
+ uint64_t ptrs[2];
+ char bytes[16];
+ } pair;
+
+ while (1)
+ {
+ size_t len = sizeof (pair);
+ size_t n;
+
+ while (len > 0
+ && (n = TEMP_FAILURE_RETRY (read (fd, &pair.bytes[8 - len],
+ len))) != 0)
+ len -= n;
+
+ if (len != 0)
+ /* Nothing to read. */
+ break;
+
+ printf ("this = %#018" PRIx64 ", caller = %#018" PRIx64 "\n",
+ must_swap ? bswap_64 (pair.ptrs[0]) : pair.ptrs[0],
+ must_swap ? bswap_64 (pair.ptrs[1]) : pair.ptrs[1]);
+ }
+ }
+ else
+ /* This should not happen. */
+ error (EXIT_FAILURE, 0, _("invalid pointer size"));
+
+ /* Clean up. */
+ close (fd);
+
+ return 0;
+}
+
+static char *
+more_help (int key, const char *text, void *input)
+{
+ switch (key)
+ {
+ case ARGP_KEY_HELP_EXTRA:
+ /* We print some extra information. */
+ return strdup (gettext ("\
+Report bugs using the `glibcbug' script to <bugs@gnu.org>.\n"));
+ default:
+ break;
+ }
+ return (char *) text;
+}