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

implemented tcg8086.g_flags2reg and g_flags2ref

Browse Source 
git-svn-id: branches/i8086@23764 -
This commit is contained in:
nickysn 2013-03-09 23:45:42 +00:00
parent 8d346d162b
commit 7d883e7d52
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
compiler/i8086/cgcpu.pas
View File

@ -59,6 +59,9 @@ unit cgcpu;
procedure a_load_ref_reg(list : TAsmList;fromsize,tosize: tcgsize;const ref : treference;reg : tregister);override;
procedure a_load_reg_reg(list : TAsmList;fromsize,tosize: tcgsize;reg1,reg2 : tregister);override;
procedure g_flags2reg(list: TAsmList; size: TCgSize; const f: tresflags; reg: TRegister);override;
procedure g_flags2ref(list: TAsmList; size: TCgSize; const f: tresflags; const ref: TReference);override;
procedure g_proc_exit(list : TAsmList;parasize:longint;nostackframe:boolean);override;
procedure g_copyvaluepara_openarray(list : TAsmList;const ref:treference;const lenloc:tlocation;elesize:tcgint;destreg:tregister);
procedure g_releasevaluepara_openarray(list : TAsmList;const l:tlocation);
@ -760,6 +763,47 @@ unit cgcpu;
end;
procedure tcg8086.g_flags2reg(list: TAsmList; size: TCgSize; const f: tresflags; reg: TRegister);
var
ai : taicpu;
hreg, hreg16 : tregister;
hl_skip: TAsmLabel;
invf: TResFlags;
begin
hreg:=makeregsize(list,reg,OS_8);
invf := f;
inverse_flags(invf);
list.concat(Taicpu.op_const_reg(A_MOV, S_B, 0, hreg));
current_asmdata.getjumplabel(hl_skip);
ai:=Taicpu.Op_Sym(A_Jcc,S_NO,hl_skip);
ai.SetCondition(flags_to_cond(invf));
ai.is_jmp:=true;
list.concat(ai);
{ 16-bit INC is shorter than 8-bit }
hreg16:=makeregsize(list,hreg,OS_16);
list.concat(Taicpu.op_reg(A_INC, S_W, hreg16));
a_label(list,hl_skip);
if reg<>hreg then
a_load_reg_reg(list,OS_8,size,hreg,reg);
end;
procedure tcg8086.g_flags2ref(list: TAsmList; size: TCgSize; const f: tresflags; const ref: TReference);
var
tmpreg : tregister;
begin
tmpreg:=getintregister(list,size);
g_flags2reg(list,size,f,tmpreg);
a_load_reg_ref(list,size,size,tmpreg,ref);
end;
procedure tcg8086.g_proc_exit(list : TAsmList;parasize:longint;nostackframe:boolean);
var
stacksize : longint;