diff options
| -rw-r--r-- | src/vhdl/vhdl-sem_names.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb index c8ec40285..cc731263e 100644 --- a/src/vhdl/vhdl-sem_names.adb +++ b/src/vhdl/vhdl-sem_names.adb @@ -4107,6 +4107,16 @@ package body Vhdl.Sem_Names is Set_Expr_Staticness (Res, Get_Expr_Staticness (Expr)); --Set_Name_Staticness (Name, Get_Name_Staticness (Expr)); --Set_Base_Name (Name, Get_Base_Name (Expr)); + + if Get_Type (Expr) = Time_Type_Definition + and then Get_Value (Get_Physical_Literal (Expr)) = 0 + then + -- See Sem_Physical_Literal. + Error_Msg_Sem + (+Res, + "physical unit %i is below the time resolution", +Expr); + end if; + return Res; end if; when Iir_Kind_Function_Call |