Bläddra i källkod

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

git-svn-id: trunk@7624 -
yury 18 år sedan
förälder
incheckning
eac1c293e4
1 ändrade filer med 1 tillägg och 1 borttagningar
  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);