From 285084bf0f827af98463a07f520d418b6e999c2a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
Date: Thu, 8 Sep 2016 03:37:39 +0100
Subject: Move Library_To_File_Name from Back_End to Libraries

---
 src/ghdldrv/ghdllocal.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/ghdldrv/ghdllocal.adb')

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index 193910896..3a9ec6a04 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -1009,7 +1009,7 @@ package body Ghdllocal is
       end if;
       Perform_Action (Command_Clean (Cmd), Args);
       Delete (Image (Libraries.Work_Directory)
-              & Back_End.Library_To_File_Name (Libraries.Work_Library)
+              & Libraries.Library_To_File_Name (Libraries.Work_Library)
               & Nul);
    end Perform_Action;
 
-- 
cgit v1.2.3