diff options
author | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-07 00:24:44 +0000 |
---|---|---|
committer | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-07 00:24:44 +0000 |
commit | ae48a63d5a3115bd99ef7384f28224be62fee055 (patch) | |
tree | defa1551d9862ff60013fe4df19dc7cda888e6f2 /libgfortran/intrinsics/pack_generic.c | |
parent | 7a93e04c36dd65fab3657984a5440663afb3953a (diff) | |
download | ppe42-gcc-ae48a63d5a3115bd99ef7384f28224be62fee055.tar.gz ppe42-gcc-ae48a63d5a3115bd99ef7384f28224be62fee055.zip |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@91799 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics/pack_generic.c')
-rw-r--r-- | libgfortran/intrinsics/pack_generic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index da0bc579827..75a8661ba8f 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; } |