1*38fd1498Szrj /* Copyright (C) 2005-2018 Free Software Foundation, Inc.
2*38fd1498Szrj Contributed by Richard Henderson <rth@redhat.com>.
3*38fd1498Szrj
4*38fd1498Szrj This file is part of the GNU Offloading and Multi Processing Library
5*38fd1498Szrj (libgomp).
6*38fd1498Szrj
7*38fd1498Szrj Libgomp is free software; you can redistribute it and/or modify it
8*38fd1498Szrj under the terms of the GNU General Public License as published by
9*38fd1498Szrj the Free Software Foundation; either version 3, or (at your option)
10*38fd1498Szrj any later version.
11*38fd1498Szrj
12*38fd1498Szrj Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
13*38fd1498Szrj WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14*38fd1498Szrj FOR A PARTICULAR PURPOSE. See the GNU General Public License for
15*38fd1498Szrj more details.
16*38fd1498Szrj
17*38fd1498Szrj Under Section 7 of GPL version 3, you are granted additional
18*38fd1498Szrj permissions described in the GCC Runtime Library Exception, version
19*38fd1498Szrj 3.1, as published by the Free Software Foundation.
20*38fd1498Szrj
21*38fd1498Szrj You should have received a copy of the GNU General Public License and
22*38fd1498Szrj a copy of the GCC Runtime Library Exception along with this program;
23*38fd1498Szrj see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
24*38fd1498Szrj <http://www.gnu.org/licenses/>. */
25*38fd1498Szrj
26*38fd1498Szrj /* This file contains wrappers for the system allocation routines. Most
27*38fd1498Szrj places in the OpenMP API do not make any provision for failure, so in
28*38fd1498Szrj general we cannot allow memory allocation to fail. */
29*38fd1498Szrj
30*38fd1498Szrj #include "libgomp.h"
31*38fd1498Szrj #include <stdlib.h>
32*38fd1498Szrj
33*38fd1498Szrj
34*38fd1498Szrj void *
gomp_malloc(size_t size)35*38fd1498Szrj gomp_malloc (size_t size)
36*38fd1498Szrj {
37*38fd1498Szrj void *ret = malloc (size);
38*38fd1498Szrj if (ret == NULL)
39*38fd1498Szrj gomp_fatal ("Out of memory allocating %lu bytes", (unsigned long) size);
40*38fd1498Szrj return ret;
41*38fd1498Szrj }
42*38fd1498Szrj
43*38fd1498Szrj void *
gomp_malloc_cleared(size_t size)44*38fd1498Szrj gomp_malloc_cleared (size_t size)
45*38fd1498Szrj {
46*38fd1498Szrj void *ret = calloc (1, size);
47*38fd1498Szrj if (ret == NULL)
48*38fd1498Szrj gomp_fatal ("Out of memory allocating %lu bytes", (unsigned long) size);
49*38fd1498Szrj return ret;
50*38fd1498Szrj }
51*38fd1498Szrj
52*38fd1498Szrj void *
gomp_realloc(void * old,size_t size)53*38fd1498Szrj gomp_realloc (void *old, size_t size)
54*38fd1498Szrj {
55*38fd1498Szrj void *ret = realloc (old, size);
56*38fd1498Szrj if (ret == NULL)
57*38fd1498Szrj gomp_fatal ("Out of memory allocating %lu bytes", (unsigned long) size);
58*38fd1498Szrj return ret;
59*38fd1498Szrj }
60