paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 17:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed calling windres: don't create short names with forward slashes for output file name, becaause it fails, if the output file does not yet exist. Short names are only required for parameters that windres pass on to the preprocessor.

Browse Source 
git-svn-id: trunk@12549 -
This commit is contained in:
Vincent Snijders 2009-01-15 22:35:17 +00:00
parent 0f27150e32
commit d3fdf8b17f
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/comprsrc.pas
View File

@ -240,8 +240,8 @@ var
arch : ansistring;
function WindresFileName(filename: TCmdStr): TCmdStr;
// to be on the safe side, only give short file names with forward slashes to
// windres
// to be on the safe side, for files that are passed to the preprocessor,
// only give short file names with forward slashes to windres
var
i: longint;
begin
@ -257,15 +257,10 @@ begin
begin
s:=target_res.rccmd;
if target_res.rcbin = 'windres' then
begin
Replace(s,'$RES',WindresFileName(OutName));
Replace(s,'$RC',WindresFileName(fname));
end
Replace(s,'$RC',WindresFileName(fname))
else
begin
Replace(s,'$RES',maybequoted(OutName));
Replace(s,'$RC',maybequoted(fname));
end;
Replace(s,'$RC',maybequoted(fname));
Replace(s,'$RES',maybequoted(OutName));
ObjUsed:=False;
end
else