diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-22 11:11:52 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-22 11:11:52 +0200 |
| commit | 03456e44cfa6f5b10bf37689d497d05514dd47a4 (patch) | |
| tree | 1c44cbd67cb9cf4de50113877176ec1dec6c7539 /gcc/ada/adaint.h | |
| parent | 283268809829d27d5f54909bc3a79e8e54fc48eb (diff) | |
| download | gcc-03456e44cfa6f5b10bf37689d497d05514dd47a4.zip gcc-03456e44cfa6f5b10bf37689d497d05514dd47a4.tar.gz gcc-03456e44cfa6f5b10bf37689d497d05514dd47a4.tar.bz2 | |
[multiple changes]
2009-06-22 Vincent Celier <celier@adacore.com>
* gnatcmd.adb (Check_Files): Close temporary files after all file names
have been written into it.
2009-06-22 Matthew Gingell <gingell@adacore.com>
* adaint.c, adaint.h, cstreams.c: Call stat64 on platforms where it is
available.
2009-06-22 Thomas Quinot <quinot@adacore.com>
* sem_disp.adb (Check_Direct_Call): Handle the case where the full
view of the root type is visible at the point of the call.
2009-06-22 Pat Rogers <rogers@adacore.com>
* gnat_ugn.texi: Revised a sentence to correct a minor grammar error.
From-SVN: r148781
Diffstat (limited to 'gcc/ada/adaint.h')
| -rw-r--r-- | gcc/ada/adaint.h | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/gcc/ada/adaint.h b/gcc/ada/adaint.h index 46c1f2f..a5243f1 100644 --- a/gcc/ada/adaint.h +++ b/gcc/ada/adaint.h @@ -43,6 +43,24 @@ #define Encoding_8bits 1 /* Standard 8bits, CP_ACP on Windows. */ #define Encoding_Unspecified 2 /* Based on GNAT_CODE_PAGE env variable. */ +/* Large file support. It is unclear what portable mechanism we can + use to determine at compile time what support the system offers for + large files. For now we just list the platforms we have manually + tested. */ + +#if defined (__GLIBC__) || defined (sun) || defined (__sgi) +#define FOPEN fopen64 +#define STAT stat64 +#define FSTAT fstat64 +#define LSTAT lstat64 +#define STRUCT_STAT struct stat64 +#else +#define FOPEN fopen +#define STAT stat +#define FSTAT fstat +#define STRUCT_STAT struct stat +#endif + typedef long OS_Time; /* Type corresponding to GNAT.OS_Lib.OS_Time */ extern int __gnat_max_path_len; @@ -70,7 +88,7 @@ extern int __gnat_open_new (char *, int); extern int __gnat_open_new_temp (char *, int); extern int __gnat_mkdir (char *); extern int __gnat_stat (char *, - struct stat *); + STRUCT_STAT *); extern int __gnat_unlink (char *); extern int __gnat_rename (char *, char *); extern int __gnat_chdir (char *); |