sdcc/support/regression/tests/gcc-torture-execute-pr41750.c

   1 /*
   2    pr41750.c from the execute part of the gcc torture tests.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #endif
  10
  11 /* PR 41750 - IPA-SRA used to pass hash->sgot by value rather than by
  12    reference.  */
  13
  14 struct bfd_link_hash_table
  15 {
  16   int hash;
  17 };
  18
  19 struct foo_link_hash_table
  20 {
  21   struct bfd_link_hash_table root;
  22   int *dynobj;
  23   int *sgot;
  24 };
  25
  26 struct foo_link_info
  27 {
  28   struct foo_link_hash_table *hash;
  29 };
  30
  31 extern void abort (void);
  32
  33 int
  34 foo_create_got_section (int *abfd, struct foo_link_info *info)
  35 {
  36   info->hash->sgot = abfd;
  37   return 1;
  38 }
  39
  40 static int *
  41 get_got (int *abfd, struct foo_link_info *info,
  42          struct foo_link_hash_table *hash)
  43 {
  44   int *got;
  45   int *dynobj;
  46
  47   got = hash->sgot;
  48   if (!got)
  49     {
  50       dynobj = hash->dynobj;
  51       if (!dynobj)
  52         hash->dynobj = dynobj = abfd;
  53       if (!foo_create_got_section (dynobj, info))
  54         return 0;
  55       got = hash->sgot;
  56     }
  57   return got;
  58 }
  59
  60 int *
  61 elf64_ia64_check_relocs (int *abfd, struct foo_link_info *info)
  62 {
  63   return get_got (abfd, info, info->hash);
  64 }
  65
  66 struct foo_link_info link_info;
  67 struct foo_link_hash_table hash;
  68 int abfd;
  69
  70 void
  71 testTortureExecute (void)
  72 {
  73   link_info.hash = &hash;
  74   if (elf64_ia64_check_relocs (&abfd, &link_info) != &abfd)
  75     ASSERT (0);
  76   return;
  77 }
  78