paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 13:18:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-10-11 16:11:00 +02:00
parent dcf6a97d64
commit ef16a99c08
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/gendef.pas
View File

@ -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;