glibc/tests/Regression/bz868808-backtrace-for-recursive-functions/bt-tst.c
Sergey Kolosov ab4bc8a24e Extend the test coverage
Move some of the RHEL QE testcases upstream to Fedora.
2022-05-31 09:29:27 +02:00

60 lines
952 B
C

/* Originally copied from the example at `man 3 backtrace' as supplied by
the Linux man-pages project. */
#include <execinfo.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#define SIZE 100
void
last (void)
{
int j, nptrs;
void *buffer[SIZE];
char **strings;
nptrs = backtrace (buffer, SIZE);
strings = backtrace_symbols (buffer, nptrs);
if (strings == NULL)
{
perror ("backtrace_symbols");
exit (EXIT_FAILURE);
}
for (j = 0; j < nptrs; j++)
printf ("%s\n", strings[j]);
free (strings);
}
static void /* "static" means don't export the symbol... */
penultimate (void)
{
last ();
}
void
recursive (int ncalls)
{
if (ncalls > 1)
recursive (ncalls - 1);
else
penultimate ();
}
int
main (int argc, char *argv[])
{
if (argc != 2)
{
fprintf (stderr, "%s num-calls\n", argv[0]);
exit (EXIT_FAILURE);
}
recursive (atoi (argv[1]));
exit (EXIT_SUCCESS);
}