Browse Source

* generate a def. file only if really necessary

florian 3 years ago
parent
commit
9305bff861
1 changed files with 6 additions and 2 deletions
  1. 6 2
      compiler/options.pas

+ 6 - 2
compiler/options.pas

@@ -1740,13 +1740,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;
@@ -1762,6 +1762,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;
@@ -1792,7 +1793,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);