diff options
| author | Ondrej Ille <ondrej.ille@gmail.com> | 2021-04-10 08:55:11 +0200 |
|---|---|---|
| committer | tgingold <tgingold@users.noreply.github.com> | 2021-04-11 08:41:10 +0200 |
| commit | 4db4532626c97a24037dd855e8044ad0639e3a71 (patch) | |
| tree | a23c79ae0aa4483dbe0e27258b70fc828af3acff /src/vhdl/vhdl-parse.adb | |
| parent | 686d61a8a1bfb16cb1b1eda52ec07dde23efd995 (diff) | |
| download | ghdl-4db4532626c97a24037dd855e8044ad0639e3a71.tar.gz ghdl-4db4532626c97a24037dd855e8044ad0639e3a71.tar.bz2 ghdl-4db4532626c97a24037dd855e8044ad0639e3a71.zip | |
src: Allow case generate only in VHDL 2008.
Diffstat (limited to 'src/vhdl/vhdl-parse.adb')
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index 696dc43a2..d3cc8e0b2 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -10201,6 +10201,7 @@ package body Vhdl.Parse is Stmt := Parse_If_Generate_Statement (Label, Loc); when Tok_Case => Postponed_Not_Allowed; + Check_Vhdl_At_Least_2008 ("case generate"); Stmt := Parse_Case_Generate_Statement (Label, Loc); when Tok_Component | Tok_Entity |