Просмотр исходного кода

handle the cases where f contains an absolute path

git-svn-id: trunk@24726 -
Károly Balogh 12 лет назад
Родитель
Сommit
36bf03372b
1 измененных файлов с 8 добавлено и 0 удалено
  1. 8 0
      compiler/cfileutl.pas

+ 8 - 0
compiler/cfileutl.pas

@@ -1203,6 +1203,14 @@ end;
        StartPos, EndPos, L: LongInt;
      begin
        Result:=False;
+
+       if (path_absolute(f)) then
+         begin
+           Result:=FileExistsNonCase('',f, allowcache, foundfile);
+           if Result then
+             Exit;
+         end;
+
        StartPos := 1;
        L := Length(Path);
        repeat