Преглед изворни кода

* 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;
 begin
   if WrittenOnDisk and
-     not(cs_link_nolink in current_settings.globalswitches) then
+     ([cs_link_nolink,cs_link_deffile]*current_settings.globalswitches=[]) then
     DeleteFile(FName);
   importlist.Free;
   exportlist.Free;