paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 15:20:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also look for a source file ending in .p when checking whether the sources

Browse Source 
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 -
This commit is contained in:
Jonas Maebe 2010-11-12 11:50:40 +00:00
parent a11ec43ca5
commit 44dc6e7283
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/fppu.pas
View File

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