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

* ait_varloc instructions are handled and removed by Trgobj.translate_registers() and never left for an assembler.

Browse Source 
git-svn-id: trunk@46541 -
This commit is contained in:
yury 2020-08-22 10:58:21 +00:00
parent 7759e0a222
commit 5ec489c018
3 changed files with 3 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/aggas.pas
View File

@ -1564,16 +1564,6 @@ implementation
{$endif DISABLE_WIN64_SEH}
end;
ait_varloc:
begin
if tai_varloc(hp).newlocationhi<>NR_NO then
writer.AsmWrite(strpnew('Var '+tai_varloc(hp).varsym.realname+' located in register '+
std_regname(tai_varloc(hp).newlocationhi)+':'+std_regname(tai_varloc(hp).newlocation)))
else
writer.AsmWrite(strpnew('Var '+tai_varloc(hp).varsym.realname+' located in register '+
std_regname(tai_varloc(hp).newlocation)));
writer.AsmLn;
end;
ait_cfi:
begin
WriteCFI(tai_cfi_base(hp));

18
compiler/llvm/agllvm.pas
View File

@ -1489,22 +1489,10 @@ implementation
begin
internalerror(2013010713);
end;
ait_varloc:
ait_typedconst:
begin
if tai_varloc(hp).newlocationhi<>NR_NO then
writer.AsmWrite(strpnew('Var '+tai_varloc(hp).varsym.realname+' located in register '+
std_regname(tai_varloc(hp).newlocationhi)+':'+std_regname(tai_varloc(hp).newlocation)))
else
writer.AsmWrite(strpnew('Var '+tai_varloc(hp).varsym.realname+' located in register '+
std_regname(tai_varloc(hp).newlocation)));
if fdecllevel<>0 then
internalerror(2015090603);
writer.AsmLn;
end;
ait_typedconst:
begin
WriteTypedConstData(tai_abstracttypedconst(hp),false);
end
WriteTypedConstData(tai_abstracttypedconst(hp),false);
end
else
internalerror(2019012010);
end;

9
compiler/x86/agx86nsm.pas
View File

@ -1318,15 +1318,6 @@ interface
end;
ait_seh_directive :
{ Ignore for now };
ait_varloc:
begin
if tai_varloc(hp).newlocationhi<>NR_NO then
writer.AsmWriteLn(asminfo^.comment+'Var '+tai_varloc(hp).varsym.realname+' located in register '+
std_regname(tai_varloc(hp).newlocationhi)+':'+std_regname(tai_varloc(hp).newlocation))
else
writer.AsmWriteLn(asminfo^.comment+'Var '+tai_varloc(hp).varsym.realname+' located in register '+
std_regname(tai_varloc(hp).newlocation));
end;
else
internalerror(10000);
end;