Răsfoiți Sursa

handle the cases where f contains an absolute path

git-svn-id: trunk@24726 -
Károly Balogh 12 ani în urmă
părinte
comite
36bf03372b
1 a modificat fișierele cu 8 adăugiri și 0 ștergeri
  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