diff options
author | giulio <giulio@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-03-20 12:07:31 +0000 |
---|---|---|
committer | giulio <giulio@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-03-20 12:07:31 +0000 |
commit | b42f32893b874f37013a9bc6c0960b762b42601a (patch) | |
tree | 11dcec7fe49f532e6d59f98f5f97b94b848308b0 | |
parent | 5919be21d5271c6c01463fb867b1006faadfcc56 (diff) | |
download | fpc-resources.tar.gz |
* Strip off path from resource file name when resource file is copied to output directory (fixes #11022)resources
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/resources@10509 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/comprsrc.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/comprsrc.pas b/compiler/comprsrc.pas index 68a27928a3..4838881f6c 100644 --- a/compiler/comprsrc.pas +++ b/compiler/comprsrc.pas @@ -414,7 +414,8 @@ begin begin { Copy .res file to units output dir. Otherwise .res file will not be found when only compiled units path is available } - if not CopyResFile(s,ExtractFileName(res.FPStr)) then exit; + res.FPStr:=ExtractFileName(res.FPStr); //store file name only in PPU. + if not CopyResFile(s,res.FPStr) then exit; end; end else |