From b75d703676ab830ea3e5731e1965d1d89879a456 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 29 Aug 2015 07:57:12 +0200
Subject: Replace fat accesses by bounds accesses

translate: separate info for signals from object.
Improve some error messages.
---
 src/vhdl/translate/trans-chap7.ads | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/vhdl/translate/trans-chap7.ads')

diff --git a/src/vhdl/translate/trans-chap7.ads b/src/vhdl/translate/trans-chap7.ads
index 8aa9042..2434c3b 100644
--- a/src/vhdl/translate/trans-chap7.ads
+++ b/src/vhdl/translate/trans-chap7.ads
@@ -114,6 +114,10 @@ package Trans.Chap7 is
    procedure Translate_Aggregate
      (Target : Mnode; Target_Type : Iir; Aggr : Iir);
 
+   --  Convert bounds access PTR to a fat pointer.
+   function Bounds_Acc_To_Fat_Pointer (Ptr : O_Dnode; Acc_Type : Iir)
+                                      return Mnode;
+
    --  Translate implicit functions defined by a type.
    type Implicit_Subprogram_Infos is private;
    procedure Init_Implicit_Subprogram_Infos
-- 
cgit