diff options
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/reshape_generic.c | 2 | ||||
| -rw-r--r-- | libgfortran/intrinsics/spread_generic.c | 2 | ||||
| -rw-r--r-- | libgfortran/intrinsics/transpose_generic.c | 2 | ||||
| -rw-r--r-- | libgfortran/intrinsics/unpack_generic.c | 2 |
8 files changed, 10 insertions, 10 deletions
diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index 61fd9016c9c..499991bacfa 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -148,7 +148,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 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 6152e9fccbd..0ab1d34dd67 100644 --- a/libgfortran/intrinsics/eoshift0.c +++ b/libgfortran/intrinsics/eoshift0.c @@ -80,7 +80,7 @@ eoshift0 (gfc_array_char * ret, const gfc_array_char * array, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 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 4e2b41ba7d3..1580bc2d53d 100644 --- a/libgfortran/intrinsics/eoshift2.c +++ b/libgfortran/intrinsics/eoshift2.c @@ -81,7 +81,7 @@ eoshift2 (gfc_array_char *ret, const gfc_array_char *array, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 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 06298bb23ef..00c55a889c1 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -201,7 +201,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, ret->dim[0].stride = 1; ret->data = internal_malloc_size (size * total); - ret->base = 0; + ret->offset = 0; if (total == 0) /* In this case, nothing remains to be done. */ @@ -342,7 +342,7 @@ pack_s (gfc_array_char *ret, const gfc_array_char *array, ret->dim[0].ubound = -1; ret->dim[0].stride = 1; ret->data = internal_malloc_size (0); - ret->base = 0; + ret->offset = 0; return; } @@ -354,7 +354,7 @@ pack_s (gfc_array_char *ret, const gfc_array_char *array, ret->dim[0].stride = 1; ret->data = internal_malloc_size (size * total); - ret->base = 0; + ret->offset = 0; } rstride0 = ret->dim[0].stride * size; diff --git a/libgfortran/intrinsics/reshape_generic.c b/libgfortran/intrinsics/reshape_generic.c index 75db5eafd24..265bfb99e63 100644 --- a/libgfortran/intrinsics/reshape_generic.c +++ b/libgfortran/intrinsics/reshape_generic.c @@ -100,7 +100,7 @@ reshape (parray *ret, parray *source, shape_type *shape, ret->dim[n].stride = rs; rs *= rex; } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size ( rs * size ); ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim; } diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c index 01152870688..f1035b0c533 100644 --- a/libgfortran/intrinsics/spread_generic.c +++ b/libgfortran/intrinsics/spread_generic.c @@ -105,7 +105,7 @@ spread (gfc_array_char *ret, const gfc_array_char *source, dim++; } } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size (rs * size); } else diff --git a/libgfortran/intrinsics/transpose_generic.c b/libgfortran/intrinsics/transpose_generic.c index 201e3e1e8cb..fd26e605345 100644 --- a/libgfortran/intrinsics/transpose_generic.c +++ b/libgfortran/intrinsics/transpose_generic.c @@ -69,7 +69,7 @@ transpose (gfc_array_char *ret, gfc_array_char *source) ret->dim[1].stride = ret->dim[0].ubound+1; ret->data = internal_malloc_size (size * size0 ((array_t*)ret)); - ret->base = 0; + ret->offset = 0; } sxstride = source->dim[0].stride * size; diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c index d8e1230a79c..929e1c36397 100644 --- a/libgfortran/intrinsics/unpack_generic.c +++ b/libgfortran/intrinsics/unpack_generic.c @@ -87,7 +87,7 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector, mstride[n] = mask->dim[n].stride; rs *= extent[n]; } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size (rs * size); } else |