From eac1c293e4d07985ebfa1c3c94fadf7fa019f349 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Sun, 10 Jun 2007 13:04:56 +0000
Subject: [PATCH] * fixed "EInOutError : File not found" exception if .rc file
 not found.

git-svn-id: trunk@7624 -
---
 compiler/comprsrc.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/comprsrc.pas b/compiler/comprsrc.pas
index 1e7eafb76d..bc3f3cc318 100644
--- a/compiler/comprsrc.pas
+++ b/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);