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 /files_map.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 'files_map.adb')
| -rw-r--r-- | files_map.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/files_map.adb b/files_map.adb index 629911aef..e92cbc788 100644 --- a/files_map.adb +++ b/files_map.adb @@ -22,7 +22,6 @@ with Ada.Unchecked_Deallocation; with GNAT.Table; with GNAT.OS_Lib; with GNAT.Directory_Operations; -with System; with Name_Table; use Name_Table; with Str_Table; with Ada.Calendar; @@ -859,8 +858,8 @@ package body Files_Map is function Is_Eq (L : Time_Stamp_Id; R : Time_Stamp_Id) return Boolean is use Str_Table; - L_Str : String_Fat_Acc := Get_String_Fat_Acc (String_Id (L)); - R_Str : String_Fat_Acc := Get_String_Fat_Acc (String_Id (R)); + L_Str : constant String_Fat_Acc := Get_String_Fat_Acc (String_Id (L)); + R_Str : constant String_Fat_Acc := Get_String_Fat_Acc (String_Id (R)); begin return L_Str (1 .. Time_Stamp_String'Length) = R_Str (1 .. Time_Stamp_String'Length); @@ -869,8 +868,8 @@ package body Files_Map is function Is_Gt (L : Time_Stamp_Id; R : Time_Stamp_Id) return Boolean is use Str_Table; - L_Str : String_Fat_Acc := Get_String_Fat_Acc (String_Id (L)); - R_Str : String_Fat_Acc := Get_String_Fat_Acc (String_Id (R)); + L_Str : constant String_Fat_Acc := Get_String_Fat_Acc (String_Id (L)); + R_Str : constant String_Fat_Acc := Get_String_Fat_Acc (String_Id (R)); begin return L_Str (1 .. Time_Stamp_String'Length) > R_Str (1 .. Time_Stamp_String'Length); |