mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 23:31:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

a-direct.adb (C_Size): Returns an int64.

Browse Source 
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
This commit is contained in:
Pascal Obry 2014-08-01 08:19:53 +00:00 committed by Arnaud Charlet
parent f1a85fe719
commit 0ef40c649b
4 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/ChangeLog
View File

@ -1,3 +1,10 @@
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.
2014-08-01 Robert Dewar <dewar@adacore.com>
* gnatchop.adb, gnatcmd.adb, make.adb, mlib-prj.adb, bindgen.adb,

2
gcc/ada/a-direct.adb
View File

@ -1250,7 +1250,7 @@ package body Ada.Directories is
function Size (Name : String) return File_Size is
C_Name : String (1 .. Name'Length + 1);
function C_Size (Name : Address) return size_t;
function C_Size (Name : Address) return int64;
pragma Import (C, C_Size, "__gnat_named_file_length");
begin

5
gcc/ada/osint.adb
View File

@ -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.

2
gcc/ada/s-os_lib.ads
View File

@ -434,7 +434,7 @@ 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.size_t;
function File_Length (FD : File_Descriptor) return CRTL.int64;
pragma Import (C, File_Length, "__gnat_file_length");
-- Get length of file from file descriptor FD