diff options
| author | Pascal Obry <obry@adacore.com> | 2014-08-01 08:10:34 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 10:10:34 +0200 |
| commit | 148c744a1789b29b3c3c32b45ea3be913fef6a52 (patch) | |
| tree | 6d947b509c5720962bfcba5c62b900bab43882a0 /gcc/ada/adaint.h | |
| parent | 479f90598ae5c20aa042e4700a98f273c8094496 (diff) | |
| download | gcc-148c744a1789b29b3c3c32b45ea3be913fef6a52.zip gcc-148c744a1789b29b3c3c32b45ea3be913fef6a52.tar.gz gcc-148c744a1789b29b3c3c32b45ea3be913fef6a52.tar.bz2 | |
adaint.h, adaint.c (__gnat_file_length): Returns an __int64.
2014-08-01 Pascal Obry <obry@adacore.com>
* adaint.h, adaint.c (__gnat_file_length): Returns an __int64.
(__gnat_named_file_length): Likewise.
(__gnat_file_length_attr): Likewise.
* a-direct.adb (C_Size): Use size_t as returned type.
* osint.adb (File_Length): Adjust spec for Internal routine
(returns size_t).
* s-os_lib.adb (File_Length): Now returns a CRTL.size_t.
(System.CRTL): With claused moved to spec.
* s-os_lib.ads (System.CRTL): With clause moved to here.
From-SVN: r213412
Diffstat (limited to 'gcc/ada/adaint.h')
| -rw-r--r-- | gcc/ada/adaint.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/adaint.h b/gcc/ada/adaint.h index a870910..9b6bbca 100644 --- a/gcc/ada/adaint.h +++ b/gcc/ada/adaint.h @@ -98,7 +98,7 @@ struct file_attributes { unsigned char directory; OS_Time timestamp; - long file_length; + __int64 file_length; }; /* WARNING: changing the size here might require changing the constant * File_Attributes_Size in osint.ads (which should be big enough to @@ -151,8 +151,8 @@ extern int __gnat_create_output_file (char *); extern int __gnat_create_output_file_new (char *); extern int __gnat_open_append (char *, int); -extern long __gnat_file_length (int); -extern long __gnat_named_file_length (char *); +extern __int64 __gnat_file_length (int); +extern __int64 __gnat_named_file_length (char *); extern void __gnat_tmp_name (char *); extern DIR *__gnat_opendir (char *); extern char *__gnat_readdir (DIR *, char *, int *); @@ -177,7 +177,7 @@ extern int __gnat_is_executable_file (char *name); extern void __gnat_reset_attributes (struct file_attributes *); extern int __gnat_error_attributes (struct file_attributes *); -extern long __gnat_file_length_attr (int, char *, struct file_attributes *); +extern __int64 __gnat_file_length_attr (int, char *, struct file_attributes *); extern OS_Time __gnat_file_time_name_attr (char *, struct file_attributes *); extern OS_Time __gnat_file_time_fd_attr (int, struct file_attributes *); extern int __gnat_file_exists_attr (char *, struct file_attributes *); |