diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 09:32:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 09:32:00 +0000 |
| commit | 26a987308ddcfc00f36313f31eac21e361d957a8 (patch) | |
| tree | 80017fd93120d6e62909d4bd5349d7d628a53e0c /gcc/ada/s-os_lib.ads | |
| parent | b6f6bb02a7f7ca8201854889207bcecef3c4221a (diff) | |
| download | gcc-26a987308ddcfc00f36313f31eac21e361d957a8.tar.gz | |
2014-08-01 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: Remove the VMS specific stuff. Integrate in
procedure GNATCmd the relevant declarations from packages VMS_Cmds
and VMS_Conv.
* gnatcmd.ads: Update comments to remove any trace of VMS
2014-08-01 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb: sem_ch12.adb (Build_Wrapper): Capture entity for
defaulted actual that is an operator, before building wrapper
for it in GNATprove mode. Restrict construction of wrapper to
actuals that are operators.
2014-08-01 Vincent Celier <celier@adacore.com>
* vms_conv.adb, vms_conv.ads, vms_data.ads, vms_cmds.ads: Remove VMS
specific packages no longer needed.
2014-08-01 Pascal Obry <obry@adacore.com>
* s-os_lib.ads (System.CRTL): Move with clause to body.
(File_Size): New type.
(File_Length64): Use it.
(File_Length): Restore previous spec returning a Long_Integer.
* s-os_lib.adb (System.CRTL): Move with clause here.
2014-08-01 Vincent Celier <celier@adacore.com>
* mlib-prj.adb: Update comments to remove any mention of VMS.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213430 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-os_lib.ads')
| -rw-r--r-- | gcc/ada/s-os_lib.ads | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gcc/ada/s-os_lib.ads b/gcc/ada/s-os_lib.ads index d6d69056040..b8dde283f75 100644 --- a/gcc/ada/s-os_lib.ads +++ b/gcc/ada/s-os_lib.ads @@ -56,8 +56,6 @@ pragma Compiler_Unit_Warning; with System; with System.Strings; -with System.CRTL; - package System.OS_Lib is pragma Preelaborate; @@ -434,8 +432,13 @@ 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). - function File_Length (FD : File_Descriptor) return CRTL.int64; - pragma Import (C, File_Length, "__gnat_file_length"); + type 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; + pragma Import (C, File_Length64, "__gnat_file_length"); -- Get length of file from file descriptor FD function File_Time_Stamp (Name : String) return OS_Time; |