paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 10:59:24 +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} {$endif DISABLE_WIN64_SEH}
end; 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: ait_cfi:
begin begin
WriteCFI(tai_cfi_base(hp)); WriteCFI(tai_cfi_base(hp));

12
compiler/llvm/agllvm.pas
View File

@ -1489,18 +1489,6 @@ implementation
begin begin
internalerror(2013010713); internalerror(2013010713);
end; 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)));
if fdecllevel<>0 then
internalerror(2015090603);
writer.AsmLn;
end;
ait_typedconst: ait_typedconst:
begin begin
WriteTypedConstData(tai_abstracttypedconst(hp),false); WriteTypedConstData(tai_abstracttypedconst(hp),false);

9
compiler/x86/agx86nsm.pas
View File

@ -1318,15 +1318,6 @@ interface
end; end;
ait_seh_directive : ait_seh_directive :
{ Ignore for now }; { 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 else
internalerror(10000); internalerror(10000);
end; end;