1  /* Copyright (C) 2003-2023 Free Software Foundation, Inc.
       2     This file is part of the GNU C Library.
       3  
       4     The GNU C Library is free software; you can redistribute it and/or
       5     modify it under the terms of the GNU Lesser General Public
       6     License as published by the Free Software Foundation; either
       7     version 2.1 of the License, or (at your option) any later version.
       8  
       9     The GNU C Library is distributed in the hope that it will be useful,
      10     but WITHOUT ANY WARRANTY; without even the implied warranty of
      11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      12     Lesser General Public License for more details.
      13  
      14     You should have received a copy of the GNU Lesser General Public
      15     License along with the GNU C Library; if not, see
      16     <https://www.gnu.org/licenses/>.  */
      17  
      18  #include <stdbool.h>
      19  #include <stdio.h>
      20  #include <tst-stack-align.h>
      21  #include <unistd.h>
      22  
      23  static int res, *fdp;
      24  static bool *test_destructorsp;
      25  
      26  static void __attribute__((constructor))
      27  con (void)
      28  {
      29    res = TEST_STACK_ALIGN () ? -1 : 1;
      30  }
      31  
      32  void
      33  in_dso (int *result, bool *test_destructors, int *fd)
      34  {
      35    if (!res)
      36      {
      37        puts ("constructor has not been run");
      38        *result = 1;
      39      }
      40    else if (res != 1)
      41      {
      42        puts ("constructor has been run without sufficient alignment");
      43        *result = 1;
      44      }
      45  
      46    test_destructorsp = test_destructors;
      47    fdp = fd;
      48  }
      49  
      50  static void __attribute__((destructor))
      51  des (void)
      52  {
      53    if (!test_destructorsp || !*test_destructorsp)
      54      return;
      55  
      56    char c = TEST_STACK_ALIGN () ? 'D' : 'C';
      57    write (*fdp, &c, 1);
      58  }