From a9d7fcca179eb2e33a4a8df57ab3061c876af0c7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 22 Dec 2016 06:35:10 +0100
Subject: Don't evaluate qualified aggregate.

Temporary fix #242
---
 src/vhdl/evaluation.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

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 =>
-- 
cgit v1.2.3