diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-22 06:35:10 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-22 06:35:10 +0100 |
| commit | a9d7fcca179eb2e33a4a8df57ab3061c876af0c7 (patch) | |
| tree | f1dd2f680c5dfa54b638401fb1018d1d72687624 | |
| parent | f0aeb9278bec7c1b9ebf9e96a08c453966f0510d (diff) | |
| download | ghdl-a9d7fcca179eb2e33a4a8df57ab3061c876af0c7.tar.gz ghdl-a9d7fcca179eb2e33a4a8df57ab3061c876af0c7.tar.bz2 ghdl-a9d7fcca179eb2e33a4a8df57ab3061c876af0c7.zip | |
Don't evaluate qualified aggregate.
Temporary fix #242
| -rw-r--r-- | src/vhdl/evaluation.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index 55adff08f..a9ea3b18f 100644 --- a/src/vhdl/evaluation.adb +++ b/src/vhdl/evaluation.adb @@ -2774,7 +2774,8 @@ package body Evaluation is case Get_Kind (Expr) is when Iir_Kind_Type_Conversion | Iir_Kind_Qualified_Expression => - return Can_Eval_Composite_Value (Get_Expression (Expr)); + -- Not yet handled. + return False; when Iir_Kinds_Denoting_Name => return Can_Eval_Composite_Value (Get_Named_Entity (Expr), Top); when Iir_Kind_Constant_Declaration => |