libitm/util.cc

   1 /* Copyright (C) 2009-2023 Free Software Foundation, Inc.
   2    Contributed by Richard Henderson <rth@redhat.com>.
   3
   4    This file is part of the GNU Transactional Memory Library (libitm).
   5
   6    Libitm is free software; you can redistribute it and/or modify it
   7    under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 3 of the License, or
   9    (at your option) any later version.
  10
  11    Libitm is distributed in the hope that it will be useful, but WITHOUT ANY
  12    WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  13    FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
  14    more details.
  15
  16    Under Section 7 of GPL version 3, you are granted additional
  17    permissions described in the GCC Runtime Library Exception, version
  18    3.1, as published by the Free Software Foundation.
  19
  20    You should have received a copy of the GNU General Public License and
  21    a copy of the GCC Runtime Library Exception along with this program;
  22    see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  23    <http://www.gnu.org/licenses/>.  */
  24
  25 #include "libitm_i.h"
  26 #include <stdarg.h>
  27 #include <stdio.h>
  28
  29 namespace GTM HIDDEN {
  30
  31 static void
  32 gtm_verror (const char *fmt, va_list list)
  33 {
  34   fputs ("\nlibitm: ", stderr);
  35   vfprintf (stderr, fmt, list);
  36   fputc ('\n', stderr);
  37 }
  38
  39 void
  40 GTM_error (const char *fmt, ...)
  41 {
  42   va_list list;
  43
  44   va_start (list, fmt);
  45   gtm_verror (fmt, list);
  46   va_end (list);
  47 }
  48
  49 void
  50 GTM_fatal (const char *fmt, ...)
  51 {
  52   va_list list;
  53
  54   va_start (list, fmt);
  55   gtm_verror (fmt, list);
  56   va_end (list);
  57
  58   exit (EXIT_FAILURE);
  59 }
  60
  61 void *
  62 xmalloc (size_t size, bool separate_cl)
  63 {
  64   void *r;
  65 #ifdef HAVE_POSIX_MEMALIGN
  66   if (separate_cl)
  67     {
  68       if (posix_memalign (&r, HW_CACHELINE_SIZE, size))
  69         GTM_fatal ("Out of memory allocating %lu bytes aligned on cache line",
  70                    (unsigned long) size);
  71     }
  72   else
  73 #endif
  74     {
  75       r = malloc (size);
  76       if (r == 0)
  77         GTM_fatal ("Out of memory allocating %lu bytes",
  78                    (unsigned long) size);
  79     }
  80   return r;
  81 }
  82
  83 void *
  84 xcalloc (size_t size, bool separate_cl)
  85 {
  86   // TODO Use posix_memalign if separate_cl is true, or some other allocation
  87   // method that will avoid sharing cache lines with data used by other
  88   // threads.
  89   void *r = calloc (1, size);
  90   if (r == 0)
  91     GTM_fatal ("Out of memory allocating %lu bytes", (unsigned long) size);
  92   return r;
  93 }
  94
  95 void *
  96 xrealloc (void *old, size_t size, bool separate_cl)
  97 {
  98   // TODO Use posix_memalign if separate_cl is true, or some other allocation
  99   // method that will avoid sharing cache lines with data used by other
 100   // threads.
 101   void *r = realloc (old, size);
 102   if (r == 0)
 103     GTM_fatal ("Out of memory allocating %lu bytes", (unsigned long) size);
 104   return r;
 105 }
 106
 107 } // namespace GTM