diff options
| author | gingold | 2008-07-22 01:29:29 +0000 |
|---|---|---|
| committer | gingold | 2008-07-22 01:29:29 +0000 |
| commit | 5ee7db2803bac0a19f6d39891e41582400b8b457 (patch) | |
| tree | 3785bba93b7f1939f7e5c837bc118bd9074286e5 /translate/grt/grt-lib.ads | |
| parent | 1ab385604669206c3874218ae1471d66561a54c8 (diff) | |
| download | ghdl-5ee7db2803bac0a19f6d39891e41582400b8b457.tar.gz ghdl-5ee7db2803bac0a19f6d39891e41582400b8b457.tar.bz2 ghdl-5ee7db2803bac0a19f6d39891e41582400b8b457.zip | |
Add --ieee-asserts= option.
Correctly elaborate anonymous subtypes in associations.
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 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; |