diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-11-16 20:29:50 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-11-16 20:29:50 +0100 |
| commit | a7df6cb6955cb89799e5da52c7a0241c3b82adb4 (patch) | |
| tree | 88c8612fadf253314f1d3740760f0b1b6bdeb0ed /src/vhdl/parse.adb | |
| parent | 2be707f77a48aeb8213f1d9f37ee1dd34b4bdcee (diff) | |
| download | ghdl-a7df6cb6955cb89799e5da52c7a0241c3b82adb4.tar.gz ghdl-a7df6cb6955cb89799e5da52c7a0241c3b82adb4.tar.bz2 ghdl-a7df6cb6955cb89799e5da52c7a0241c3b82adb4.zip | |
parse: factorize, improve comment.
Diffstat (limited to 'src/vhdl/parse.adb')
| -rw-r--r-- | src/vhdl/parse.adb | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb index 5b2dcea9d..7623d49c3 100644 --- a/src/vhdl/parse.adb +++ b/src/vhdl/parse.adb @@ -2463,13 +2463,7 @@ package body Parse is return Decl; end if; - if Current_Token /= Tok_Is then - Error_Msg_Parse ("'is' expected here"); - -- Act as if IS token was forgotten. - else - -- Skip 'is'. - Scan; - end if; + Expect_Scan (Tok_Is, "'is' expected here"); case Current_Token is when Tok_Left_Paren => @@ -2552,7 +2546,7 @@ package body Parse is when others => Error_Msg_Parse - ("type definition starting with a keyword such as RANGE, ARRAY"); + ("type definition starts with a keyword such as RANGE, ARRAY"); Error_Msg_Parse (" FILE, RECORD or '(' is expected here"); Eat_Tokens_Until_Semi_Colon; |