diff options
| -rw-r--r-- | src/vhdl/vhdl-sem_stmts.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb index 778a15d2b..e5993cd5c 100644 --- a/src/vhdl/vhdl-sem_stmts.adb +++ b/src/vhdl/vhdl-sem_stmts.adb @@ -1282,7 +1282,7 @@ package body Vhdl.Sem_Stmts is Expr := Eval_Expr_If_Static (Expr); Set_Timeout_Clause (Stmt, Expr); if Get_Expr_Staticness (Expr) = Locally - and then Get_Value (Expr) < 0 + and then Get_Physical_Value (Expr) < 0 then Error_Msg_Sem (+Stmt, "timeout value must be positive"); end if; |