ap/libc/glibc/glibc-2.23/sysdeps/powerpc/tst-tlsopt-powerpc.c

/* glibc test for __tls_get_addr optimization.  */
#include <stdio.h>

#include "../../elf/tls-macros.h"
#include "dl-tls.h"

/* common 'int' variable in TLS.  */
COMMON_INT_DEF(foo);


#define TEST_FUNCTION do_test ()
static int
do_test (void)
{
  int result = 0;

  /* Get variable using general dynamic model.  */
  int *ap = TLS_GD (foo);
  if (*ap != 0)
    {
      printf ("foo = %d\n", *ap);
      result = 1;
    }

  tls_index *tls_arg;
#ifdef __powerpc64__
  register unsigned long thread_pointer __asm__ ("r13");
  asm ("addi %0,2,foo@got@tlsgd" : "=r" (tls_arg));
#else
  register unsigned long thread_pointer __asm__ ("r2");
  asm ("bcl 20,31,1f\n1:\t"
       "mflr %0\n\t"
       "addis %0,%0,_GLOBAL_OFFSET_TABLE_-1b@ha\n\t"
       "addi %0,%0,_GLOBAL_OFFSET_TABLE_-1b@l\n\t"
       "addi %0,%0,foo@got@tlsgd" : "=b" (tls_arg));
#endif

  if (tls_arg->ti_module != 0)
    {
      printf ("tls_index not optimized, binutils too old?\n");
      result = 1;
    }
  else if (tls_arg->ti_offset + thread_pointer != (unsigned long) ap)
    {
      printf ("tls_index->ti_offset wrong value\n");
      result = 1;
    }

  return result;
}

#include "../../test-skeleton.c"