From d57608b610df1d839729d515e07ffc2fbbd715f6 Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 18 Dec 2015 10:27:06 +0000 Subject: [PATCH] IDE: initial setup dialog: se environment vars FPCDIR and PP, patch from Maciej git-svn-id: trunk@50901 - --- ide/initialsetupproc.pas | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/ide/initialsetupproc.pas b/ide/initialsetupproc.pas index 985c7e1596..fa9271cd13 100644 --- a/ide/initialsetupproc.pas +++ b/ide/initialsetupproc.pas @@ -467,6 +467,10 @@ begin 'EnvironmentOptions/CompilerFilename/Value'); if CheckFile(AFilename,Result) then exit; + // check environment variable PP + AFileName := GetEnvironmentVariableUTF8('PP'); + if CheckFile(AFilename,Result) then exit; + // search fpc(.exe) in PATH if CheckFile('fpc'+ExeExt,Result) then exit; @@ -730,6 +734,10 @@ begin 'EnvironmentOptions/FPCSourceDirectory/Value'); if Check(AFilename,Result) then exit; + // check environment variable FPCDIR + AFileName := GetEnvironmentVariableUTF8('FPCDIR'); + if Check(AFilename,Result) then exit; + // check history Dirs:=EnvironmentOptions.FPCSourceDirHistory; if Dirs<>nil then