paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 06:06:17 +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; end;
'D' : 'D' :
begin begin
include(init_settings.globalswitches,cs_link_deffile);
j:=1; j:=1;
while j<=length(more) do while j<=length(more) do
begin begin
case more[j] of case more[j] of
'd' : 'd' :
begin begin
include(init_settings.globalswitches,cs_link_deffile);
description:=Copy(more,j+1,255); description:=Copy(more,j+1,255);
break; break;
end; end;
@ -1459,6 +1459,7 @@ begin
end; end;
'v' : 'v' :
begin begin
include(init_settings.globalswitches,cs_link_deffile);
dllversion:=Copy(more,j+1,255); dllversion:=Copy(more,j+1,255);
l:=pos('.',dllversion); l:=pos('.',dllversion);
dllminor:=0; dllminor:=0;
@ -1489,7 +1490,10 @@ begin
break; break;
end; end;
'w' : 'w' :
usewindowapi:=true; begin
include(init_settings.globalswitches,cs_link_deffile);
usewindowapi:=true;
end;
'-' : '-' :
begin begin
exclude(init_settings.globalswitches,cs_link_deffile); exclude(init_settings.globalswitches,cs_link_deffile);