paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:33:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ use the 16-bit movsx and movzx instructions on 386+ in tcg8086.a_load_ref_reg

Browse Source 
as well

git-svn-id: trunk@34050 -
This commit is contained in:
nickysn 2016-07-02 17:05:48 +00:00
parent 16477c598d
commit ac5658470e
1 changed files with 30 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
compiler/i8086/cgcpu.pas
View File

@ -1282,19 +1282,29 @@ unit cgcpu;
case fromsize of case fromsize of
OS_8: OS_8:
begin begin
reg := makeregsize(list, reg, OS_8); if current_settings.cputype>=cpu_386 then
list.concat(taicpu.op_ref_reg(A_MOV, S_B, tmpref, reg)); list.concat(taicpu.op_ref_reg(A_MOVZX, S_BW, tmpref, reg))
setsubreg(reg, R_SUBH); else
list.concat(taicpu.op_const_reg(A_MOV, S_B, 0, reg)); begin
makeregsize(list, reg, OS_16); reg := makeregsize(list, reg, OS_8);
list.concat(taicpu.op_ref_reg(A_MOV, S_B, tmpref, reg));
setsubreg(reg, R_SUBH);
list.concat(taicpu.op_const_reg(A_MOV, S_B, 0, reg));
makeregsize(list, reg, OS_16);
end;
end; end;
OS_S8: OS_S8:
begin begin
getcpuregister(list, NR_AX); if current_settings.cputype>=cpu_386 then
list.concat(taicpu.op_ref_reg(A_MOV, S_B, tmpref, NR_AL)); list.concat(taicpu.op_ref_reg(A_MOVSX, S_BW, tmpref, reg))
list.concat(taicpu.op_none(A_CBW)); else
add_mov(taicpu.op_reg_reg(A_MOV, S_W, NR_AX, reg)); begin
ungetcpuregister(list, NR_AX); getcpuregister(list, NR_AX);
list.concat(taicpu.op_ref_reg(A_MOV, S_B, tmpref, NR_AL));
list.concat(taicpu.op_none(A_CBW));
add_mov(taicpu.op_reg_reg(A_MOV, S_W, NR_AX, reg));
ungetcpuregister(list, NR_AX);
end;
end; end;
OS_16,OS_S16: OS_16,OS_S16:
list.concat(taicpu.op_ref_reg(A_MOV, S_W, tmpref, reg)); list.concat(taicpu.op_ref_reg(A_MOV, S_W, tmpref, reg));
@ -1306,11 +1316,16 @@ unit cgcpu;
OS_8: OS_8:
begin begin
list.concat(taicpu.op_const_reg(A_MOV,S_W,0,GetNextReg(reg))); list.concat(taicpu.op_const_reg(A_MOV,S_W,0,GetNextReg(reg)));
reg := makeregsize(list, reg, OS_8); if current_settings.cputype>=cpu_386 then
list.concat(taicpu.op_ref_reg(A_MOV, S_B, tmpref, reg)); list.concat(taicpu.op_ref_reg(A_MOVZX, S_BW, tmpref, reg))
setsubreg(reg, R_SUBH); else
list.concat(taicpu.op_const_reg(A_MOV, S_B, 0, reg)); begin
makeregsize(list, reg, OS_16); reg := makeregsize(list, reg, OS_8);
list.concat(taicpu.op_ref_reg(A_MOV, S_B, tmpref, reg));
setsubreg(reg, R_SUBH);
list.concat(taicpu.op_const_reg(A_MOV, S_B, 0, reg));
makeregsize(list, reg, OS_16);
end;
end; end;
OS_S8: OS_S8:
begin begin