diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2021-05-24 07:07:49 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-08 13:34:16 +0000 |
| commit | 3cb32058b49f20d6532beabf6bee4f7862a515d5 (patch) | |
| tree | 63bb0025bd6daa179dbf8bfa967581db20f3d723 /gcc/ada/osint.adb | |
| parent | 79a8b14237eca20a0e8256f5683d6ca092f38a0b (diff) | |
| download | gcc-3cb32058b49f20d6532beabf6bee4f7862a515d5.zip gcc-3cb32058b49f20d6532beabf6bee4f7862a515d5.tar.gz gcc-3cb32058b49f20d6532beabf6bee4f7862a515d5.tar.bz2 | |
[Ada] Make tools compatible with No_Dynamic_Accessibility_Checks
gcc/ada/
* make.adb, osint.adb: Make code compatible with
No_Dynamic_Accessibility_Checks restriction.
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 3e5db36..4ee6aa8 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -1915,7 +1915,8 @@ package body Osint is begin if Opt.Look_In_Primary_Dir then Locate_File - (N, Source, Primary_Directory, File_Name, File, Attr'Access); + (N, Source, Primary_Directory, File_Name, File, + Attr'Unchecked_Access); if File /= No_File and then T = File_Stamp (N) then return File; @@ -1925,7 +1926,7 @@ package body Osint is Last_Dir := Src_Search_Directories.Last; for D in Primary_Directory + 1 .. Last_Dir loop - Locate_File (N, Source, D, File_Name, File, Attr'Access); + Locate_File (N, Source, D, File_Name, File, Attr'Unchecked_Access); if File /= No_File and then T = File_Stamp (File) then return File; |