diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-07-07 15:17:51 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-07-07 15:17:51 +0200 |
| commit | 0640c7d139ea91870c378de96cab14d708517593 (patch) | |
| tree | 1abcefad16cd3dadc77bc417c2d1899ee51656d5 /gcc/ada/adaint.h | |
| parent | 8c519039a6363f0013d92f2e742adee4800806a0 (diff) | |
| download | gcc-0640c7d139ea91870c378de96cab14d708517593.zip gcc-0640c7d139ea91870c378de96cab14d708517593.tar.gz gcc-0640c7d139ea91870c378de96cab14d708517593.tar.bz2 | |
[multiple changes]
2016-07-07 Vadim Godunko <godunko@adacore.com>
* adainit.h, adainit.c (__gnat_is_read_accessible_file): New
subprogram.
(__gnat_is_write_accessible_file): New subprogram.
* s-os_lib.ads, s-os_lib.adb (Is_Read_Accessible_File): New subprogram.
(Is_Write_Accessible_File): New subprogram.
2016-07-07 Justin Squirek <squirek@adacore.com>
* sem_ch12.adb (Install_Body): Minor refactoring in the order
of local functions.
(In_Same_Scope): Change loop condition to be more expressive.
From-SVN: r238116
Diffstat (limited to 'gcc/ada/adaint.h')
| -rw-r--r-- | gcc/ada/adaint.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/adaint.h b/gcc/ada/adaint.h index 2559a31..338b2ef 100644 --- a/gcc/ada/adaint.h +++ b/gcc/ada/adaint.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2015, Free Software Foundation, Inc. * + * Copyright (C) 1992-2016, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -207,6 +207,8 @@ extern int __gnat_is_directory (char *); extern int __gnat_is_writable_file (char *); extern int __gnat_is_readable_file (char *name); extern int __gnat_is_executable_file (char *name); +extern int __gnat_is_write_accessible_file (char *name); +extern int __gnat_is_read_accessible_file (char *name); extern void __gnat_reset_attributes (struct file_attributes *); extern int __gnat_error_attributes (struct file_attributes *); |