Fixed: absolute paths in includes couldn't get resolved (irony.)

This commit is contained in:
Mark van Renswoude 2010-09-10 10:38:31 +00:00
parent bb5bf6aabf
commit 66ce9ae1c9
1 changed files with 5 additions and 1 deletions

View File

@ -389,6 +389,8 @@ begin
CaseSensitive := False;
Duplicates := dupIgnore;
end;
IncludePaths.Add('');
end;
@ -539,7 +541,9 @@ begin
for includeIndex := 0 to Pred(IncludePaths.Count) do
begin
includePath := IncludeTrailingPathDelimiter(IncludePaths[includeIndex]);
includePath := IncludePaths[includeIndex];
if Length(includePath) > 0 then
includePath := IncludeTrailingPathDelimiter(includePath);
if FileExists(includePath + ALocation) then
begin