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
This commit is contained in:
parent
bddfe34a9e
commit
07d3cebe24
65 changed files with 220 additions and 121 deletions
|
@ -75,8 +75,10 @@ __sum_c8 (gfc_array_c8 * retarray, gfc_array_c8 *array, index_type *pdim)
|
|||
retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1];
|
||||
}
|
||||
|
||||
retarray->data = internal_malloc (sizeof (GFC_COMPLEX_8) *
|
||||
(retarray->dim[rank-1].stride * extent[rank-1]));
|
||||
retarray->data
|
||||
= internal_malloc_size (sizeof (GFC_COMPLEX_8)
|
||||
* retarray->dim[rank-1].stride
|
||||
* extent[rank-1]);
|
||||
retarray->base = 0;
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue