ghdl --clean: consider executable suffix (for windows).

1 files changed, 5 insertions, 2 deletions

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;