Selaa lähdekoodia

* Strip off path from resource file name when resource file is copied to output directory (fixes #11022)

git-svn-id: branches/resources@10509 -
giulio 17 vuotta sitten
vanhempi
commit
db2193cdc9
1 muutettua tiedostoa jossa 2 lisäystä ja 1 poistoa
  1. 2 1
      compiler/comprsrc.pas

+ 2 - 1
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