diff options
Diffstat (limited to 'libgfortran/m4/transpose.m4')
| -rw-r--r-- | libgfortran/m4/transpose.m4 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libgfortran/m4/transpose.m4 b/libgfortran/m4/transpose.m4 index 34c2d6c06aa..a60ca6d27cc 100644 --- a/libgfortran/m4/transpose.m4 +++ b/libgfortran/m4/transpose.m4 @@ -1,8 +1,8 @@ `/* Implementation of the TRANSPOSE intrinsic - Copyright 2003, 2005, 2006, 2007, 2009 Free Software Foundation, Inc. + Copyright 2003, 2005, 2006, 2007, 2009, 2012 Free Software Foundation, Inc. Contributed by Tobias Schlüter -This file is part of the GNU Fortran 95 runtime library (libgfortran). +This file is part of the GNU Fortran runtime library (libgfortran). Libgfortran is free software; you can redistribute it and/or modify it under the terms of the GNU General Public @@ -50,7 +50,7 @@ transpose_'rtype_code` ('rtype` * const restrict ret, assert (GFC_DESCRIPTOR_RANK (source) == 2); - if (ret->data == NULL) + if (ret->base_addr == NULL) { assert (GFC_DESCRIPTOR_RANK (ret) == 2); assert (ret->dtype == source->dtype); @@ -61,7 +61,7 @@ transpose_'rtype_code` ('rtype` * const restrict ret, GFC_DIMENSION_SET(ret->dim[1], 0, GFC_DESCRIPTOR_EXTENT(source,0) - 1, GFC_DESCRIPTOR_EXTENT(source, 1)); - ret->data = internal_malloc_size (sizeof ('rtype_name`) * size0 ((array_t *) ret)); + ret->base_addr = internal_malloc_size (sizeof ('rtype_name`) * size0 ((array_t *) ret)); ret->offset = 0; } else if (unlikely (compile_options.bounds_check)) { @@ -95,8 +95,8 @@ transpose_'rtype_code` ('rtype` * const restrict ret, rxstride = GFC_DESCRIPTOR_STRIDE(ret,0); rystride = GFC_DESCRIPTOR_STRIDE(ret,1); - rptr = ret->data; - sptr = source->data; + rptr = ret->base_addr; + sptr = source->base_addr; for (y=0; y < ycount; y++) { |