diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-10-29 07:58:42 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-10-29 07:59:33 +0100 |
| commit | 997d378b6357a202ce9457f664f1e258aaeed6df (patch) | |
| tree | 750aa33322a7ada4774ea6a7f24eb960de430037 | |
| parent | 9a2181109880a172a87fa318bd4be95d703734a2 (diff) | |
| download | ghdl-997d378b6357a202ce9457f664f1e258aaeed6df.tar.gz ghdl-997d378b6357a202ce9457f664f1e258aaeed6df.tar.bz2 ghdl-997d378b6357a202ce9457f664f1e258aaeed6df.zip | |
vhdl-parse: do not skip token in case of error. Fix #1500
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index a2b0ad79d..9bae823b2 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -5763,7 +5763,7 @@ package body Vhdl.Parse is Set_Location (Res, Loc); Chain_Init (First, Last); loop - if Current_Token = Tok_Others then + if Current_Token = Tok_Others and then Expr = Null_Iir then Assoc := Parse_A_Choice (Null_Iir, Loc); Expect (Tok_Double_Arrow); |