mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 06:09:22 +02:00
* Evaluate macros when getting LocalUnitDir and GlobalUnitDir
git-svn-id: trunk@15168 -
This commit is contained in:
parent
980c353421
commit
d27093ceba
@ -450,8 +450,8 @@ end;
|
|||||||
|
|
||||||
function TCompilerOptions.LocalUnitDir:string;
|
function TCompilerOptions.LocalUnitDir:string;
|
||||||
begin
|
begin
|
||||||
if FLocalInstallDir<>'' then
|
if LocalInstallDir<>'' then
|
||||||
result:=FLocalInstallDir+'units'+PathDelim+CompilerTarget+PathDelim
|
result:=LocalInstallDir+'units'+PathDelim+CompilerTarget+PathDelim
|
||||||
else
|
else
|
||||||
result:='';
|
result:='';
|
||||||
end;
|
end;
|
||||||
@ -459,8 +459,8 @@ end;
|
|||||||
|
|
||||||
function TCompilerOptions.GlobalUnitDir:string;
|
function TCompilerOptions.GlobalUnitDir:string;
|
||||||
begin
|
begin
|
||||||
if FGlobalInstallDir<>'' then
|
if GlobalInstallDir<>'' then
|
||||||
result:=FGlobalInstallDir+'units'+PathDelim+CompilerTarget+PathDelim
|
result:=GlobalInstallDir+'units'+PathDelim+CompilerTarget+PathDelim
|
||||||
else
|
else
|
||||||
result:='';
|
result:='';
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user