paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* generate a def. file only if really necessary

Browse Source
This commit is contained in:
florian 2021-08-29 21:00:51 +02:00 committed by Michaël Van Canneyt
parent 3ce6cae11d
commit 9305bff861
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

@ -1740,13 +1740,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;
@ -1762,6 +1762,7 @@ begin
end;
'v' :
begin
include(init_settings.globalswitches,cs_link_deffile);
dllversion:=Copy(more,j+1,255);
l:=pos('.',dllversion);
dllminor:=0;
@ -1792,7 +1793,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);