diff options
author | Thomas Koenig <Thomas.Koenig@online.de> | 2005-05-27 19:00:50 +0000 |
---|---|---|
committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2005-05-27 19:00:50 +0000 |
commit | f827a7d0f37dec39ed72a9d83dde5f1a4a0dcac3 (patch) | |
tree | 0f4e3cf30375dce8669411231f6e316b54dc3f3e | |
parent | 4c1dd580b3ee35309bc86ebce512eb18bb81324e (diff) | |
download | gcc-f827a7d0f37dec39ed72a9d83dde5f1a4a0dcac3.zip gcc-f827a7d0f37dec39ed72a9d83dde5f1a4a0dcac3.tar.gz gcc-f827a7d0f37dec39ed72a9d83dde5f1a4a0dcac3.tar.bz2 |
in_pack_generic.c: Adjust copyright years.
2005-05-27 Thomas Koenig <Thomas.Koenig@online.de>
* runtime/in_pack_generic.c: Adjust copyright years.
(in_pack_generic): Change dimension of auxiliary arrays from
GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
* runtime/in_unpack_generic.c: Adjust copyright years.
(in_unpack_generic): Change dimension of auxiliary arrays from
GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
From-SVN: r100271
-rw-r--r-- | libgfortran/ChangeLog | 9 | ||||
-rw-r--r-- | libgfortran/runtime/in_pack_generic.c | 8 | ||||
-rw-r--r-- | libgfortran/runtime/in_unpack_generic.c | 8 |
3 files changed, 17 insertions, 8 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 8f2e25d..f3bb715 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,12 @@ +2005-05-27 Thomas Koenig <Thomas.Koenig@online.de> + + * runtime/in_pack_generic.c: Adjust copyright years. + (in_pack_generic): Change dimension of auxiliary arrays from + GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION. + * runtime/in_unpack_generic.c: Adjust copyright years. + (in_unpack_generic): Change dimension of auxiliary arrays from + GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION. + 2005-05-26 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/17283 diff --git a/libgfortran/runtime/in_pack_generic.c b/libgfortran/runtime/in_pack_generic.c index e3e1c53..99fdb92 100644 --- a/libgfortran/runtime/in_pack_generic.c +++ b/libgfortran/runtime/in_pack_generic.c @@ -1,5 +1,5 @@ /* Generic helper function for repacking arrays. - Copyright 2003 Free Software Foundation, Inc. + Copyright 2003, 2004, 2005 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -40,9 +40,9 @@ export_proto(internal_pack); void * internal_pack (gfc_array_char * source) { - index_type count[GFC_MAX_DIMENSIONS - 1]; - index_type extent[GFC_MAX_DIMENSIONS - 1]; - index_type stride[GFC_MAX_DIMENSIONS - 1]; + index_type count[GFC_MAX_DIMENSIONS]; + index_type extent[GFC_MAX_DIMENSIONS]; + index_type stride[GFC_MAX_DIMENSIONS]; index_type stride0; index_type dim; index_type ssize; diff --git a/libgfortran/runtime/in_unpack_generic.c b/libgfortran/runtime/in_unpack_generic.c index b0882b4..42f3b5d 100644 --- a/libgfortran/runtime/in_unpack_generic.c +++ b/libgfortran/runtime/in_unpack_generic.c @@ -1,5 +1,5 @@ /* Generic helper function for repacking arrays. - Copyright 2003 Free Software Foundation, Inc. + Copyright 2003, 2004, 2005 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -40,9 +40,9 @@ export_proto(internal_unpack); void internal_unpack (gfc_array_char * d, const void * s) { - index_type count[GFC_MAX_DIMENSIONS - 1]; - index_type extent[GFC_MAX_DIMENSIONS - 1]; - index_type stride[GFC_MAX_DIMENSIONS - 1]; + index_type count[GFC_MAX_DIMENSIONS]; + index_type extent[GFC_MAX_DIMENSIONS]; + index_type stride[GFC_MAX_DIMENSIONS]; index_type stride0; index_type dim; index_type dsize; |