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/disp_tree.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/src/vhdl/disp_tree.adb b/src/vhdl/disp_tree.adb
index 21c9d34..62fc3c4 100644
--- a/src/vhdl/disp_tree.adb
+++ b/src/vhdl/disp_tree.adb
@@ -21,7 +21,6 @@
 with Ada.Text_IO; use Ada.Text_IO;
 with Name_Table;
 with Tokens;
-with Errorout;
 with Files_Map;
 with PSL.Dump_Tree;
 with Nodes_Meta;
@@ -309,7 +308,7 @@ package body Disp_Tree is
 
    function Image_Location_Type (Loc : Location_Type) return String is
    begin
-      return Errorout.Get_Location_Str (Loc);
+      return Files_Map.Image (Loc);
    end Image_Location_Type;
 
    function Image_Iir_Direction (Dir : Iir_Direction) return String is
-- 
cgit