From 6e7525efaa81ddf6ac9c27525c16e1a7701cd3f4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 1 Jul 2019 06:27:57 +0200
Subject: vhdl: improve error message.

---
 src/vhdl/vhdl-sem_names.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb
index b11fe891c..35516f6f0 100644
--- a/src/vhdl/vhdl-sem_names.adb
+++ b/src/vhdl/vhdl-sem_names.adb
@@ -1377,8 +1377,7 @@ package body Vhdl.Sem_Names is
       if not Are_Types_Closely_Related (Conv_Type, Get_Type (Expr)) then
          --  FIXME: should explain why the types are not closely related.
          Error_Msg_Sem
-           (+Conv,
-            "conversion not allowed between not closely related types");
+           (+Conv, "conversion allowed only between closely related types");
          --  Avoid error storm in evaluation.
          Set_Expr_Staticness (Conv, None);
       else
-- 
cgit v1.2.3