diff options
Diffstat (limited to 'libgfortran/runtime/in_unpack_generic.c')
| -rw-r--r-- | libgfortran/runtime/in_unpack_generic.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libgfortran/runtime/in_unpack_generic.c b/libgfortran/runtime/in_unpack_generic.c index 32cc94b1169..f07d85f2646 100644 --- a/libgfortran/runtime/in_unpack_generic.c +++ b/libgfortran/runtime/in_unpack_generic.c @@ -1,9 +1,9 @@ /* Generic helper function for repacking arrays. - Copyright 2003, 2004, 2005, 2007, 2009, 2010 + Copyright 2003, 2004, 2005, 2007, 2009, 2010, 2012 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> -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 @@ -47,7 +47,7 @@ internal_unpack (gfc_array_char * d, const void * s) int size; int type_size; - dest = d->data; + dest = d->base_addr; /* This check may be redundant, but do it anyway. */ if (s == dest || !s) return; @@ -140,7 +140,7 @@ internal_unpack (gfc_array_char * d, const void * s) #endif case GFC_DTYPE_DERIVED_2: - if (GFC_UNALIGNED_2(d->data) || GFC_UNALIGNED_2(s)) + if (GFC_UNALIGNED_2(d->base_addr) || GFC_UNALIGNED_2(s)) break; else { @@ -148,7 +148,7 @@ internal_unpack (gfc_array_char * d, const void * s) return; } case GFC_DTYPE_DERIVED_4: - if (GFC_UNALIGNED_4(d->data) || GFC_UNALIGNED_4(s)) + if (GFC_UNALIGNED_4(d->base_addr) || GFC_UNALIGNED_4(s)) break; else { @@ -157,7 +157,7 @@ internal_unpack (gfc_array_char * d, const void * s) } case GFC_DTYPE_DERIVED_8: - if (GFC_UNALIGNED_8(d->data) || GFC_UNALIGNED_8(s)) + if (GFC_UNALIGNED_8(d->base_addr) || GFC_UNALIGNED_8(s)) break; else { @@ -167,7 +167,7 @@ internal_unpack (gfc_array_char * d, const void * s) #ifdef HAVE_GFC_INTEGER_16 case GFC_DTYPE_DERIVED_16: - if (GFC_UNALIGNED_16(d->data) || GFC_UNALIGNED_16(s)) + if (GFC_UNALIGNED_16(d->base_addr) || GFC_UNALIGNED_16(s)) break; else { |