diff options
| author | Brian Drummond <brian@shapes.demon.co.uk> | 2013-12-13 21:51:34 +0000 |
|---|---|---|
| committer | Brian Drummond <brian@shapes.demon.co.uk> | 2013-12-13 21:51:34 +0000 |
| commit | 8953ea90bf3ba0d5639f9d22f0c76222793a012f (patch) | |
| tree | 2735d38d96cf21cbe154751d2535ffe106791895 /sem_names.adb | |
| parent | fdaa2e090f2e9896485327731389b3f8098e8d8d (diff) | |
| download | ghdl-8953ea90bf3ba0d5639f9d22f0c76222793a012f.tar.gz ghdl-8953ea90bf3ba0d5639f9d22f0c76222793a012f.tar.bz2 ghdl-8953ea90bf3ba0d5639f9d22f0c76222793a012f.zip | |
Patch for improved error message for https://gna.org/bugs/index.php?18360
Diffstat (limited to 'sem_names.adb')
| -rw-r--r-- | sem_names.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sem_names.adb b/sem_names.adb index 9f16b365f..65624a709 100644 --- a/sem_names.adb +++ b/sem_names.adb @@ -2386,7 +2386,10 @@ package body Sem_Names is Attr); return Error_Mark; when others => - raise Internal_Error; + Error_Msg_Sem ("Attribute '" + & Name_Table.Image(Get_Attribute_Identifier (Attr)) + & " not valid on this type", Attr); + return Error_Mark; end case; Location_Copy (Res, Attr); Prefix := Get_Named_Entity (Get_Prefix (Attr)); |