diff options
Diffstat (limited to 'src/vhdl/vhdl-sem_lib.adb')
| -rw-r--r-- | src/vhdl/vhdl-sem_lib.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_lib.adb b/src/vhdl/vhdl-sem_lib.adb index 7144d7725..d0db163ca 100644 --- a/src/vhdl/vhdl-sem_lib.adb +++ b/src/vhdl/vhdl-sem_lib.adb @@ -323,7 +323,10 @@ package body Vhdl.Sem_Lib is It := List_Iterate (List); while Is_Valid (It) loop El := Get_Element (It); - if Get_Date (El) = Date_Obsolete then + -- Just handle design unit; but there could also be entity aspects. + if Get_Kind (El) = Iir_Kind_Design_Unit + and then Get_Date (El) = Date_Obsolete + then Error_Obsolete (Loc, "%n is obsoleted by %n", (+Design_Unit, +El)); return; end if; |