Mercurial > hg > CbC > CbC_gcc
diff libgfortran/generated/reshape_i8.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
line wrap: on
line diff
--- a/libgfortran/generated/reshape_i8.c Fri Oct 27 22:46:09 2017 +0900 +++ b/libgfortran/generated/reshape_i8.c Thu Oct 25 07:37:49 2018 +0900 @@ -1,5 +1,5 @@ /* Implementation of the RESHAPE intrinsic - Copyright (C) 2002-2017 Free Software Foundation, Inc. + Copyright (C) 2002-2018 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran runtime library (libgfortran). @@ -28,7 +28,7 @@ #if defined (HAVE_GFC_INTEGER_8) -typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type; +typedef GFC_FULL_ARRAY_DESCRIPTOR(1, index_type) shape_type; extern void reshape_8 (gfc_array_i8 * const restrict, @@ -72,8 +72,6 @@ const GFC_INTEGER_8 *pptr; const GFC_INTEGER_8 *src; - int n; - int dim; int sempty, pempty, shape_empty; index_type shape_data[GFC_MAX_DIMENSIONS]; @@ -87,7 +85,7 @@ shape_empty = 0; - for (n = 0; n < rdim; n++) + for (index_type n = 0; n < rdim; n++) { shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; if (shape_data[n] <= 0) @@ -102,7 +100,7 @@ index_type alloc_size; rs = 1; - for (n = 0; n < rdim; n++) + for (index_type n = 0; n < rdim; n++) { rex = shape_data[n]; @@ -118,7 +116,7 @@ alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); - ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim; + ret->dtype.rank = rdim; } if (shape_empty) @@ -129,7 +127,7 @@ pdim = GFC_DESCRIPTOR_RANK (pad); psize = 1; pempty = 0; - for (n = 0; n < pdim; n++) + for (index_type n = 0; n < pdim; n++) { pcount[n] = 0; pstride[n] = GFC_DESCRIPTOR_STRIDE(pad,n); @@ -160,7 +158,7 @@ index_type ret_extent, source_extent; rs = 1; - for (n = 0; n < rdim; n++) + for (index_type n = 0; n < rdim; n++) { rs *= shape_data[n]; ret_extent = GFC_DESCRIPTOR_EXTENT(ret,n); @@ -173,7 +171,7 @@ source_extent = 1; sdim = GFC_DESCRIPTOR_RANK (source); - for (n = 0; n < sdim; n++) + for (index_type n = 0; n < sdim; n++) { index_type se; se = GFC_DESCRIPTOR_EXTENT(source,n); @@ -190,10 +188,10 @@ int seen[GFC_MAX_DIMENSIONS]; index_type v; - for (n = 0; n < rdim; n++) + for (index_type n = 0; n < rdim; n++) seen[n] = 0; - for (n = 0; n < rdim; n++) + for (index_type n = 0; n < rdim; n++) { v = order->base_addr[n * GFC_DESCRIPTOR_STRIDE(order,0)] - 1; @@ -211,8 +209,9 @@ } rsize = 1; - for (n = 0; n < rdim; n++) + for (index_type n = 0; n < rdim; n++) { + index_type dim; if (order) dim = order->base_addr[n * GFC_DESCRIPTOR_STRIDE(order,0)] - 1; else @@ -243,7 +242,7 @@ ssize = 1; sempty = 0; - for (n = 0; n < sdim; n++) + for (index_type n = 0; n < sdim; n++) { scount[n] = 0; sstride[n] = GFC_DESCRIPTOR_STRIDE(source,n); @@ -283,7 +282,7 @@ src = pptr; sptr = pptr; sdim = pdim; - for (dim = 0; dim < pdim; dim++) + for (index_type dim = 0; dim < pdim; dim++) { scount[dim] = pcount[dim]; sextent[dim] = pextent[dim]; @@ -303,7 +302,7 @@ scount[0]++; /* Advance to the next destination element. */ - n = 0; + index_type n = 0; while (rcount[n] == rextent[n]) { /* When we get to the end of a dimension, reset it and increment @@ -343,7 +342,7 @@ /* Switch to the pad array. */ sptr = NULL; sdim = pdim; - for (dim = 0; dim < pdim; dim++) + for (index_type dim = 0; dim < pdim; dim++) { scount[dim] = pcount[dim]; sextent[dim] = pextent[dim];