Browse Source

handle the cases where f contains an absolute path

git-svn-id: trunk@24726 -
Károly Balogh 12 years ago
parent
commit
36bf03372b
1 changed files with 8 additions and 0 deletions
  1. 8 0
      compiler/cfileutl.pas

+ 8 - 0
compiler/cfileutl.pas

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