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

* moved the i8086 'push const' instructions to a new method, so they can be abstracted on pre-186 processors

Browse Source 
git-svn-id: trunk@24380 -
This commit is contained in:
nickysn 2013-04-29 21:53:55 +00:00
parent 0e9b8adb7a
commit 06f1b6a4e8
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/i8086/cgcpu.pas
View File

@ -46,6 +46,8 @@ unit cgcpu;
procedure a_op_const_reg(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg: TRegister); override; procedure a_op_const_reg(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg: TRegister); override;
procedure a_op_reg_reg(list : TAsmList; Op: TOpCG; size: TCGSize; src, dst: TRegister); override; procedure a_op_reg_reg(list : TAsmList; Op: TOpCG; size: TCGSize; src, dst: TRegister); override;
procedure push_const(list:TAsmList;size:topsize;a:tcgint);
{ passing parameter using push instead of mov } { passing parameter using push instead of mov }
procedure a_load_reg_cgpara(list : TAsmList;size : tcgsize;r : tregister;const cgpara : tcgpara);override; procedure a_load_reg_cgpara(list : TAsmList;size : tcgsize;r : tregister;const cgpara : tcgpara);override;
procedure a_load_const_cgpara(list : TAsmList;size : tcgsize;a : tcgint;const cgpara : tcgpara);override; procedure a_load_const_cgpara(list : TAsmList;size : tcgsize;a : tcgint;const cgpara : tcgpara);override;
@ -301,6 +303,12 @@ unit cgcpu;
end; end;
procedure tcg8086.push_const(list: TAsmList; size: topsize; a: tcgint);
begin
list.concat(taicpu.op_const(A_PUSH,size,a));
end;
procedure tcg8086.a_load_reg_cgpara(list : TAsmList;size : tcgsize;r : tregister;const cgpara : tcgpara); procedure tcg8086.a_load_reg_cgpara(list : TAsmList;size : tcgsize;r : tregister;const cgpara : tcgpara);
var var
pushsize, pushsize2: tcgsize; pushsize, pushsize2: tcgsize;
@ -377,8 +385,8 @@ unit cgcpu;
if (cgpara.alignment <> 4) and (cgpara.alignment <> 2) then if (cgpara.alignment <> 4) and (cgpara.alignment <> 2) then
internalerror(2013031101); internalerror(2013031101);
list.concat(taicpu.op_const(A_PUSH,S_W,a shr 16)); push_const(list,S_W,a shr 16);
list.concat(taicpu.op_const(A_PUSH,S_W,a and $FFFF)); push_const(list,S_W,a and $FFFF);
end end
else else
begin begin
@ -387,7 +395,7 @@ unit cgcpu;
pushsize:=cgpara.location^.size pushsize:=cgpara.location^.size
else else
pushsize:=int_cgsize(cgpara.alignment); pushsize:=int_cgsize(cgpara.alignment);
list.concat(taicpu.op_const(A_PUSH,tcgsize2opsize[pushsize],a)); push_const(list,tcgsize2opsize[pushsize],a);
end; end;
end end
else else
@ -526,7 +534,7 @@ unit cgcpu;
list.concat(Taicpu.Op_sym_ofs(A_PUSH,opsize,symbol,offset)); list.concat(Taicpu.Op_sym_ofs(A_PUSH,opsize,symbol,offset));
end end
else else
list.concat(Taicpu.Op_const(A_PUSH,opsize,offset)); push_const(list,opsize,offset);
end end
else if (segment=NR_NO) and (base=NR_NO) and (index<>NR_NO) and else if (segment=NR_NO) and (base=NR_NO) and (index<>NR_NO) and
(offset=0) and (scalefactor=0) and (symbol=nil) then (offset=0) and (scalefactor=0) and (symbol=nil) then
@ -1081,7 +1089,7 @@ unit cgcpu;
procedure tcg8086.g_exception_reason_save_const(list : TAsmList;const href : treference; a: tcgint); procedure tcg8086.g_exception_reason_save_const(list : TAsmList;const href : treference; a: tcgint);
begin begin
if not paramanager.use_fixed_stack then if not paramanager.use_fixed_stack then
list.concat(Taicpu.op_const(A_PUSH,tcgsize2opsize[OS_INT],a)) push_const(list,tcgsize2opsize[OS_INT],a)
else else
inherited g_exception_reason_save_const(list,href,a); inherited g_exception_reason_save_const(list,href,a);
end; end;