paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-30 20:07:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: RunFPCVerbose: append always -Fr if available

Browse Source 
git-svn-id: trunk@60670 -
This commit is contained in:
mattias 2019-03-14 19:41:30 +00:00
parent 637906ce75
commit 5ecb90b18b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/definetemplates.pas
View File

@ -8862,6 +8862,9 @@ begin
if FullVersion<>'' then begin if FullVersion<>'' then begin
// run fpc/pas2js and parse output // run fpc/pas2js and parse output
if (Pos('-Fr',ExtraOptions)<1) and (Pos('-Fr',Caches.ExtraOptions)>0) then
ExtraOptions:=Trim(ExtraOptions+' '+Caches.ExtraOptions);
RunFPCVerbose(Compiler,TestFilename,CfgFiles,RealCompiler,UnitPaths, RunFPCVerbose(Compiler,TestFilename,CfgFiles,RealCompiler,UnitPaths,
IncludePaths,UnitScopes,Defines,Undefines,ExtraOptions); IncludePaths,UnitScopes,Defines,Undefines,ExtraOptions);
//debugln(['TPCTargetConfigCache.Update UnitPaths="',UnitPaths.Text,'"']); //debugln(['TPCTargetConfigCache.Update UnitPaths="',UnitPaths.Text,'"']);