paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 12:19:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

*fixes related to removal of rg

Browse Source
This commit is contained in:
mazen 2003-10-24 11:31:43 +00:00
parent 7251301e50
commit 619b429650
3 changed files with 30 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/sparc/ncpucnv.pas
View File

@ -112,7 +112,7 @@ implementation
begin
location_reset(location,LOC_FPUREGISTER,def_cgsize(resulttype.def));
location_force_mem(exprasmlist,left.location);
location.register:=rg.getregisterfpu(exprasmlist,location.size);
location.register:=cg.getfpuregister(exprasmlist,location.size);
{ Load memory in fpu register }
cg.a_loadfpu_ref_reg(exprasmlist,location.size,left.location.reference,location.register);
{$warning TODO Handle also double}
@ -152,19 +152,19 @@ procedure TSparctypeconvnode.second_int_to_bool;
then
begin
reference_release(exprasmlist,left.location.reference);
hreg2:=rg.getregisterint(exprasmlist,opsize);
hreg2:=cg.GetIntRegister(exprasmlist,opsize);
cg.a_load_ref_reg(exprasmlist,OpSize,OpSize,left.location.reference,hreg2);
end
else
hreg2 := left.location.register;
hreg1 := rg.getregisterint(exprasmlist,opsize);
hreg1 := cg.GetIntRegister(exprasmlist,opsize);
exprasmlist.concat(taicpu.op_reg_const_reg(A_SUB,hreg1,1,hreg2));
exprasmlist.concat(taicpu.op_reg_reg_reg(A_SUB,hreg1,hreg1,hreg2));
rg.UnGetRegisterInt(exprasmlist,hreg2);
cg.UnGetRegister(exprasmlist,hreg2);
end;
LOC_FLAGS :
begin
hreg1:=rg.getregisterint(exprasmlist,location.size);
hreg1:=cg.GetIntRegister(exprasmlist,location.size);
resflags:=left.location.resflags;
cg.g_flags2reg(exprasmlist,location.size,resflags,hreg1);
end;
@ -251,7 +251,10 @@ begin
end.
{
$Log$
Revision 1.19 2003-10-01 20:34:50 peter
Revision 1.20 2003-10-24 11:31:43 mazen
*fixes related to removal of rg
Revision 1.19 2003/10/01 20:34:50 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose

7
compiler/sparc/ncpuinln.pas
View File

@ -65,7 +65,7 @@ implementation
location_copy(location,left.location);
if left.location.loc=LOC_CFPUREGISTER then
begin
location.register:=rg.getregisterfpu(exprasmlist,location.size);
location.register:=cg.getfpuregister(exprasmlist,location.size);
location.loc := LOC_FPUREGISTER;
end;
end;
@ -123,7 +123,10 @@ begin
end.
{
$Log$
Revision 1.6 2003-10-01 20:34:50 peter
Revision 1.7 2003-10-24 11:32:34 mazen
*fixes related to removal of rg
Revision 1.6 2003/10/01 20:34:50 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose

29
compiler/sparc/ncpumat.pas
View File

@ -88,23 +88,23 @@ implementation
if (location.loc = LOC_CREGISTER) then
begin
location.loc := LOC_REGISTER;
location.register := rg.getregisterint(exprasmlist,OS_INT);
location.register := cg.GetIntRegister(exprasmlist,OS_INT);
resultreg := location.register;
end;
if (nodetype = modn) then
resultreg := rg.getregisterint(exprasmlist,OS_INT);
resultreg := cg.GetIntRegister(exprasmlist,OS_INT);
if (nodetype = divn) and
(right.nodetype = ordconstn) and
ispowerof2(tordconstnode(right).value,power) then
begin
tmpreg:=rg.getregisterint(exprasmlist,OS_INT);
tmpreg:=cg.GetIntRegister(exprasmlist,OS_INT);
cg.a_op_const_reg_reg(exprasmlist,OP_SAR,OS_INT,31,numerator,tmpreg);
{ if signed, tmpreg=right value-1, otherwise 0 }
cg.a_op_const_reg(exprasmlist,OP_AND,OS_INT,tordconstnode(right).value-1,tmpreg);
{ add to the left value }
cg.a_op_reg_reg(exprasmlist,OP_ADD,OS_INT,tmpreg,numerator);
rg.ungetregisterint(exprasmlist,tmpreg);
cg.UngetRegister(exprasmlist,tmpreg);
cg.a_op_const_reg_reg(exprasmlist,OP_SAR,OS_INT,aword(power),numerator,resultreg);
end
else
@ -124,17 +124,17 @@ implementation
if (nodetype = modn) then
begin
exprasmlist.concat(taicpu.op_reg_reg_reg(A_SMUL,resultreg,divider,resultreg));
rg.UnGetRegisterInt(exprasmlist,divider);
cg.UngetRegister(exprasmlist,divider);
exprasmlist.concat(taicpu.op_reg_reg_reg(A_SUB,location.register,numerator,resultreg));
rg.ungetregisterint(exprasmlist,resultreg);
cg.UngetRegister(exprasmlist,resultreg);
resultreg := location.register;
end
else
rg.UnGetRegisterInt(exprasmlist,divider);
cg.UngetRegister(exprasmlist,divider);
end;
{ free used registers }
if numerator<>resultreg then
rg.ungetregisterint(exprasmlist,numerator);
cg.UngetRegister(exprasmlist,numerator);
{ set result location }
location.loc:=LOC_REGISTER;
location.register:=resultreg;
@ -172,8 +172,8 @@ procedure tSparcshlshrnode.pass_2;
if (location.loc = LOC_CREGISTER) then
begin
location.loc := LOC_REGISTER;
location.registerhigh := rg.getregisterint(exprasmlist,OS_INT);
location.registerlow := rg.getregisterint(exprasmlist,OS_INT);
location.registerhigh := cg.GetIntRegister(exprasmlist,OS_INT);
location.registerlow := cg.GetIntRegister(exprasmlist,OS_INT);
end;
if (right.nodetype = ordconstn) then
begin
@ -241,7 +241,7 @@ procedure tSparcshlshrnode.pass_2;
if (location.loc = LOC_CREGISTER) then
begin
location.loc := LOC_REGISTER;
resultreg := rg.getregisterint(exprasmlist,OS_INT);
resultreg := cg.GetIntRegister(exprasmlist,OS_INT);
location.register := resultreg;
end;
{ determine operator }
@ -258,7 +258,7 @@ procedure tSparcshlshrnode.pass_2;
location_force_reg(exprasmlist,right.location,def_cgsize(right.resulttype.def),true);
hregister2 := right.location.register;
cg.a_op_reg_reg_reg(exprasmlist,op,OS_32,hregister2,hregister1,resultreg);
rg.UnGetRegisterInt(exprasmlist,hregister2);
cg.UngetRegister(exprasmlist,hregister2);
end;
end;
end;
@ -318,7 +318,10 @@ begin
end.
{
$Log$
Revision 1.15 2003-10-01 20:34:50 peter
Revision 1.16 2003-10-24 11:33:30 mazen
*fixes related to removal of rg
Revision 1.15 2003/10/01 20:34:50 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose