From b3530fbe93168d99c0409240d4a6e7cfaea4b728 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Thu, 29 May 2014 13:48:03 +0200
Subject: Rework aggregate (when type of context is not static).

---
 disp_tree.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'disp_tree.adb')

diff --git a/disp_tree.adb b/disp_tree.adb
index 0656aa9..8c3ef62 100644
--- a/disp_tree.adb
+++ b/disp_tree.adb
@@ -1737,8 +1737,8 @@ package body Disp_Tree is
             Disp_Tree (Get_Aggr_Low_Limit (Tree), Ntab, False);
             Header ("aggr_high_limit:");
             Disp_Tree (Get_Aggr_High_Limit (Tree), Ntab, False);
-            Header ("aggr_max_length:" &
-                    Iir_Int32'Image (Get_Aggr_Max_Length (Tree)));
+            Header ("aggr_min_length:" &
+                    Iir_Int32'Image (Get_Aggr_Min_Length (Tree)));
             Header ("sub_aggregate_info:");
             Disp_Tree (Get_Sub_Aggregate_Info (Tree), Ntab);
          when Iir_Kind_Operator_Symbol =>
-- 
cgit