diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-08-06 06:45:40 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-08-06 06:45:40 +0000 |
| commit | 63925c8de8d3171e6b258796e4d167524691490a (patch) | |
| tree | a8e7971f5889da0b7bba2cd7f9624c704d0145df /sem_names.adb | |
| parent | 3841c37a946481815c89928ccd15b71b608aa526 (diff) | |
| download | ghdl-63925c8de8d3171e6b258796e4d167524691490a.tar.gz ghdl-63925c8de8d3171e6b258796e4d167524691490a.tar.bz2 ghdl-63925c8de8d3171e6b258796e4d167524691490a.zip | |
bugs fixed
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 => |