diff options
Diffstat (limited to 'translate/grt/grt-lib.ads')
| -rw-r--r-- | translate/grt/grt-lib.ads | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/translate/grt/grt-lib.ads b/translate/grt/grt-lib.ads index 2c25ab161..5bb2cd437 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; |