From 2e968e60ccadeebd1186dca7286d34bbf76d7296 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 16 Dec 2014 08:54:39 +0100 Subject: translation: give full path for to debug filename. --- src/vhdl/translate/translation.adb | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'src/vhdl/translate/translation.adb') diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb index 42ffbab6e..7ba0085e1 100644 --- a/src/vhdl/translate/translation.adb +++ b/src/vhdl/translate/translation.adb @@ -22,6 +22,7 @@ with Ada.Text_IO; with Types; use Types; with Errorout; use Errorout; with Name_Table; -- use Name_Table; +with Files_Map; with Iirs_Utils; use Iirs_Utils; with Std_Package; use Std_Package; with Sem_Specs; @@ -270,8 +271,14 @@ package body Translation is Set_Global_Storage (O_Storage_External); end if; - New_Debug_Filename_Decl - (Name_Table.Image (Get_Design_File_Filename (Design_File))); + declare + Pathname : constant String := Files_Map.Get_Pathname + (Get_Design_File_Directory (Design_File), + Get_Design_File_Filename (Design_File), + False); + begin + New_Debug_Filename_Decl (Pathname); + end; Current_Library_Unit := El; -- cgit v1.2.3