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

* m68k: fixed/completed the inverse_cond function.

Browse Source 
git-svn-id: trunk@28052 -
This commit is contained in:
sergei 2014-06-25 05:23:30 +00:00
parent 9f31fcc2ca
commit c79cd3beca
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/m68k/cpubase.pas
View File

@ -516,9 +516,10 @@ implementation
function inverse_cond(const c: TAsmCond): TAsmCond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
const
inverse:array[TAsmCond] of TAsmCond=(C_None,
{ TODO: TODO, this is just a copy!}
C_CC,C_LS,C_CS,C_LT,C_EQ,C_MI,C_F,C_NE,
C_GE,C_PL,C_GT,C_T,C_HI,C_VC,C_LE,C_VS
//C_CC,C_LS,C_CS,C_LT,C_EQ,C_MI,C_F,C_NE,
C_CS,C_HI,C_CC,C_GE,C_NE,C_PL,C_T,C_EQ,
//C_GE,C_PL,C_GT,C_T,C_HI,C_VC,C_LE,C_VS
C_LT,C_MI,C_LE,C_F,C_LS,C_VS,C_GT,C_VC
);
begin
result := inverse[c];