diff options
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) { |