Parcourir la source

* fixed "EInOutError : File not found" exception if .rc file not found.

git-svn-id: trunk@7624 -
yury il y a 18 ans
Parent
commit
eac1c293e4
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      compiler/comprsrc.pas

+ 1 - 1
compiler/comprsrc.pas

@@ -187,7 +187,7 @@ var
   i: longint;
 begin
   Result:=CompareText(ExtractFileExt(fn), target_info.resext) = 0;
-  if Result then exit;
+  if Result or not FileExists(fn, False) then exit;
   oldfmode:=Filemode;
   Filemode:=0;
   assign(f,fn);