diff options
| -rw-r--r-- | src/vhdl/translate/translation.adb | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb index 42ffbab..7ba0085 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; |