diff options
| -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 |