diff options
| author | Tristan Gingold | 2015-05-09 22:01:45 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2015-05-09 22:01:45 +0200 |
| commit | 69bbb91b44a1677fd1a0e5accce91f756b06727a (patch) | |
| tree | b363e3110c984841c09f8d17bc901f0dda8f25f6 /src/vhdl/sem_scopes.adb | |
| parent | 2ef5d28d91f0ec650f2c1fdd10581847375b2bae (diff) | |
| download | ghdl-69bbb91b44a1677fd1a0e5accce91f756b06727a.tar.gz ghdl-69bbb91b44a1677fd1a0e5accce91f756b06727a.tar.bz2 ghdl-69bbb91b44a1677fd1a0e5accce91f756b06727a.zip | |
Rename Get_Location_Str to Image.
Diffstat (limited to 'src/vhdl/sem_scopes.adb')
| -rw-r--r-- | src/vhdl/sem_scopes.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/sem_scopes.adb b/src/vhdl/sem_scopes.adb index f77e6e8..cdc35af 100644 --- a/src/vhdl/sem_scopes.adb +++ b/src/vhdl/sem_scopes.adb @@ -19,6 +19,7 @@ with Ada.Text_IO; with GNAT.Table; with Flags; use Flags; with Name_Table; -- use Name_Table; +with Files_Map; use Files_Map; with Errorout; use Errorout; with Iirs_Utils; use Iirs_Utils; @@ -1277,7 +1278,7 @@ package body Sem_Scopes is Put (": "); Decl := Get_Declaration (Inter); Put (Iir_Kind'Image (Get_Kind (Decl))); - Put_Line (", loc: " & Get_Location_Str (Get_Location (Decl))); + Put_Line (", loc: " & Image (Get_Location (Decl))); if Get_Kind (Decl) in Iir_Kinds_Subprogram_Declaration then Put_Line (" " & Disp_Subprg (Decl)); end if; @@ -1335,7 +1336,7 @@ package body Sem_Scopes is Put (": "); Decl := Get_Declaration (Inter); Put (Iir_Kind'Image (Get_Kind (Decl))); - Put_Line (", loc: " & Get_Location_Str (Get_Location (Decl))); + Put_Line (", loc: " & Image (Get_Location (Decl))); if Get_Kind (Decl) in Iir_Kinds_Subprogram_Declaration then Put_Line (" " & Disp_Subprg (Decl)); end if; |