From 44dc6e72836aa8592095f5c085633494c50d6af9 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Fri, 12 Nov 2010 11:50:40 +0000 Subject: [PATCH] * 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 - --- compiler/fppu.pas | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/compiler/fppu.pas b/compiler/fppu.pas index 0566849326..9a1d7ade74 100644 --- a/compiler/fppu.pas +++ b/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));