diff options
| author | Richard Henderson <rth@redhat.com> | 2004-12-06 16:24:44 -0800 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2004-12-06 16:24:44 -0800 |
| commit | 07d3cebe24d2923070ec831e8a05d9ba6e4dd5e8 (patch) | |
| tree | defa1551d9862ff60013fe4df19dc7cda888e6f2 /libgfortran/intrinsics | |
| parent | bddfe34a9e8934560a6b551fcb0981a2965d35c0 (diff) | |
| download | gcc-07d3cebe24d2923070ec831e8a05d9ba6e4dd5e8.zip gcc-07d3cebe24d2923070ec831e8a05d9ba6e4dd5e8.tar.gz gcc-07d3cebe24d2923070ec831e8a05d9ba6e4dd5e8.tar.bz2 | |
cshift0.c, [...]: Use internal_malloc_size instead of internal_malloc.
* intrinsics/cshift0.c, intrinsics/eoshift0.c, intrinsics/eoshift2.c,
intrinsics/pack_generic.c, intrinsics/string_intrinsics.c,
intrinsics/transpose_generic.c, m4/ifunction.m4, m4/matmul.m4,
m4/matmull.m4, m4/transpose.m4: Use internal_malloc_size instead
of internal_malloc.
* generated/*: Rebuild.
From-SVN: r91799
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/cshift0.c | 2 | ||||
| -rw-r--r-- | libgfortran/intrinsics/eoshift0.c | 2 | ||||
| -rw-r--r-- | libgfortran/intrinsics/eoshift2.c | 2 | ||||
| -rw-r--r-- | libgfortran/intrinsics/pack_generic.c | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/string_intrinsics.c | 2 | ||||
| -rw-r--r-- | libgfortran/intrinsics/transpose_generic.c | 2 |
6 files changed, 8 insertions, 8 deletions
diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index a988827..6d7a801 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -109,7 +109,7 @@ __cshift0 (gfc_array_char * ret, const gfc_array_char * array, { int i; - ret->data = internal_malloc (size * size0 ((array_t *)array)); + ret->data = internal_malloc_size (size * size0 ((array_t *)array)); ret->base = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c index 2f7a033..db9dd657 100644 --- a/libgfortran/intrinsics/eoshift0.c +++ b/libgfortran/intrinsics/eoshift0.c @@ -64,7 +64,7 @@ __eoshift0 (gfc_array_char * ret, const gfc_array_char * array, { int i; - ret->data = internal_malloc (size * size0 ((array_t *)array)); + ret->data = internal_malloc_size (size * size0 ((array_t *)array)); ret->base = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) diff --git a/libgfortran/intrinsics/eoshift2.c b/libgfortran/intrinsics/eoshift2.c index c89c5c5..a20da55 100644 --- a/libgfortran/intrinsics/eoshift2.c +++ b/libgfortran/intrinsics/eoshift2.c @@ -65,7 +65,7 @@ __eoshift2 (gfc_array_char * ret, const gfc_array_char * array, { int i; - ret->data = internal_malloc (size * size0 ((array_t *)array)); + ret->data = internal_malloc_size (size * size0 ((array_t *)array)); ret->base = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index da0bc57..75a8661 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -188,7 +188,7 @@ __pack (gfc_array_char * ret, const gfc_array_char * array, ret->dim[0].ubound = total - 1; ret->dim[0].stride = 1; - ret->data = internal_malloc (size * total); + ret->data = internal_malloc_size (size * total); ret->base = 0; if (total == 0) @@ -325,7 +325,7 @@ __pack_s (gfc_array_char * ret, const gfc_array_char * array, ret->dim[0].lbound = 0; ret->dim[0].ubound = -1; ret->dim[0].stride = 1; - ret->data = internal_malloc (0); + ret->data = internal_malloc_size (0); ret->base = 0; return; @@ -337,7 +337,7 @@ __pack_s (gfc_array_char * ret, const gfc_array_char * array, ret->dim[0].ubound = total - 1; ret->dim[0].stride = 1; - ret->data = internal_malloc (size * total); + ret->data = internal_malloc_size (size * total); ret->base = 0; } diff --git a/libgfortran/intrinsics/string_intrinsics.c b/libgfortran/intrinsics/string_intrinsics.c index 53d9b4e..faacaab 100644 --- a/libgfortran/intrinsics/string_intrinsics.c +++ b/libgfortran/intrinsics/string_intrinsics.c @@ -184,7 +184,7 @@ string_trim (GFC_INTEGER_4 * len, void ** dest, GFC_INTEGER_4 slen, if (*len > 0) { /* Allocate space for result string. */ - *dest = internal_malloc (*len); + *dest = internal_malloc_size (*len); /* copy string if necessary. */ memmove (*dest, src, *len); diff --git a/libgfortran/intrinsics/transpose_generic.c b/libgfortran/intrinsics/transpose_generic.c index ad08ea7..55d2729 100644 --- a/libgfortran/intrinsics/transpose_generic.c +++ b/libgfortran/intrinsics/transpose_generic.c @@ -56,7 +56,7 @@ __transpose (gfc_array_char * ret, gfc_array_char * source) ret->dim[1].ubound = source->dim[0].ubound - source->dim[0].lbound; ret->dim[1].stride = ret->dim[0].ubound+1; - ret->data = internal_malloc (size * size0 ((array_t*)ret)); + ret->data = internal_malloc_size (size * size0 ((array_t*)ret)); ret->base = 0; } |