From 005c57ece3507c4336c51f36b2febd2e6c3b4835 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 18 Jan 2017 06:47:58 +0100
Subject: evaluation: handle null array in aggregate_to_simple_aggregate
---
src/vhdl/evaluation.adb | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb
index baa100c87..cbdec289f 100644
--- a/src/vhdl/evaluation.adb
+++ b/src/vhdl/evaluation.adb
@@ -563,7 +563,7 @@ package body Evaluation is
Index_Range : constant Iir := Eval_Static_Range (Index_Type);
Len : constant Iir_Int64 := Eval_Discrete_Range_Length (Index_Range);
Assocs : constant Iir := Get_Association_Choices_Chain (Aggr);
- Vect : Iir_Array (0 .. Natural (Len - 1));
+ Vect : Iir_Array (0 .. Integer (Len - 1));
List : Iir_List;
Assoc : Iir;
Expr : Iir;
--
cgit v1.2.3