00001 /* Copyright (C) 2005, 2009 Free Software Foundation, Inc. 00002 Contributed by Richard Henderson <rth@redhat.com>. 00003 00004 This file is part of the GNU OpenMP Library (libgomp). 00005 00006 Libgomp is free software; you can redistribute it and/or modify it 00007 under the terms of the GNU General Public License as published by 00008 the Free Software Foundation; either version 3, or (at your option) 00009 any later version. 00010 00011 Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY 00012 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 00013 FOR A PARTICULAR PURPOSE. See the GNU General Public License for 00014 more details. 00015 00016 Under Section 7 of GPL version 3, you are granted additional 00017 permissions described in the GCC Runtime Library Exception, version 00018 3.1, as published by the Free Software Foundation. 00019 00020 You should have received a copy of the GNU General Public License and 00021 a copy of the GCC Runtime Library Exception along with this program; 00022 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see 00023 <http://www.gnu.org/licenses/>. */ 00024 00025 /* This file contains wrappers for the system allocation routines. Most 00026 places in the OpenMP API do not make any provision for failure, so in 00027 general we cannot allow memory allocation to fail. */ 00028 00029 #include "libgomp.h" 00030 #include <stdlib.h> 00031 00032 00033 void * 00034 gomp_malloc (size_t size) 00035 { 00036 void *ret = malloc (size); 00037 if (ret == NULL) 00038 gomp_fatal ("Out of memory allocating %lu bytes", (unsigned long) size); 00039 return ret; 00040 } 00041 00042 void * 00043 gomp_malloc_cleared (size_t size) 00044 { 00045 void *ret = calloc (1, size); 00046 if (ret == NULL) 00047 gomp_fatal ("Out of memory allocating %lu bytes", (unsigned long) size); 00048 return ret; 00049 } 00050 00051 void * 00052 gomp_realloc (void *old, size_t size) 00053 { 00054 void *ret = realloc (old, size); 00055 if (ret == NULL) 00056 gomp_fatal ("Out of memory allocating %lu bytes", (unsigned long) size); 00057 return ret; 00058 }