procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/25289 (Cannot handle record numbers large than huge(0_4))

Browse source 
2006-07-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/25289
	* libgfortran.h: Add conditional definition of GFC_LARGE_IO_INT type.
	* io/io.h (st_parameter_dt): Define rec as type GFC_LARGE_IO_INT.

From-SVN: r115698
This commit is contained in:
Jerry DeLisle 2006-07-24 00:17:52 +00:00
parent 8a5d9afcd1
commit 566ffce895
3 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libgfortran/ChangeLog
View file

@ -1,3 +1,9 @@
2006-07-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25289
* libgfortran.h: Add conditional definition of GFC_LARGE_IO_INT type.
* io/io.h (st_parameter_dt): Define rec as type GFC_LARGE_IO_INT.
2006-07-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/28339

2
libgfortran/io/io.h
View file

@ -351,7 +351,7 @@ struct format_data;
typedef struct st_parameter_dt
{
st_parameter_common common;
GFC_INTEGER_4 rec;
GFC_LARGE_IO_INT rec;
GFC_INTEGER_4 *size, *iolength;
gfc_array_char *internal_unit_desc;
CHARACTER1 (format);

12
libgfortran/libgfortran.h
View file

@ -196,6 +196,18 @@ typedef off_t gfc_offset;
#include "kinds.h"
/* Define the type used for the current record number for large file I/O.
The size must be consistent with the size defined on the compiler side. */
#ifdef HAVE_GFC_INTEGER_8
typedef GFC_INTEGER_8 GFC_LARGE_IO_INT;
#else
#ifdef HAVE_GFC_INTEGER_4
typedef GFC_INTEGER_4 GFC_LARGE_IO_INT;
#else
#error "GFC_INTEGER_4 should be available for the library to compile".
#endif
#endif
/* The following two definitions must be consistent with the types used
by the compiler. */
/* The type used of array indices, amongst other things. */