From abd02c225a47ad960bb7d4044d9ad0b50e2d83d6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Thu, 24 Sep 2015 21:08:49 +0200
Subject: Fix crash for access type in aggregate.

Fix ticket95
---
 src/vhdl/evaluation.adb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb
index c2283c5..b85b093 100644
--- a/src/vhdl/evaluation.adb
+++ b/src/vhdl/evaluation.adb
@@ -2574,6 +2574,10 @@ package body Evaluation is
                end;
             end;
 
+         when Iir_Kind_Access_Type_Definition
+           | Iir_Kind_Access_Subtype_Definition =>
+            return True;
+
          when Iir_Kind_Array_Type_Definition
            | Iir_Kind_Record_Type_Definition
            | Iir_Kind_Record_Subtype_Definition =>
-- 
cgit