paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 16:50:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't add target_info.unit_env to the unit search path

Browse Source 
if it's not set/empty

git-svn-id: trunk@8931 -
This commit is contained in:
Jonas Maebe 2007-10-25 19:30:48 +00:00
parent f91f060acb
commit 81c5abfb72
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/options.pas
View File

@ -2079,6 +2079,7 @@ end;
procedure read_arguments(cmd:string); procedure read_arguments(cmd:string);
var var
env: ansistring;
i : tfeature; i : tfeature;
begin begin
option:=coption.create; option:=coption.create;
@ -2344,7 +2345,11 @@ begin
if inputfilepath<>'' then if inputfilepath<>'' then
Unitsearchpath.AddPath(inputfilepath,true); Unitsearchpath.AddPath(inputfilepath,true);
if not disable_configfile then if not disable_configfile then
begin
env:=GetEnvironmentVariable(target_info.unit_env);
if env<>'' then
UnitSearchPath.AddPath(GetEnvironmentVariable(target_info.unit_env),false); UnitSearchPath.AddPath(GetEnvironmentVariable(target_info.unit_env),false);
end;
{$ifdef Unix} {$ifdef Unix}
fpcdir:=FixPath(GetEnvironmentVariable('FPCDIR'),false); fpcdir:=FixPath(GetEnvironmentVariable('FPCDIR'),false);