瀏覽代碼

* also look for a source file ending in .p when checking whether the sources
of a pre-compiled unit are available on tf_p_ext_support systems
(patch by Aleksa Todorovic, mantis #17907)
* fixed indentation/flow of this and a similar check elsewhere

git-svn-id: trunk@16328 -

Jonas Maebe 14 年之前
父節點
當前提交
44dc6e7283
共有 1 個文件被更改,包括 6 次插入2 次删除
  1. 6 2
      compiler/fppu.pas

+ 6 - 2
compiler/fppu.pas

@@ -306,7 +306,9 @@ var
               { Check for .pas }
               Found:=UnitExists(pasext,hs);
             end;
-           if not Found and (m_mac in current_settings.modeswitches) then
+           if not Found and
+              ((m_mac in current_settings.modeswitches) or
+               (tf_p_ext_support in target_info.flags)) then
             begin
               { Check for .p, if mode is macpas}
               Found:=UnitExists(pext,hs);
@@ -393,7 +395,9 @@ var
                  Message1(unit_t_unitsearch,ChangeFileExt(sourcefn^,pasext));
                fnd:=FindFile(ChangeFileExt(sourcefn^,pasext),'',true,hs);
              end;
-            if not fnd and ((m_mac in current_settings.modeswitches) or (tf_p_ext_support in target_info.flags)) then
+            if not fnd and
+               ((m_mac in current_settings.modeswitches) or
+                (tf_p_ext_support in target_info.flags)) then
              begin
                if CheckVerbosity(V_Tried) then
                  Message1(unit_t_unitsearch,ChangeFileExt(sourcefn^,pext));