瀏覽代碼

handle the cases where f contains an absolute path

git-svn-id: trunk@24726 -
Károly Balogh 12 年之前
父節點
當前提交
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