diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-28 05:50:55 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-28 05:50:55 +0200 |
commit | 67422d11f9c5f4d8c97c10daf1a5e0d58d2b2df8 (patch) | |
tree | 27c8332c194b6f4f612ac05e62db9112e676f5dc /src | |
parent | 71fbdc183f69ad9ae2548111100da285e8f85374 (diff) | |
download | ghdl-67422d11f9c5f4d8c97c10daf1a5e0d58d2b2df8.tar.gz ghdl-67422d11f9c5f4d8c97c10daf1a5e0d58d2b2df8.tar.bz2 ghdl-67422d11f9c5f4d8c97c10daf1a5e0d58d2b2df8.zip |
vhdl-sem_stmts.adb: minor refactoring.
Diffstat (limited to 'src')
-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; |