diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-05-29 13:48:03 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-05-29 13:48:03 +0200 |
| commit | b3530fbe93168d99c0409240d4a6e7cfaea4b728 (patch) | |
| tree | b0917dd4e1411ab416be9979850a1e505479f207 /disp_tree.adb | |
| parent | 066b95d502a24d30c7cec0fc203cae271f488ed0 (diff) | |
| download | ghdl-b3530fbe93168d99c0409240d4a6e7cfaea4b728.tar.gz ghdl-b3530fbe93168d99c0409240d4a6e7cfaea4b728.tar.bz2 ghdl-b3530fbe93168d99c0409240d4a6e7cfaea4b728.zip | |
Rework aggregate (when type of context is not static).
Diffstat (limited to 'disp_tree.adb')
| -rw-r--r-- | disp_tree.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/disp_tree.adb b/disp_tree.adb index 0656aa9da..8c3ef6269 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 => |