diff options
Diffstat (limited to 'libgfortran/generated/pack_r8.c')
| -rw-r--r-- | libgfortran/generated/pack_r8.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libgfortran/generated/pack_r8.c b/libgfortran/generated/pack_r8.c index baf4582af9a..56ea2df1cf5 100644 --- a/libgfortran/generated/pack_r8.c +++ b/libgfortran/generated/pack_r8.c @@ -103,7 +103,7 @@ pack_r8 (gfc_array_r8 *ret, const gfc_array_r8 *array, /* Use the same loop for all logical types, by using GFC_LOGICAL_1 and using shifting to address size and endian issues. */ - mask_kind = GFC_DESCRIPTOR_SIZE (mask); + mask_kind = GFC_DESCRIPTOR_ELEM_LEN (mask); if (mask_kind == 1 || mask_kind == 2 || mask_kind == 4 || mask_kind == 8 #ifdef HAVE_GFC_LOGICAL_16 @@ -125,8 +125,8 @@ pack_r8 (gfc_array_r8 *ret, const gfc_array_r8 *array, extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) zero_sized = 1; - sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n); - mstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(mask,n); + sstride[n] = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(array,n); + mstride[n] = GFC_DESCRIPTOR_SM(mask,n); } if (sstride[0] == 0) sstride[0] = 1; @@ -163,7 +163,7 @@ pack_r8 (gfc_array_r8 *ret, const gfc_array_r8 *array, if (ret->base_addr == NULL) { /* Setup the array descriptor. */ - GFC_DIMENSION_SET(ret->dim[0], 0, total-1, 1); + GFC_DIMENSION_SET(ret->dim[0], 0, total, sizeof (GFC_REAL_8)); ret->offset = 0; @@ -186,7 +186,7 @@ pack_r8 (gfc_array_r8 *ret, const gfc_array_r8 *array, } } - rstride0 = GFC_DESCRIPTOR_STRIDE(ret,0); + rstride0 = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(ret,0); if (rstride0 == 0) rstride0 = 1; sstride0 = sstride[0]; @@ -239,7 +239,7 @@ pack_r8 (gfc_array_r8 *ret, const gfc_array_r8 *array, nelem = ((rptr - ret->base_addr) / rstride0); if (n > nelem) { - sstride0 = GFC_DESCRIPTOR_STRIDE(vector,0); + sstride0 = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(vector,0); if (sstride0 == 0) sstride0 = 1; |