diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-08-30 13:30:19 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-08-30 13:30:19 +0000 |
| commit | cd9300765e7e3fd43e450777e98a778146f700c2 (patch) | |
| tree | f013fea17ae4eee9c1649e63b99b9bfe377fafb4 /ieee-vital_timing.adb | |
| parent | 4b6571671497ecc1f846bfa49678254e14511fc9 (diff) | |
| download | ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.tar.gz ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.tar.bz2 ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.zip | |
Switch to gcc 4.3
Don't use tagged types in grt (not supported by recent versions of GNAT)
Fix warnings
Diffstat (limited to 'ieee-vital_timing.adb')
| -rw-r--r-- | ieee-vital_timing.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ieee-vital_timing.adb b/ieee-vital_timing.adb index c3bdf98f3..bf9ab8221 100644 --- a/ieee-vital_timing.adb +++ b/ieee-vital_timing.adb @@ -417,7 +417,7 @@ package body Ieee.Vital_Timing is use Name_Table; Len : Natural; - P : Natural := Gen_Name_Pos; + P : constant Natural := Gen_Name_Pos; C : Character; begin Len := 0; @@ -969,8 +969,10 @@ package body Ieee.Vital_Timing is (Decl : Iir_Constant_Interface_Declaration) is Oport : Iir; + pragma Unreferenced (Oport); Pos : Natural; Kind : Timing_Generic_Type_Kind; + pragma Unreferenced (Kind); begin if not Check_Timing_Generic_Prefix (Decl, 8) then return; @@ -1012,6 +1014,7 @@ package body Ieee.Vital_Timing is Iport : Iir; Oport : Iir; Cport : Iir; + pragma Unreferenced (Cport); Clock_Start : Natural; Clock_End : Natural; begin |