diff --git a/compiler/aggas.pas b/compiler/aggas.pas index 41d20c5129..2a891490a0 100644 --- a/compiler/aggas.pas +++ b/compiler/aggas.pas @@ -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)); diff --git a/compiler/llvm/agllvm.pas b/compiler/llvm/agllvm.pas index fa6e4cfa8c..36d70adca3 100644 --- a/compiler/llvm/agllvm.pas +++ b/compiler/llvm/agllvm.pas @@ -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; diff --git a/compiler/x86/agx86nsm.pas b/compiler/x86/agx86nsm.pas index 89b0fa8018..f058ef5c16 100644 --- a/compiler/x86/agx86nsm.pas +++ b/compiler/x86/agx86nsm.pas @@ -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;