From 3e6affe81ae722794a3d74e0a480c7d9dacdf406 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Tue, 2 Jun 2015 20:21:32 +0200
Subject: Fix simulate backend.

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

(limited to 'src/vhdl/simulate/elaboration.adb')

diff --git a/src/vhdl/simulate/elaboration.adb b/src/vhdl/simulate/elaboration.adb
index 0deb329..18fcd10 100644
--- a/src/vhdl/simulate/elaboration.adb
+++ b/src/vhdl/simulate/elaboration.adb
@@ -1701,7 +1701,7 @@ package body Elaboration is
       --  declaration and architecture body or is bound to a configuration of
       --  such a design entity.
       if not Is_Fully_Bound (Conf) then
-         Warning_Msg (Disp_Node (Stmt) & " not bound");
+         Warning_Msg_Elab (Disp_Node (Stmt) & " not bound", Stmt);
          return;
       end if;
 
-- 
cgit