diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 09:32:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 09:32:00 +0000 |
| commit | 26a987308ddcfc00f36313f31eac21e361d957a8 (patch) | |
| tree | 80017fd93120d6e62909d4bd5349d7d628a53e0c /gcc/ada/adaint.c | |
| parent | b6f6bb02a7f7ca8201854889207bcecef3c4221a (diff) | |
| download | gcc-26a987308ddcfc00f36313f31eac21e361d957a8.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213430 138bc75d-0d04-0410-961f-82ee72b054a4
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 17aedae1f79..ecf961d6016 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) { |