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

+ added F_PL and F_MI to TResFlags for avr. This allows generating the BRPL and

Browse Source 
BRMI instructions via a_jmp_cond

git-svn-id: trunk@36866 -
This commit is contained in:
nickysn 2017-08-09 15:14:33 +00:00
parent 225c4f33e9
commit 1476b5168d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/avr/cpubase.pas
View File

@ -158,7 +158,7 @@ unit cpubase;
type type
TResFlags = (F_NotPossible,F_CC,F_CS,F_EQ,F_GE,F_LO,F_LT, TResFlags = (F_NotPossible,F_CC,F_CS,F_EQ,F_GE,F_LO,F_LT,
F_NE,F_SH,F_VC,F_VS); F_NE,F_SH,F_VC,F_VS,F_PL,F_MI);
{***************************************************************************** {*****************************************************************************
Operands Operands
@ -376,7 +376,7 @@ unit cpubase;
const const
inv_flags: array[TResFlags] of TResFlags = inv_flags: array[TResFlags] of TResFlags =
(F_NotPossible,F_CS,F_CC,F_NE,F_LT,F_SH,F_GE, (F_NotPossible,F_CS,F_CC,F_NE,F_LT,F_SH,F_GE,
F_NE,F_LO,F_VS,F_VC); F_NE,F_LO,F_VS,F_VC,F_MI,F_PL);
begin begin
f:=inv_flags[f]; f:=inv_flags[f];
end; end;
@ -384,9 +384,9 @@ unit cpubase;
function flags_to_cond(const f: TResFlags) : TAsmCond; function flags_to_cond(const f: TResFlags) : TAsmCond;
const const
flag_2_cond: array[F_CC..F_VS] of TAsmCond = flag_2_cond: array[F_CC..F_MI] of TAsmCond =
(C_CC,C_CS,C_EQ,C_GE,C_LO,C_LT, (C_CC,C_CS,C_EQ,C_GE,C_LO,C_LT,
C_NE,C_SH,C_VC,C_VS); C_NE,C_SH,C_VC,C_VS,C_PL,C_MI);
begin begin
if f=F_NotPossible then if f=F_NotPossible then
internalerror(2011022101); internalerror(2011022101);