From e23a9f0b04b91468fbeead582b15de394c8a4a80 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 9 Oct 2020 18:39:19 +0200 Subject: vhdl-parse: improve error message for extra '('. --- src/vhdl/vhdl-parse.adb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index 885604414..a2b0ad79d 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -5741,13 +5741,17 @@ package body Vhdl.Parse is return Res; - when Tok_Semi_Colon => + when Tok_Semi_Colon + | Tok_Then + | Tok_Generate + | Tok_Loop => -- Surely a missing parenthesis. -- FIXME: in case of multiple missing parenthesises, several -- messages will be displayed Error_Msg_Parse ("missing ')' for opening parenthesis at %l", +Loc); return Expr; + when others => -- Surely a parse error... null; -- cgit v1.2.3