diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-09-23 03:46:07 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-23 03:46:07 +0200 |
| commit | e4c208b46c810974f6d6e91b8c5b838dd7d1220d (patch) | |
| tree | fb0a0cece9429695d55cfdde52720791adc0ebea /src/ghdldrv/ghdllocal.adb | |
| parent | aed77c8fa1f4d892c05530916ef13be1eda7c005 (diff) | |
| download | ghdl-e4c208b46c810974f6d6e91b8c5b838dd7d1220d.tar.gz ghdl-e4c208b46c810974f6d6e91b8c5b838dd7d1220d.tar.bz2 ghdl-e4c208b46c810974f6d6e91b8c5b838dd7d1220d.zip | |
Remove elaboration file in current directory.
Fix issue #147
Diffstat (limited to 'src/ghdldrv/ghdllocal.adb')
| -rw-r--r-- | src/ghdldrv/ghdllocal.adb | 5 |
1 files 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); |