diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-04-22 15:33:01 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-04-22 15:33:01 +0000 |
| commit | 1d9ee8a89ae88befe5572a65b997cd84241c196f (patch) | |
| tree | 646e5ae6929d675514204ffba97ecc64f6157a31 /libgfortran/generated/spread_r8.c | |
| parent | 0972cc307e81708c54bd5b89c91fe99a84c65d73 (diff) | |
| parent | 3c64f1347227c8aceae1822bc66659d861596fc4 (diff) | |
| download | gcc-1d9ee8a89ae88befe5572a65b997cd84241c196f.tar.gz | |
2012-04-22 Tobias Burnus <burnus@net-b.de>
* Merged Revs. 185177 through 186673 from the trunk.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/fortran-dev@186674 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/generated/spread_r8.c')
| -rw-r--r-- | libgfortran/generated/spread_r8.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/generated/spread_r8.c b/libgfortran/generated/spread_r8.c index 6a2c896dfdc..3d38fd6b1cd 100644 --- a/libgfortran/generated/spread_r8.c +++ b/libgfortran/generated/spread_r8.c @@ -101,8 +101,8 @@ spread_r8 (gfc_array_r8 *ret, const gfc_array_r8 *source, } ret->offset = 0; - /* internal_malloc_size allocates a single byte for zero size. */ - ret->base_addr = internal_malloc_size (rs * sizeof(GFC_REAL_8)); + /* xmalloc allocates a single byte for zero size. */ + ret->base_addr = xmalloc (rs * sizeof(GFC_REAL_8)); if (rs <= 0) return; } @@ -244,7 +244,7 @@ spread_scalar_r8 (gfc_array_r8 *ret, const GFC_REAL_8 *source, if (ret->base_addr == NULL) { - ret->base_addr = internal_malloc_size (ncopies * sizeof (GFC_REAL_8)); + ret->base_addr = xmalloc (ncopies * sizeof (GFC_REAL_8)); ret->offset = 0; GFC_DIMENSION_SET(ret->dim[0], 0, ncopies, sizeof (GFC_REAL_8)); } |