Browse Source

handle the cases where f contains an absolute path

git-svn-id: trunk@24726 -
Károly Balogh 12 năm trước cách đây
mục cha
commit
36bf03372b
1 tập tin đã thay đổi với 8 bổ sung0 xóa
  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