From 65e3c777dc12a6e06c4fae4e7518666e4962b348 Mon Sep 17 00:00:00 2001 From: pierre Date: Thu, 8 Jun 2017 11:19:12 +0000 Subject: [PATCH] Fix compilation of sparc64 compiler git-svn-id: trunk@36447 - --- compiler/sparcgen/ncpuadd.pas | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/compiler/sparcgen/ncpuadd.pas b/compiler/sparcgen/ncpuadd.pas index f8d02a9e55..cd5fd877ee 100644 --- a/compiler/sparcgen/ncpuadd.pas +++ b/compiler/sparcgen/ncpuadd.pas @@ -56,7 +56,7 @@ interface paramgr,procinfo, aasmtai,aasmdata,aasmcpu,defutil, cgbase,cgcpu,cgutils, - cpupara, + cpupara,cgsparc, ncon,nset,nadd, hlcgobj, ncgutil,cgobj; @@ -264,7 +264,7 @@ interface force_reg_left_right(true,true); if right.location.loc = LOC_CONSTANT then - tcgsparc(cg).handle_reg_const_reg(current_asmdata.CurrAsmList,A_SUBcc,left.location.register,right.location.value,NR_G0) + tcgsparcgen(cg).handle_reg_const_reg(current_asmdata.CurrAsmList,A_SUBcc,left.location.register,right.location.value,NR_G0) else current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(A_SUBcc,left.location.register,right.location.register,NR_G0)); @@ -338,8 +338,8 @@ interface if (rs.location.loc=LOC_CONSTANT) then begin - tcgsparc(cg).handle_reg_const_reg(list,A_SUBcc,lreg.reglo,lo(rs.location.value64),NR_G0); - tcgsparc(cg).handle_reg_const_reg(list,A_SUBXcc,lreg.reghi,hi(rs.location.value64),NR_G0); + tcgsparcgen(cg).handle_reg_const_reg(list,A_SUBcc,lreg.reglo,lo(rs.location.value64),NR_G0); + tcgsparcgen(cg).handle_reg_const_reg(list,A_SUBXcc,lreg.reghi,hi(rs.location.value64),NR_G0); end else begin @@ -365,7 +365,7 @@ interface if hi(right.location.value64)<>0 then begin hreg1:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT); - tcgsparc(cg).handle_reg_const_reg(current_asmdata.CurrAsmList,A_XOR,left.location.register64.reghi,hi(right.location.value64),hreg1); + tcgsparcgen(cg).handle_reg_const_reg(current_asmdata.CurrAsmList,A_XOR,left.location.register64.reghi,hi(right.location.value64),hreg1); end else hreg1:=left.location.register64.reghi; @@ -373,7 +373,7 @@ interface if lo(right.location.value64)<>0 then begin hreg2:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT); - tcgsparc(cg).handle_reg_const_reg(current_asmdata.CurrAsmList,A_XOR,left.location.register64.reglo,lo(right.location.value64),hreg2); + tcgsparcgen(cg).handle_reg_const_reg(current_asmdata.CurrAsmList,A_XOR,left.location.register64.reglo,lo(right.location.value64),hreg2); end else hreg2:=left.location.register64.reglo; @@ -430,7 +430,7 @@ interface not(is_signed(right.resultdef)); if right.location.loc = LOC_CONSTANT then - tcgsparc(cg).handle_reg_const_reg(current_asmdata.CurrAsmList,A_SUBcc,left.location.register,right.location.value,NR_G0) + tcgsparcgen(cg).handle_reg_const_reg(current_asmdata.CurrAsmList,A_SUBcc,left.location.register,right.location.value,NR_G0) else current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(A_SUBcc,left.location.register,right.location.register,NR_G0));