diff options
| author | Justin Squirek <squirek@adacore.com> | 2024-03-27 01:02:41 +0000 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-20 09:47:05 +0200 |
| commit | b226e5605a6e1833da85590b10a5acf0b16d00d8 (patch) | |
| tree | 4f3c43112c7fe2cde1e5a6119f4c7e48f892e7ea /gcc | |
| parent | fd5a221928bb0689f7ff7eadc295970bf58392a5 (diff) | |
| download | gcc-b226e5605a6e1833da85590b10a5acf0b16d00d8.zip gcc-b226e5605a6e1833da85590b10a5acf0b16d00d8.tar.gz gcc-b226e5605a6e1833da85590b10a5acf0b16d00d8.tar.bz2 | |
ada: Handle accessibility calculations for 'First and 'Last
This patch fixes a crash in the compiler whereby calculating the accessibility
level of of a local variable whose original expression is an 'First on an
array type led to an error during compilation.
gcc/ada/
* accessibility.adb (Accessibility_Level): Add cases for 'First
and 'Last.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/accessibility.adb | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/accessibility.adb b/gcc/ada/accessibility.adb index c0a9d50..33ce001 100644 --- a/gcc/ada/accessibility.adb +++ b/gcc/ada/accessibility.adb @@ -465,7 +465,15 @@ package body Accessibility is -- so handle these cases explicitly. elsif Attribute_Name (E) - in Name_Old | Name_Loop_Entry | Name_Result | Name_Super + in Name_Old | + Name_Loop_Entry | + Name_Result | + Name_Super | + Name_Tag | + Name_Safe_First | + Name_Safe_Last | + Name_First | + Name_Last then -- Named access types |