From e4c208b46c810974f6d6e91b8c5b838dd7d1220d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 23 Sep 2016 03:46:07 +0200 Subject: Remove elaboration file in current directory. Fix issue #147 --- src/ghdldrv/ghdllocal.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index ff54513fb..0d4c035e0 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -935,10 +935,10 @@ package body Ghdllocal is procedure Delete_Top_Unit (Str : String) is begin -- Delete elaboration file - Delete_Asm_Obj (Image (Libraries.Work_Directory) & Elab_Prefix & Str); + Delete_Asm_Obj (Elab_Prefix & Str); -- Delete file list. - Delete (Image (Libraries.Work_Directory) & Str & List_Suffix & Nul); + Delete (Str & List_Suffix & Nul); -- Delete executable. Delete (Str & Nul); @@ -966,6 +966,7 @@ package body Ghdllocal is Delete_Asm_Obj (Str.all); Free (Str); + -- Try any possible top-level names Design_Unit := Get_First_Design_Unit (File); while Design_Unit /= Null_Iir loop Lib_Unit := Get_Library_Unit (Design_Unit); -- cgit v1.2.3