paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 12:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed -<sse register>

Browse Source 
* information about simple moves for sse is given to the register allocator
This commit is contained in:
florian 2004-11-02 18:23:16 +00:00
parent 53d4987dbe
commit bfce614370
2 changed files with 61 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
compiler/x86/cgx86.pas
View File

@ -691,19 +691,28 @@ unit cgx86;
procedure tcgx86.a_loadmm_reg_reg(list: taasmoutput; fromsize, tosize : tcgsize;reg1, reg2: tregister;shuffle : pmmshuffle);
begin
if shuffle=nil then
begin
if fromsize=tosize then
list.concat(taicpu.op_reg_reg(A_MOVAPS,S_NO,reg1,reg2))
else
internalerror(200312202);
end
else if shufflescalar(shuffle) then
list.concat(taicpu.op_reg_reg(get_scalar_mm_op(fromsize,tosize),S_NO,reg1,reg2))
else
internalerror(200312201);
end;
var
instr : taicpu;
begin
if shuffle=nil then
begin
if fromsize=tosize then
instr:=taicpu.op_reg_reg(A_MOVAPS,S_NO,reg1,reg2)
else
internalerror(200312202);
end
else if shufflescalar(shuffle) then
instr:=taicpu.op_reg_reg(get_scalar_mm_op(fromsize,tosize),S_NO,reg1,reg2)
else
internalerror(200312201);
case get_scalar_mm_op(fromsize,tosize) of
A_MOVSS,
A_MOVSD,
A_MOVQ:
add_move_instruction(instr);
end;
list.concat(instr);
end;
procedure tcgx86.a_loadmm_ref_reg(list: taasmoutput; fromsize, tosize : tcgsize;const ref: treference; reg: tregister;shuffle : pmmshuffle);
@ -787,7 +796,7 @@ unit cgx86;
A_NOP,A_ADDPS,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_XORPS
),
( { OS_F64 }
A_NOP,A_ADDPD,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_XORPS
A_NOP,A_ADDPD,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_XORPD
)
)
);
@ -1720,7 +1729,11 @@ unit cgx86;
end.
{
$Log$
Revision 1.136 2004-11-01 23:30:11 peter
Revision 1.137 2004-11-02 18:23:16 florian
* fixed -<sse register>
* information about simple moves for sse is given to the register allocator
Revision 1.136 2004/11/01 23:30:11 peter
* support > 32bit accesses for x86_64
* rewrote array size checking to support 64bit

43
compiler/x86/nx86mat.pas
View File

@ -161,21 +161,40 @@ interface
procedure tx86unaryminusnode.second_float;
var
reg : tregister;
href : treference;
l1 : tasmlabel;
begin
secondpass(left);
if expectloc=LOC_MMREGISTER then
begin
reg:=cg.getmmregister(exprasmlist,OS_M128);
{ zero out the register
op size doesn't matter }
cg.a_opmm_reg_reg(exprasmlist,OP_XOR,OS_F32,reg,reg,nil);
{ move to a mm compatible location }
if left.location.loc in [LOC_FPUREGISTER,LOC_CFPUREGISTER] then
location_force_mem(exprasmlist,left.location);
cg.a_opmm_loc_reg(exprasmlist,OP_SUB,left.location.size,left.location,reg,mms_movescalar);
location_force_mmregscalar(exprasmlist,left.location,false);
location_reset(location,LOC_MMREGISTER,def_cgsize(resulttype.def));
location.register:=reg;
{ make life of register allocator easier }
location.register:=cg.getmmregister(exprasmlist,OS_M128);
cg.a_loadmm_reg_reg(exprasmlist,def_cgsize(resulttype.def),def_cgsize(resulttype.def),left.location.register,location.register,mms_movescalar);
reg:=cg.getmmregister(exprasmlist,OS_M128);
objectlibrary.getdatalabel(l1);
consts.concat(Tai_label.Create(l1));
case def_cgsize(resulttype.def) of
OS_F32:
consts.concat(tai_const.create_32bit(1 shl 31));
OS_F64:
begin
consts.concat(tai_const.create_32bit(0));
consts.concat(tai_const.create_32bit(-(1 shl 31)));
end
else
internalerror(2004110215);
end;
reference_reset_symbol(href,l1,0);
cg.a_loadmm_ref_reg(exprasmlist,def_cgsize(resulttype.def),def_cgsize(resulttype.def),href,reg,mms_movescalar);
cg.a_opmm_reg_reg(exprasmlist,OP_XOR,left.location.size,reg,location.register,nil);
end
else
begin
@ -304,7 +323,11 @@ end.
{
$Log$
Revision 1.7 2004-10-31 21:45:04 peter
Revision 1.8 2004-11-02 18:23:16 florian
* fixed -<sse register>
* information about simple moves for sse is given to the register allocator
Revision 1.7 2004/10/31 21:45:04 peter
* generic tlocation
* move tlocation to cgutils