1  /* Memory handling for the scope data structures.
       2     Copyright (C) 2009-2023 Free Software Foundation, Inc.
       3     This file is part of the GNU C Library.
       4  
       5     The GNU C Library is free software; you can redistribute it and/or
       6     modify it under the terms of the GNU Lesser General Public
       7     License as published by the Free Software Foundation; either
       8     version 2.1 of the License, or (at your option) any later version.
       9  
      10     The GNU C Library is distributed in the hope that it will be useful,
      11     but WITHOUT ANY WARRANTY; without even the implied warranty of
      12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      13     Lesser General Public License for more details.
      14  
      15     You should have received a copy of the GNU Lesser General Public
      16     License along with the GNU C Library; if not, see
      17     <https://www.gnu.org/licenses/>.  */
      18  
      19  #include <stdlib.h>
      20  #include <ldsodefs.h>
      21  #include <sysdep-cancel.h>
      22  
      23  
      24  int
      25  _dl_scope_free (void *old)
      26  {
      27    struct dl_scope_free_list *fsl;
      28  #define DL_SCOPE_FREE_LIST_SIZE (sizeof (fsl->list) / sizeof (fsl->list[0]))
      29  
      30    if (RTLD_SINGLE_THREAD_P)
      31      free (old);
      32    else if ((fsl = GL(dl_scope_free_list)) == NULL)
      33      {
      34        GL(dl_scope_free_list) = fsl = malloc (sizeof (*fsl));
      35        if (fsl == NULL)
      36  	{
      37  	  THREAD_GSCOPE_WAIT ();
      38  	  free (old);
      39  	  return 1;
      40  	}
      41        else
      42  	{
      43  	  fsl->list[0] = old;
      44  	  fsl->count = 1;
      45  	}
      46      }
      47    else if (fsl->count < DL_SCOPE_FREE_LIST_SIZE)
      48      fsl->list[fsl->count++] = old;
      49    else
      50      {
      51        THREAD_GSCOPE_WAIT ();
      52        while (fsl->count > 0)
      53  	free (fsl->list[--fsl->count]);
      54        return 1;
      55      }
      56    return 0;
      57  }