diff options
| author | Pascal Obry <obry@adacore.com> | 2014-08-01 08:19:53 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 10:19:53 +0200 |
| commit | 0ef40c649bd668717cb99a0dfc90a7218bdfbc29 (patch) | |
| tree | 07e30853b7791aa13e14fb5280a82262657b222d /gcc/ada/osint.adb | |
| parent | f1a85fe7193cddc99f68c80c6aef96231866cad1 (diff) | |
| download | gcc-0ef40c649bd668717cb99a0dfc90a7218bdfbc29.zip gcc-0ef40c649bd668717cb99a0dfc90a7218bdfbc29.tar.gz gcc-0ef40c649bd668717cb99a0dfc90a7218bdfbc29.tar.bz2 | |
a-direct.adb (C_Size): Returns an int64.
2014-08-01 Pascal Obry <obry@adacore.com>
* a-direct.adb (C_Size): Returns an int64.
* osint.adb (System.CRTL): New with clause.
(File_Length.Internal): Returns an int64.
* s-os_lib.ads (File_Length): Returns an int64.
From-SVN: r213416
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index c0b25cc..0902ae2 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -39,6 +39,7 @@ with Unchecked_Conversion; pragma Warnings (Off); -- This package is used also by gnatcoll with System.Case_Util; use System.Case_Util; +with System.CRTL; pragma Warnings (On); with GNAT.HTable; @@ -1076,11 +1077,11 @@ package body Osint is function Internal (F : Integer; N : C_File_Name; - A : System.Address) return size_t; + A : System.Address) return CRTL.int64; pragma Import (C, Internal, "__gnat_file_length_attr"); begin - -- The conversion from size_t to Long_Integer is ok here as this + -- The conversion from int64 to Long_Integer is ok here as this -- routine is only to be used by the compiler and we do not expect -- a unit to be larger than a 32bit integer. |