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

+ implemented tcg64f8086.a_op64_ref_reg

Browse Source 
git-svn-id: trunk@25707 -
This commit is contained in:
nickysn 2013-10-07 00:17:03 +00:00
parent 3cdbf9a805
commit 0aff18ac61
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/i8086/cgcpu.pas
View File

@ -92,7 +92,7 @@ unit cgcpu;
end; end;
tcg64f8086 = class(tcg64f32) tcg64f8086 = class(tcg64f32)
{ procedure a_op64_ref_reg(list : TAsmList;op:TOpCG;size : tcgsize;const ref : treference;reg : tregister64);override;} procedure a_op64_ref_reg(list : TAsmList;op:TOpCG;size : tcgsize;const ref : treference;reg : tregister64);override;
procedure a_op64_reg_reg(list : TAsmList;op:TOpCG;size : tcgsize;regsrc,regdst : tregister64);override; procedure a_op64_reg_reg(list : TAsmList;op:TOpCG;size : tcgsize;regsrc,regdst : tregister64);override;
procedure a_op64_const_reg(list : TAsmList;op:TOpCG;size : tcgsize;value : int64;reg : tregister64);override; procedure a_op64_const_reg(list : TAsmList;op:TOpCG;size : tcgsize;value : int64;reg : tregister64);override;
procedure a_op64_const_ref(list : TAsmList;op:TOpCG;size : tcgsize;value : int64;const ref : treference);override; procedure a_op64_const_ref(list : TAsmList;op:TOpCG;size : tcgsize;value : int64;const ref : treference);override;
@ -1855,7 +1855,7 @@ unit cgcpu;
end; end;
(* procedure tcg64f8086.a_op64_ref_reg(list : TAsmList;op:TOpCG;size : tcgsize;const ref : treference;reg : tregister64); procedure tcg64f8086.a_op64_ref_reg(list : TAsmList;op:TOpCG;size : tcgsize;const ref : treference;reg : tregister64);
var var
op1,op2 : TAsmOp; op1,op2 : TAsmOp;
tempref : treference; tempref : treference;
@ -1865,16 +1865,20 @@ unit cgcpu;
get_64bit_ops(op,op1,op2); get_64bit_ops(op,op1,op2);
tempref:=ref; tempref:=ref;
tcgx86(cg).make_simple_ref(list,tempref); tcgx86(cg).make_simple_ref(list,tempref);
list.concat(taicpu.op_ref_reg(op1,S_L,tempref,reg.reglo)); list.concat(taicpu.op_ref_reg(op1,S_W,tempref,reg.reglo));
inc(tempref.offset,4); inc(tempref.offset,2);
list.concat(taicpu.op_ref_reg(op2,S_L,tempref,reg.reghi)); list.concat(taicpu.op_ref_reg(op2,S_W,tempref,GetNextReg(reg.reglo)));
inc(tempref.offset,2);
list.concat(taicpu.op_ref_reg(op2,S_W,tempref,reg.reghi));
inc(tempref.offset,2);
list.concat(taicpu.op_ref_reg(op2,S_W,tempref,GetNextReg(reg.reghi)));
end end
else else
begin begin
a_load64_ref_reg(list,ref,reg); a_load64_ref_reg(list,ref,reg);
a_op64_reg_reg(list,op,size,reg,reg); a_op64_reg_reg(list,op,size,reg,reg);
end; end;
end;*) end;
procedure tcg64f8086.a_op64_reg_reg(list : TAsmList;op:TOpCG;size : tcgsize;regsrc,regdst : tregister64); procedure tcg64f8086.a_op64_reg_reg(list : TAsmList;op:TOpCG;size : tcgsize;regsrc,regdst : tregister64);