From c6cbd45bb6d1b4dd77094374f802e53957cf664b Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 14 Nov 2016 21:01:25 +0100 Subject: parse: improve error message on missing 'generic map' --- src/vhdl/parse.adb | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb index 99c459027..9cb89c5cd 100644 --- a/src/vhdl/parse.adb +++ b/src/vhdl/parse.adb @@ -6805,8 +6805,13 @@ package body Parse is function Parse_Generic_Map_Aspect return Iir is begin Expect (Tok_Generic); + + -- Skip 'generic'. Scan_Expect (Tok_Map); + + -- Skip 'map'. Scan; + return Parse_Association_List_In_Parenthesis; end Parse_Generic_Map_Aspect; @@ -8539,6 +8544,10 @@ package body Parse is if Current_Token = Tok_Generic then Set_Generic_Map_Aspect_Chain (Res, Parse_Generic_Map_Aspect); + elsif Current_Token = Tok_Left_Paren then + Error_Msg_Parse ("missing 'generic map'"); + Set_Generic_Map_Aspect_Chain + (Res, Parse_Association_List_In_Parenthesis); end if; Expect (Tok_Semi_Colon); -- cgit v1.2.3