From 69bbb91b44a1677fd1a0e5accce91f756b06727a Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 9 May 2015 22:01:45 +0200
Subject: Rename Get_Location_Str to Image.

---
 src/vhdl/sem_scopes.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/vhdl/sem_scopes.adb')

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;
-- 
cgit