OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

in_pack_generic.c: Adjust copyright years.

Browse Source 
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
This commit is contained in:
Thomas Koenig 2005-05-27 19:00:50 +00:00 committed by Thomas Koenig
parent 4c1dd580b3
commit f827a7d0f3
3 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libgfortran/ChangeLog
View File

@ -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> 2005-05-26 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/17283 PR libfortran/17283

8
libgfortran/runtime/in_pack_generic.c
View File

@ -1,5 +1,5 @@
/* Generic helper function for repacking arrays. /* 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> 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 95 runtime library (libgfortran).
@ -40,9 +40,9 @@ export_proto(internal_pack);
void * void *
internal_pack (gfc_array_char * source) internal_pack (gfc_array_char * source)
{ {
index_type count[GFC_MAX_DIMENSIONS - 1]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS];
index_type stride[GFC_MAX_DIMENSIONS - 1]; index_type stride[GFC_MAX_DIMENSIONS];
index_type stride0; index_type stride0;
index_type dim; index_type dim;
index_type ssize; index_type ssize;

8
libgfortran/runtime/in_unpack_generic.c
View File

@ -1,5 +1,5 @@
/* Generic helper function for repacking arrays. /* 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> 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 95 runtime library (libgfortran).
@ -40,9 +40,9 @@ export_proto(internal_unpack);
void void
internal_unpack (gfc_array_char * d, const void * s) internal_unpack (gfc_array_char * d, const void * s)
{ {
index_type count[GFC_MAX_DIMENSIONS - 1]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS];
index_type stride[GFC_MAX_DIMENSIONS - 1]; index_type stride[GFC_MAX_DIMENSIONS];
index_type stride0; index_type stride0;
index_type dim; index_type dim;
index_type dsize; index_type dsize;