aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/libgfortran/generated/spread_r10.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.9/libgfortran/generated/spread_r10.c')
-rw-r--r--gcc-4.9/libgfortran/generated/spread_r10.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc-4.9/libgfortran/generated/spread_r10.c b/gcc-4.9/libgfortran/generated/spread_r10.c
index d43f74575..248186eb3 100644
--- a/gcc-4.9/libgfortran/generated/spread_r10.c
+++ b/gcc-4.9/libgfortran/generated/spread_r10.c
@@ -101,8 +101,8 @@ spread_r10 (gfc_array_r10 *ret, const gfc_array_r10 *source,
}
ret->offset = 0;
- /* xmalloc allocates a single byte for zero size. */
- ret->base_addr = xmalloc (rs * sizeof(GFC_REAL_10));
+ /* xmallocarray allocates a single byte for zero size. */
+ ret->base_addr = xmallocarray (rs, sizeof(GFC_REAL_10));
if (rs <= 0)
return;
}
@@ -244,7 +244,7 @@ spread_scalar_r10 (gfc_array_r10 *ret, const GFC_REAL_10 *source,
if (ret->base_addr == NULL)
{
- ret->base_addr = xmalloc (ncopies * sizeof (GFC_REAL_10));
+ ret->base_addr = xmallocarray (ncopies, sizeof (GFC_REAL_10));
ret->offset = 0;
GFC_DIMENSION_SET(ret->dim[0], 0, ncopies - 1, 1);
}