From aa10e0e6a0c8e613b70abd17c7ec841d8108d942 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 24 Dec 2016 15:37:06 +0100
Subject: trans-chap7: workaround compiler bug.

---
 src/vhdl/translate/trans-chap7.adb | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src')

diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb
index aeffd32ea..4ab48bdca 100644
--- a/src/vhdl/translate/trans-chap7.adb
+++ b/src/vhdl/translate/trans-chap7.adb
@@ -186,6 +186,12 @@ package body Trans.Chap7 is
                Assocs : constant Iir := Get_Association_Choices_Chain (Aggr);
                Vect : Iir_Array (0 .. Integer (Len - 1));
             begin
+               if Len = 0 then
+                  --  Should be automatically handled, but fails with some
+                  --  old versions of gnat (gnatgpl 2014 with -O).
+                  return;
+               end if;
+
                Build_Array_Choices_Vector (Vect, Index_Range, Assocs);
 
                if Dim = Nbr_Dims then
-- 
cgit v1.2.3