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 /errorout.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 'errorout.adb')
| -rw-r--r-- | errorout.adb | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/errorout.adb b/errorout.adb index eed8b6f16..8128dd117 100644 --- a/errorout.adb +++ b/errorout.adb @@ -17,8 +17,6 @@ -- 02111-1307, USA. with Ada.Text_IO; with Ada.Command_Line; -with Types; use Types; -with Iirs; use Iirs; with Scan; with Tokens; use Tokens; with Name_Table; @@ -50,8 +48,9 @@ package body Errorout is Put_Line (Standard_Error, Str); end Put_Line; - procedure Disp_Natural (Val: Natural) is - Str: String := Natural'Image (Val); + procedure Disp_Natural (Val: Natural) + is + Str: constant String := Natural'Image (Val); begin Put (Str(Str'First + 1 .. Str'Last)); end Disp_Natural; @@ -810,8 +809,8 @@ package body Errorout is (Name : Name_Id; Line, Col : Natural; Filename : Boolean) return String is - Line_Str : String := Natural'Image (Line); - Col_Str : String := Natural'Image (Col); + Line_Str : constant String := Natural'Image (Line); + Col_Str : constant String := Natural'Image (Col); begin if Filename then return Name_Table.Image (Name) @@ -861,7 +860,7 @@ package body Errorout is function Image (N : Iir_Int64) return String is - Res : String := Iir_Int64'Image (N); + Res : constant String := Iir_Int64'Image (N); begin if Res (1) = ' ' then return Res (2 .. Res'Last); @@ -917,7 +916,7 @@ package body Errorout is declare use Name_Table; - Id : Name_Id := Get_Identifier (Subprg); + Id : constant Name_Id := Get_Identifier (Subprg); begin Image (Id); case Id is |