diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-01-02 20:53:19 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-01-02 20:53:19 +0100 |
commit | 9195e559d820e6fee7325da1502481d2f884084d (patch) | |
tree | 2aa7af54b54ce8e2ab1cca3e91cc96b139fa79b4 /src/vhdl/sem_expr.adb | |
parent | 46813f4ed4010b27ce83b8b35d866539de6746a2 (diff) | |
download | ghdl-9195e559d820e6fee7325da1502481d2f884084d.tar.gz ghdl-9195e559d820e6fee7325da1502481d2f884084d.tar.bz2 ghdl-9195e559d820e6fee7325da1502481d2f884084d.zip |
sem_expr: do not reorder choices, adjust for consequences.
Diffstat (limited to 'src/vhdl/sem_expr.adb')
-rw-r--r-- | src/vhdl/sem_expr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index f22ccb2b9..ff9cb177f 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -2962,7 +2962,7 @@ package body Sem_Expr is end if; Sem_Check_Continuous_Choices (Choice_Chain, Choice_Type, Low, High, Loc, - Is_Sub_Range, not Is_Case_Stmt); + Is_Sub_Range, False); -- not Is_Case_Stmt); end Sem_Choices_Range; -- Perform semantisation on a (sub)aggregate AGGR, which is of type |