From 712e445efe3b69c2fdecec4dd472390d251541ad Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 19 Dec 2016 08:21:19 +0100 Subject: ghdl --clean: consider executable suffix (for windows). --- src/ghdldrv/ghdllocal.adb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/ghdldrv') diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 411965374..3a6910317 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -852,9 +852,12 @@ package body Ghdllocal is pragma Unreferenced (Cmd); use Name_Table; + Obj_Suffix : constant String_Access := Get_Object_Suffix; + Exec_Suffix : constant String_Access := Get_Executable_Suffix; + procedure Delete_Asm_Obj (Str : String) is begin - Delete (Str & Get_Object_Suffix.all & Nul); + Delete (Str & Obj_Suffix.all & Nul); Delete (Str & Asm_Suffix & Nul); end Delete_Asm_Obj; @@ -867,7 +870,7 @@ package body Ghdllocal is Delete (Str & List_Suffix & Nul); -- Delete executable. - Delete (Str & Nul); + Delete (Str & Exec_Suffix.all & Nul); end Delete_Top_Unit; File : Iir_Design_File; -- cgit v1.2.3