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

* simpler handling of moves from a smaller to a larger cgsize in

Browse Source 
tcg8086.a_load_reg_ref, which additionally fixes the following issues:
  o The higher parts of the source register is no longer modified.
  o The source register's size is no longer modified with makeregsize.
  o Conversion from OS_S8 to a larger size is now supported.

git-svn-id: trunk@26335 -
This commit is contained in:
nickysn 2013-12-31 00:33:37 +00:00
parent a4c938c042
commit d57d982be7
1 changed files with 8 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/i8086/cgcpu.pas
View File

@ -1052,7 +1052,6 @@ unit cgcpu;
procedure tcg8086.a_load_reg_ref(list : TAsmList;fromsize,tosize: tcgsize; reg : tregister;const ref : treference);
var
tmpsize : tcgsize;
tmpreg : tregister;
tmpref : treference;
begin
@ -1068,15 +1067,12 @@ unit cgcpu;
internalerror(2013030310);
OS_16,OS_S16:
case fromsize of
OS_8:
OS_8,OS_S8:
begin
reg := makeregsize(list, reg, OS_16);
setsubreg(reg, R_SUBH);
list.concat(taicpu.op_const_reg(A_MOV, S_B, 0, reg));
setsubreg(reg, R_SUBW);
list.concat(taicpu.op_reg_ref(A_MOV, S_W, reg, tmpref));
tmpreg:=getintregister(list,tosize);
a_load_reg_reg(list,fromsize,tosize,reg,tmpreg);
a_load_reg_ref(list,tosize,tosize,tmpreg,tmpref);
end;
OS_S8: internalerror(2013052503); { TODO }
OS_16,OS_S16:
begin
list.concat(taicpu.op_reg_ref(A_MOV, S_W, reg, tmpref));
@ -1086,26 +1082,18 @@ unit cgcpu;
end;
OS_32,OS_S32:
case fromsize of
OS_8:
OS_8,OS_S8,OS_S16:
begin
reg := makeregsize(list, reg, OS_16);
setsubreg(reg, R_SUBH);
list.concat(taicpu.op_const_reg(A_MOV, S_B, 0, reg));
setsubreg(reg, R_SUBW);
list.concat(taicpu.op_reg_ref(A_MOV, S_W, reg, tmpref));
inc(tmpref.offset, 2);
list.concat(taicpu.op_const_ref(A_MOV, S_W, 0, tmpref));
tmpreg:=getintregister(list,tosize);
a_load_reg_reg(list,fromsize,tosize,reg,tmpreg);
a_load_reg_ref(list,tosize,tosize,tmpreg,tmpref);
end;
OS_S8:
internalerror(2013052501); { TODO }
OS_16:
begin
list.concat(taicpu.op_reg_ref(A_MOV, S_W, reg, tmpref));
inc(tmpref.offset, 2);
list.concat(taicpu.op_const_ref(A_MOV, S_W, 0, tmpref));
end;
OS_S16:
internalerror(2013052502); { TODO }
OS_32,OS_S32:
begin
list.concat(taicpu.op_reg_ref(A_MOV, S_W, reg, tmpref));