diff options
Diffstat (limited to 'sem_names.adb')
-rw-r--r-- | sem_names.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/sem_names.adb b/sem_names.adb index 5feaead10..a390c4d0d 100644 --- a/sem_names.adb +++ b/sem_names.adb @@ -2376,9 +2376,13 @@ package body Sem_Names is -- At least, this type is valid; and even if the array was -- constrained, the base type would be the same. end if; - when Iir_Kind_Process_Statement => + when Iir_Kind_Range_Array_Attribute + | Iir_Kind_Reverse_Range_Array_Attribute + | Iir_Kind_Process_Statement => Error_Msg_Sem - (Disp_Node (Prefix) & " is not an appropriate attribute prefix", + (Disp_Node (Prefix) & " is not an appropriate prefix for '" + & Name_Table.Image (Get_Attribute_Identifier (Attr)) + & " attribute", Attr); return Error_Mark; when others => |