diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-13 08:35:53 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-13 09:27:06 +0200 |
commit | 3defa9315e4414f6b28832aa2677a269a47e4acd (patch) | |
tree | dadfb6af0884b0843b78725e37d806a7afe80d5f /src/vhdl/vhdl-sem_stmts.adb | |
parent | 7cf6e5aca65df5e9f5238ac2ce65d44c06165fd2 (diff) | |
download | ghdl-3defa9315e4414f6b28832aa2677a269a47e4acd.tar.gz ghdl-3defa9315e4414f6b28832aa2677a269a47e4acd.tar.bz2 ghdl-3defa9315e4414f6b28832aa2677a269a47e4acd.zip |
vhdl-parse: always keep parentheses in case expression. For #1364
Diffstat (limited to 'src/vhdl/vhdl-sem_stmts.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_stmts.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb index 691c532cf..829bf2d20 100644 --- a/src/vhdl/vhdl-sem_stmts.adb +++ b/src/vhdl/vhdl-sem_stmts.adb @@ -1087,6 +1087,10 @@ package body Vhdl.Sem_Stmts is when Iir_Kind_Simple_Name | Iir_Kind_Selected_Name => return Check_Odcat_Expression (Get_Named_Entity (Expr)); + when Iir_Kind_Parenthesis_Expression => + -- GHDL: not part of the list but expected to be allowed by + -- IR2080 and too commonly used! + return Check_Odcat_Expression (Get_Expression (Expr)); when others => Error_Msg_Sem (+Choice, "bad form of case expression (refer to LRM 8.8)"); |