From 67422d11f9c5f4d8c97c10daf1a5e0d58d2b2df8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 28 May 2019 05:50:55 +0200
Subject: vhdl-sem_stmts.adb: minor refactoring.

---
 src/vhdl/vhdl-sem_stmts.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

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;
-- 
cgit v1.2.3