瀏覽代碼

* partial fix #40934: don't remove the DEF file if cs_link_deffile is set (thus if the user explicitly wants the file)

Sven/Sarah Barth 9 月之前
父節點
當前提交
ef16a99c08
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/gendef.pas

+ 1 - 1
compiler/gendef.pas

@@ -70,7 +70,7 @@ end;
 destructor tdeffile.destroy;
 destructor tdeffile.destroy;
 begin
 begin
   if WrittenOnDisk and
   if WrittenOnDisk and
-     not(cs_link_nolink in current_settings.globalswitches) then
+     ([cs_link_nolink,cs_link_deffile]*current_settings.globalswitches=[]) then
     DeleteFile(FName);
     DeleteFile(FName);
   importlist.Free;
   importlist.Free;
   exportlist.Free;
   exportlist.Free;