From 5ee7db2803bac0a19f6d39891e41582400b8b457 Mon Sep 17 00:00:00 2001
From: gingold
Date: Tue, 22 Jul 2008 01:29:29 +0000
Subject: Add --ieee-asserts= option. Correctly elaborate anonymous subtypes in
 associations.

---
 translate/grt/grt-lib.ads | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'translate/grt/grt-lib.ads')

diff --git a/translate/grt/grt-lib.ads b/translate/grt/grt-lib.ads
index 2c25ab1..5bb2cd4 100644
--- a/translate/grt/grt-lib.ads
+++ b/translate/grt/grt-lib.ads
@@ -16,6 +16,7 @@
 --  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 --  02111-1307, USA.
 with Grt.Types; use Grt.Types;
+with Grt.Rtis; use Grt.Rtis;
 
 package Grt.Lib is
    pragma Preelaborate (Grt.Lib);
@@ -24,10 +25,16 @@ package Grt.Lib is
      (Dest : Ghdl_Ptr; Src : Ghdl_Ptr; Size : Ghdl_Index_Type);
 
    procedure Ghdl_Assert_Failed
-     (Str : Std_String_Ptr; Severity : Integer; Loc : Ghdl_Location_Ptr);
+     (Str : Std_String_Ptr;
+      Severity : Integer;
+      Loc : Ghdl_Location_Ptr;
+      Unit : Ghdl_Rti_Access);
 
    procedure Ghdl_Report
-     (Str : Std_String_Ptr; Severity : Integer; Loc : Ghdl_Location_Ptr);
+     (Str : Std_String_Ptr;
+      Severity : Integer;
+      Loc : Ghdl_Location_Ptr;
+      Unit : Ghdl_Rti_Access);
 
    Note_Severity    : constant Integer := 0;
    Warning_Severity : constant Integer := 1;
-- 
cgit