From 26a987308ddcfc00f36313f31eac21e361d957a8 Mon Sep 17 00:00:00 2001 From: charlet Date: Fri, 1 Aug 2014 09:32:00 +0000 Subject: 2014-08-01 Vincent Celier * 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 * 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 * vms_conv.adb, vms_conv.ads, vms_data.ads, vms_cmds.ads: Remove VMS specific packages no longer needed. 2014-08-01 Pascal Obry * 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 * 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 --- gcc/ada/s-os_lib.ads | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'gcc/ada/s-os_lib.ads') 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; -- cgit v1.2.1