diff options
| -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 726e8e1f4..c96aaaad1 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -9258,7 +9258,7 @@ package body Vhdl.Parse is exit when Current_Token /= Tok_Elsif; -- Create new alternative. - Clause := Create_Iir (Iir_Kind_If_Generate_Statement); + Clause := Create_Iir (Iir_Kind_If_Generate_Else_Clause); Set_Location (Clause, Loc); Start_Loc := Get_Token_Location; |