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

* generate a def. file only if really necessary

Browse Source 
(cherry picked from commit d3615788a8)
This commit is contained in:
florian 2021-08-29 21:00:51 +02:00
parent 4597a05c11
commit 58dacbd625
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/options.pas
View File

@ -1437,13 +1437,13 @@ begin
end;
'D' :
begin
include(init_settings.globalswitches,cs_link_deffile);
j:=1;
while j<=length(more) do
begin
case more[j] of
'd' :
begin
include(init_settings.globalswitches,cs_link_deffile);
description:=Copy(more,j+1,255);
break;
end;
@ -1459,6 +1459,7 @@ begin
end;
'v' :
begin
include(init_settings.globalswitches,cs_link_deffile);
dllversion:=Copy(more,j+1,255);
l:=pos('.',dllversion);
dllminor:=0;
@ -1489,7 +1490,10 @@ begin
break;
end;
'w' :
usewindowapi:=true;
begin
include(init_settings.globalswitches,cs_link_deffile);
usewindowapi:=true;
end;
'-' :
begin
exclude(init_settings.globalswitches,cs_link_deffile);