Updated to fedora-glibc-20080612T1619
[glibc.git] / debug / pcprofiledump.c
blob62c0d73f40e3de064fee3c85f2d9da5f991d4fd2
1 /* Dump information generated by PC profiling.
2 Copyright (C) 1999, 2002, 2007 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1999.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, write to the Free
18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19 02111-1307 USA. */
21 /* This is mainly an example. It shows how programs which want to use
22 the information should read the file. */
23 #ifdef HAVE_CONFIG_H
24 # include <config.h>
25 #endif
27 #include <argp.h>
28 #include <byteswap.h>
29 #include <errno.h>
30 #include <error.h>
31 #include <fcntl.h>
32 #include <inttypes.h>
33 #include <libintl.h>
34 #include <stdlib.h>
35 #include <string.h>
36 #include <unistd.h>
38 #include "../version.h"
40 #define PACKAGE _libc_intl_domainname
42 #ifndef _
43 # define _(Str) gettext (Str)
44 #endif
46 #ifndef N_
47 # define N_(Str) Str
48 #endif
50 /* Definitions of arguments for argp functions. */
51 static const struct argp_option options[] =
53 { "unbuffered", 'u', NULL, 0, N_("Don't buffer output") },
54 { NULL, 0, NULL, 0, NULL }
57 /* Short description of program. */
58 static const char doc[] = N_("Dump information generated by PC profiling.");
60 /* Strings for arguments in help texts. */
61 static const char args_doc[] = N_("[FILE]");
63 /* Function to print some extra text in the help message. */
64 static char *more_help (int key, const char *text, void *input);
66 /* Prototype for option handler. */
67 static error_t parse_opt (int key, char *arg, struct argp_state *state);
69 /* Data structure to communicate with argp functions. */
70 static struct argp argp =
72 options, parse_opt, args_doc, doc, NULL, more_help
76 int
77 main (int argc, char *argv[])
79 /* Set locale via LC_ALL. */
80 setlocale (LC_ALL, "");
82 /* Set the text message domain. */
83 textdomain (PACKAGE);
85 /* Parse and process arguments. */
86 int remaining;
87 argp_parse (&argp, argc, argv, 0, &remaining, NULL);
89 int fd;
90 if (remaining == argc)
91 fd = STDIN_FILENO;
92 else if (remaining + 1 != argc)
94 argp_help (&argp, stdout, ARGP_HELP_SEE | ARGP_HELP_EXIT_ERR,
95 program_invocation_short_name);
96 exit (1);
98 else
100 /* Open the given file. */
101 fd = open (argv[remaining], O_RDONLY);
103 if (fd == -1)
104 error (EXIT_FAILURE, errno, _("cannot open input file"));
107 /* Read the first 4-byte word. It contains the information about
108 the word size and the endianess. */
109 uint32_t word;
110 if (TEMP_FAILURE_RETRY (read (fd, &word, 4)) != 4)
111 error (EXIT_FAILURE, errno, _("cannot read header"));
113 /* Check whether we have to swap the byte order. */
114 int must_swap = (word & 0xfffffff0) == bswap_32 (0xdeb00000);
115 if (must_swap)
116 word = bswap_32 (word);
118 /* We have two loops, one for 32 bit pointers, one for 64 bit pointers. */
119 if (word == 0xdeb00004)
121 union
123 uint32_t ptrs[2];
124 char bytes[8];
125 } pair;
127 while (1)
129 size_t len = sizeof (pair);
130 size_t n;
132 while (len > 0
133 && (n = TEMP_FAILURE_RETRY (read (fd, &pair.bytes[8 - len],
134 len))) != 0)
135 len -= n;
137 if (len != 0)
138 /* Nothing to read. */
139 break;
141 printf ("this = %#010" PRIx32 ", caller = %#010" PRIx32 "\n",
142 must_swap ? bswap_32 (pair.ptrs[0]) : pair.ptrs[0],
143 must_swap ? bswap_32 (pair.ptrs[1]) : pair.ptrs[1]);
146 else if (word == 0xdeb00008)
148 union
150 uint64_t ptrs[2];
151 char bytes[16];
152 } pair;
154 while (1)
156 size_t len = sizeof (pair);
157 size_t n;
159 while (len > 0
160 && (n = TEMP_FAILURE_RETRY (read (fd, &pair.bytes[8 - len],
161 len))) != 0)
162 len -= n;
164 if (len != 0)
165 /* Nothing to read. */
166 break;
168 printf ("this = %#018" PRIx64 ", caller = %#018" PRIx64 "\n",
169 must_swap ? bswap_64 (pair.ptrs[0]) : pair.ptrs[0],
170 must_swap ? bswap_64 (pair.ptrs[1]) : pair.ptrs[1]);
173 else
174 /* This should not happen. */
175 error (EXIT_FAILURE, 0, _("invalid pointer size"));
177 /* Clean up. */
178 close (fd);
180 return 0;
183 static error_t
184 parse_opt (int key, char *arg, struct argp_state *state)
186 switch (key)
188 case 'u':
189 setbuf (stdout, NULL);
190 break;
191 default:
192 return ARGP_ERR_UNKNOWN;
194 return 0;
197 static char *
198 more_help (int key, const char *text, void *input)
200 switch (key)
202 case ARGP_KEY_HELP_EXTRA:
203 /* We print some extra information. */
204 return strdup (gettext ("\
205 For bug reporting instructions, please see:\n\
206 <http://www.gnu.org/software/libc/bugs.html>.\n"));
207 default:
208 break;
210 return (char *) text;