paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 05:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add fForceUseForwardSlash to TLinkRes class, used for vlink linker on hosts using backslashes

Browse Source 
git-svn-id: trunk@49223 -
This commit is contained in:
pierre 2021-04-17 22:17:46 +00:00
parent d8f02107a1
commit f5e5f9645c
7 changed files with 31 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/cscript.pas
View File

@ -91,6 +91,7 @@ type
TLinkRes = Class (TScript)
section: string[30];
fRealResponseFile: Boolean;
fForceUseForwardSlash: Boolean;
constructor Create(const ScriptName : TCmdStr; RealResponseFile: Boolean);
procedure Add(const s:TCmdStr);
procedure AddFileName(const s:TCmdStr);
@ -497,6 +498,7 @@ constructor TLinkRes.Create(const ScriptName: TCmdStr; RealResponseFile: Boolean
begin
inherited Create(ScriptName);
fRealResponseFile:=RealResponseFile;
fForceUseForwardSlash:=false;
end;
procedure TLinkRes.Add(const s:TCmdStr);
@ -506,6 +508,9 @@ begin
end;
procedure TLinkRes.AddFileName(const s:TCmdStr);
var
ls: TCmdStr;
i: longint;
begin
if section<>'' then
begin
@ -514,23 +519,31 @@ begin
end;
if s<>'' then
begin
ls:=s;
if fForceUseForwardSlash then
{ Fix separator }
for i:=1 to length(ls) do
if (ls[i]=source_info.dirsep) then
ls[i]:='/';
{ GNU ld only supports double quotes in the response file. }
if fRealResponseFile and
(s[1]='''') and
(ls[1]='''') and
(((cs_link_on_target in current_settings.globalswitches) and
(target_info.script=script_unix)) or
(not(cs_link_on_target in current_settings.globalswitches) and
(source_info.script=script_unix))) then
inherited add(UnixRequoteWithDoubleQuotes(s))
else if not(s[1] in ['a'..'z','A'..'Z','/','\','.','"']) then
else if not(ls[1] in ['a'..'z','A'..'Z','/','\','.','"']) then
begin
if cs_link_on_target in current_settings.globalswitches then
inherited Add('.'+target_info.DirSep+s)
if fForceUseForwardSlash then
inherited Add('./'+ls)
else if (cs_link_on_target in current_settings.globalswitches) then
inherited Add('.'+target_info.DirSep+ls)
else
inherited Add('.'+source_info.DirSep+s);
inherited Add('.'+source_info.DirSep+ls);
end
else
inherited Add(s);
inherited Add(ls);
end;
end;

3
compiler/systems/t_amiga.pas
View File

@ -131,7 +131,8 @@ begin
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName,true);
if UseVLink and (source_info.dirsep <> '/') then
LinkRes.fForceUseForwardSlash:=true;
{ Write path to search libraries }
HPath:=TCmdStrListItem(current_module.locallibrarysearchpath.First);
while assigned(HPath) do

2
compiler/systems/t_atari.pas
View File

@ -104,6 +104,8 @@ begin
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName,true);
if UseVLink and (source_info.dirsep <> '/') then
LinkRes.fForceUseForwardSlash:=true;
{ Write path to search libraries }
HPath:=TCmdStrListItem(current_module.locallibrarysearchpath.First);

2
compiler/systems/t_morph.pas
View File

@ -98,6 +98,8 @@ begin
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName,true);
if UseVLink and (source_info.dirsep <> '/') then
LinkRes.fForceUseForwardSlash:=true;
{ Write path to search libraries }
HPath:=TCmdStrListItem(current_module.locallibrarysearchpath.First);

2
compiler/systems/t_msxdos.pas
View File

@ -141,6 +141,8 @@ function TLinkerMSXDOS.WriteResponseFile_Vlink: Boolean;
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName,true);
if (source_info.dirsep <> '/') then
LinkRes.fForceUseForwardSlash:=true;
LinkRes.Add('INPUT (');

2
compiler/systems/t_sinclairql.pas
View File

@ -144,6 +144,8 @@ begin
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName,true);
if UseVLink and (source_info.dirsep <> '/') then
LinkRes.fForceUseForwardSlash:=true;
{ Write path to search libraries }
HPath:=TCmdStrListItem(current_module.locallibrarysearchpath.First);

2
compiler/systems/t_zxspectrum.pas
View File

@ -140,6 +140,8 @@ function TLinkerZXSpectrum.WriteResponseFile_Vlink: Boolean;
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName,true);
if (source_info.dirsep <> '/') then
LinkRes.fForceUseForwardSlash:=true;
LinkRes.Add('INPUT (');