paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 03:42:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pass parameters to windres using short path names and forward slashes (issue #12645)

Browse Source 
git-svn-id: trunk@12545 -
This commit is contained in:
Vincent Snijders 2009-01-13 19:50:02 +00:00
parent 3d8388fd22
commit a3fcf74c4d
1 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/comprsrc.pas
View File

@ -238,13 +238,34 @@ var
preprocessorbin,
s : TCmdStr;
arch : ansistring;
function WindresFileName(filename: TCmdStr): TCmdStr;
// to be on the safe side, only give short file names with forward slashes to
// windres
var
i: longint;
begin
Result := GetShortName(filename);
for I:=1 to Length(Result) do
if Result[I] in AllowDirectorySeparators then
Result[i]:='/';
end;
begin
srcfilepath:=ExtractFilePath(current_module.mainsource^);
if output=roRES then
begin
s:=target_res.rccmd;
Replace(s,'$RES',maybequoted(OutName));
Replace(s,'$RC',maybequoted(fname));
if target_res.rcbin = 'windres' then
begin
Replace(s,'$RES',WindresFileName(OutName));
Replace(s,'$RC',WindresFileName(fname));
end
else
begin
Replace(s,'$RES',maybequoted(OutName));
Replace(s,'$RC',maybequoted(fname));
end;
ObjUsed:=False;
end
else
@ -272,7 +293,7 @@ begin
if fCollectCount=0 then
s:=s+' '+maybequoted(fname)
else
s:=s+' @'+fScriptName;
s:=s+' @'+maybequoted(fScriptName);
end;
{ windres doesn't like empty include paths }
if respath='' then
@ -280,12 +301,12 @@ begin
Replace(s,'$INC',maybequoted(respath));
if (output=roRes) and (target_res.rcbin='windres') then
begin
if (srcfilepath<>'') then
s:=s+' --include '+maybequoted(srcfilepath);
{ try to find a preprocessor }
preprocessorbin := respath+'cpp'+source_info.exeext;
if FileExists(preprocessorbin,true) then
s:=s+' --preprocessor='+preprocessorbin;
s:='--preprocessor='+preprocessorbin+' '+s;
if (srcfilepath<>'') then
s:='--include '+WindresFileName(srcfilepath)+' '+s;
end;
Result:=s;
end;