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

* tcg8086.g_flags2reg: call virtual method a_jmp_flags instead of duplicating its functionality, it prevents further changes to this method when adding support for unordered comparison results.

Browse Source 
git-svn-id: trunk@27579 -
This commit is contained in:
sergei 2014-04-14 00:20:06 +00:00
parent 8a83037883
commit 98de3c4e40
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/i8086/cgcpu.pas
View File

@ -1681,10 +1681,7 @@ unit cgcpu;
end;
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);
a_jmp_flags(list,invf,hl_skip);
{ 16-bit INC is shorter than 8-bit }
hreg16:=makeregsize(list,reg,OS_16);