diff options
author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-05-26 20:56:45 +0000 |
---|---|---|
committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-05-26 20:56:45 +0000 |
commit | 3e52c8225a7f45bd867b4a320c74209845e2226d (patch) | |
tree | 3876dc747d154274cf385e6bca409643f21a1cae /libgfortran/runtime | |
parent | 031b9c5cfc1da67fba90780865fe5a0e98d2e294 (diff) |
Introduce xrealloc, use it.
2014-05-26 Janne Blomqvist <jb@gcc.gnu.org>
* libgfortran.h (xrealloc): New prototype.
* runtime/memory.c (xrealloc): New function.
* io/fbuf.c (fbuf_alloc): Use xrealloc.
* io/list_read.c (push_char_default): Likewise.
(push_char4): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@210948 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/runtime')
-rw-r--r-- | libgfortran/runtime/memory.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/libgfortran/runtime/memory.c b/libgfortran/runtime/memory.c index efeea86f15a..b18b50532c7 100644 --- a/libgfortran/runtime/memory.c +++ b/libgfortran/runtime/memory.c @@ -58,3 +58,17 @@ xcalloc (size_t nmemb, size_t size) return p; } + + +void * +xrealloc (void *ptr, size_t size) +{ + if (size == 0) + size = 1; + + void *newp = realloc (ptr, size); + if (!newp) + os_error ("Memory allocation failure in xrealloc"); + + return newp; +} |