libsframe/testsuite/libsframe.stacktrace/stacktrace-3.c

/* Copyright (C) 2022 Free Software Foundation, Inc.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3 of the License, or
   (at your option) any later version.

   This program 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 General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

/* This is the revised version of the example in "man backtrace".  */

#include <execinfo.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "sframe-stacktrace-api.h"

#ifdef __has_attribute
# if !__has_attribute (noclone)
#  define ATTRIBUTE_NOCLONE
# endif
#endif
#ifndef ATTRIBUTE_NOCLONE
# define ATTRIBUTE_NOCLONE __attribute__((noclone))
#endif

#define BT_BUF_SIZE 100

/* funclist  */
static const char *const func_list[] =
{
  "myfunc3",
  "()",
  "myfunc",
  "myfunc",
  "myfunc",
  "main"
};

void myfunc3 (void)
{
  void *buffer[BT_BUF_SIZE];
  int j, nptrs, err;
  char **strings;

  /* Call the unwinder to get an array of return addresses.  */
  nptrs = sframe_stacktrace (buffer, BT_BUF_SIZE, &err);
  if (nptrs == -1 || nptrs != 6)
    {
      printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs);
      return;
    }

  /* Get these addresses symbolically.  */
  strings = backtrace_symbols (buffer, nptrs);
  if (strings == NULL) {
    printf ("Error in backtrace_symbols");
    return;
  }

  /* Verify the results.  */
  for (j = 0; j < nptrs; j++)
    if (!strstr (strings[j], func_list[j]))
      break;

  free(strings);

  printf ("%s: stacktrace with static function\n",
	  (j == nptrs) ? "PASS" : "FAIL");
}

static void __attribute__((__noinline__)) ATTRIBUTE_NOCLONE
/* "static" means don't export the symbol.  */
myfunc2 (void)
{
  void *buffer[BT_BUF_SIZE];
  int nptrs, err;

  /* Call the unwinder to get an array of return addresses.  */
  nptrs = sframe_stacktrace (buffer, BT_BUF_SIZE, &err);
  if (nptrs == -1)
    {
      printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs);
      return;
    }

  myfunc3 ();
}

void __attribute__((__noinline__)) ATTRIBUTE_NOCLONE
myfunc (int ncalls)
{
  void *buffer[BT_BUF_SIZE];
  int nptrs, err;

  /* Call the unwinder to get an array of return addresses.  */
  nptrs = sframe_stacktrace (buffer, BT_BUF_SIZE, &err);
  if (nptrs == -1)
    {
      printf ("SFrame error: %s (%d)\n", sframe_bt_errmsg (err), nptrs);
      return;
    }

  if (ncalls > 1)
    myfunc (ncalls - 1);
  else
    myfunc2 ();
}

int
main (int argc, char *argv[])
{
  int cnt;
  if (argc != 2) {
    cnt = 3;
  }
  else
    cnt = atoi(argv[1]);
  myfunc (cnt);
  exit (EXIT_SUCCESS);
}