瀏覽代碼

* generate a def. file only if really necessary

(cherry picked from commit d3615788a8e4c57f113f1d1cd6e76be97bf96664)
florian 3 年之前
父節點
當前提交
58dacbd625
共有 1 個文件被更改,包括 6 次插入2 次删除
  1. 6 2
      compiler/options.pas

+ 6 - 2
compiler/options.pas

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