/* Test case for early TLS initialization in dynamic linker.  */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <dlfcn.h>

#define MAGIC1 0xabcdef72

#define MAGIC2 0xd8675309

static __thread unsigned int magic[] = { MAGIC1, MAGIC2 };

static __thread int calloc_called;

#undef calloc

/* This calloc definition will be called by the dynamic linker itself.

   We test that interposed calloc is called by the dynamic loader, and

   that TLS is fully initialized by then.  */

void *

calloc (size_t n, size_t m)

{

  if (!calloc_called)

    {

      /* Allow our calloc to be called more than once.  */

      calloc_called = 1;

      if (magic[0] != MAGIC1 || magic[1] != MAGIC2)

	{

	  printf ("{%x, %x} != {%x, %x}\n",

		  magic[0], magic[1], MAGIC1, MAGIC2);

	  abort ();

	}

      magic[0] = MAGIC2;

      magic[1] = MAGIC1;

    }

  n *= m;

  void *ptr = malloc (n);

  if (ptr != NULL)

    memset (ptr, '\0', n);

  return ptr;

}

static int

do_test (void)

{

  /* Make sure that our calloc is called from the dynamic linker at least

     once.  */

  void *h = dlopen("$ORIGIN/tst-auditmod9b.so", RTLD_LAZY);

  if (h != NULL)

    dlclose (h);

  if (magic[1] != MAGIC1 || magic[0] != MAGIC2)

    {

      printf ("{%x, %x} != {%x, %x}\n", magic[0], magic[1], MAGIC2, MAGIC1);

      return 1;

    }

  return 0;

}

#include <support/test-driver.c>