https://gcc.gnu.org/g:b226e5605a6e1833da85590b10a5acf0b16d00d8
commit r15-681-gb226e5605a6e1833da85590b10a5acf0b16d00d8
Author: Justin Squirek <squi...@adacore.com>
Date: Wed Mar 27 01:02:41 2024 +0000
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.
Diff:
---
gcc/ada/accessibility.adb | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/gcc/ada/accessibility.adb b/gcc/ada/accessibility.adb
index c0a9d50f38ab..33ce001718a2 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
