diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 11:32:00 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 11:32:00 +0200 |
| commit | 935a9145c69ce92e228e32427d91044407118eea (patch) | |
| tree | 80017fd93120d6e62909d4bd5349d7d628a53e0c /gcc/ada/adaint.c | |
| parent | 2422831252036d2821984173a7a22aac5518ef5c (diff) | |
| download | gcc-935a9145c69ce92e228e32427d91044407118eea.zip gcc-935a9145c69ce92e228e32427d91044407118eea.tar.gz gcc-935a9145c69ce92e228e32427d91044407118eea.tar.bz2 | |
[multiple changes]
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.
From-SVN: r213430
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 17aedae..ecf961d 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -1326,6 +1326,14 @@ __gnat_file_length (int fd) return __gnat_file_length_attr (fd, NULL, &attr); } +long +__gnat_file_length_long (int fd) +{ + struct file_attributes attr; + __gnat_reset_attributes (&attr); + return (long)__gnat_file_length_attr (fd, NULL, &attr); +} + __int64 __gnat_named_file_length (char *name) { |