From 79858ee06b24d072be39d52d6efc38f212369f41 Mon Sep 17 00:00:00 2001 From: Ondrej Ille Date: Thu, 22 Apr 2021 19:54:34 +0200 Subject: src: Minor clarifications in Error messages for Warning and VHDL std options. --- src/options.adb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/options.adb b/src/options.adb index 6fa3df36e..3191cd575 100644 --- a/src/options.adb +++ b/src/options.adb @@ -82,7 +82,7 @@ package body Options is return Option_Ok; end if; end loop; - Error_Msg_Option ("unknown warning identifier"); + Error_Msg_Option ("unknown warning identifier: " & Opt); return Option_Err; end if; @@ -101,7 +101,7 @@ package body Options is end if; -- Unknown warning. - Error_Msg_Option ("unknown warning identifier"); + Error_Msg_Option ("unknown warning identifier: " & Opt); return Option_Err; end Option_Warning; @@ -124,7 +124,8 @@ package body Options is elsif Opt (7 .. 8) = "08" then Vhdl_Std := Vhdl_08; else - Error_Msg_Option ("unknown language standard"); + Error_Msg_Option ("unknown language standard: " & Opt (7 ..8) & + ". Should be one of: 87, 93, 02, 08"); return Option_Err; end if; elsif Opt'Length = 9 and then Opt (7 .. 9) = "93c" then @@ -132,7 +133,8 @@ package body Options is Flag_Relaxed_Rules := True; Flag_Relaxed_Files87 := True; else - Error_Msg_Option ("unknown language standard"); + Error_Msg_Option ("unknown language standard. " & + "Should be one of: 87, 93, 02, 08"); return Option_Err; end if; elsif Opt'Length = 5 and then Opt (1 .. 5) = "--ams" then -- cgit v1.2.3