diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 09:55:31 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 09:55:31 +0000 |
| commit | 3897a1249bdc60a3c22e76a9b96242eb3ccdebe1 (patch) | |
| tree | cfb5ed0ca60c0acf412567b89fe656268827d52f /gcc/ada/s-os_lib.ads | |
| parent | ce4d14c4b6d621fb6dc9f0ab8680d5681c5855d0 (diff) | |
| download | gcc-3897a1249bdc60a3c22e76a9b96242eb3ccdebe1.tar.gz | |
2014-08-01 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Remove VMS specific rules for pragma Ident.
* Makefile.rtl, adaint.c, gnat_rm.texi, s-asthan.adb, s-asthan.ads,
s-filofl.ads, s-fishfl.ads, s-fvadfl.ads, s-fvaffl.ads, s-fvagfl.ads,
s-po32gl.adb, s-po32gl.ads, s-vaflop.adb, s-vaflop.ads, s-vmexta.adb,
s-vmexta.ads, sem_vfpt.adb, sem_vfpt.ads, socket.c: Remove VMS specific
code.
* gcc-interface/decl.c, gcc-interface/Makefile.in,
gcc-interface/Make-lang.in: Ditto. Also remove refs to rTX.
2014-08-01 Pascal Obry <obry@adacore.com>
* s-os_lib.ads: Rename File_Size to Large_File_Size.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213438 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-os_lib.ads')
| -rw-r--r-- | gcc/ada/s-os_lib.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-os_lib.ads b/gcc/ada/s-os_lib.ads index 78a3eeb7c67..92314037411 100644 --- a/gcc/ada/s-os_lib.ads +++ b/gcc/ada/s-os_lib.ads @@ -426,12 +426,12 @@ package System.OS_Lib is -- to the current position (origin = SEEK_CUR), end of file (origin = -- SEEK_END), or start of file (origin = SEEK_SET). - type File_Size is range -(2 ** 63) .. (2 ** 63) - 1; + type Large_File_Size is range -(2 ** 63) .. (2 ** 63) - 1; function File_Length (FD : File_Descriptor) return Long_Integer; pragma Import (C, File_Length, "__gnat_file_length_long"); - function File_Length64 (FD : File_Descriptor) return File_Size; + function File_Length64 (FD : File_Descriptor) return Large_File_Size; pragma Import (C, File_Length64, "__gnat_file_length"); -- Get length of file from file descriptor FD |