diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-11-29 22:54:21 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-16 08:01:03 -0500 |
| commit | 55337de847075206be0c9f3154650ad17fcf2b28 (patch) | |
| tree | 5069e2842e41a15b26fd696d4152edfa822ecbf2 /gcc | |
| parent | 2c623ed86a387bcef5d1d0b7286d2df6d332ef06 (diff) | |
| download | gcc-55337de847075206be0c9f3154650ad17fcf2b28.zip gcc-55337de847075206be0c9f3154650ad17fcf2b28.tar.gz gcc-55337de847075206be0c9f3154650ad17fcf2b28.tar.bz2 | |
[Ada] Fix typo in checks for implementation defined units
gcc/ada/
* impunit.adb (Not_Impl_Defined_Unit): Fix typo in iteration
over Non_Imp_File_Names_12 array.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/impunit.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb index 2cde430..e7262cd 100644 --- a/gcc/ada/impunit.adb +++ b/gcc/ada/impunit.adb @@ -999,7 +999,7 @@ package body Impunit is for J in Non_Imp_File_Names_12'Range loop if Name_Buffer (1 .. 8) = Non_Imp_File_Names_12 (J).Fname then - return Non_Imp_File_Names_95 (J).RMdef + return Non_Imp_File_Names_12 (J).RMdef and then Ada_Version >= Ada_2012; end if; end loop; |