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

+ flag_2_cond implemented

Browse Source
This commit is contained in:
carl 2002-10-14 16:32:36 +00:00
parent 336aa5e4b6
commit de26052432
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/m68k/cpubase.pas
View File

@ -564,13 +564,30 @@ implementation
function flags_to_cond(const f: TResFlags) : TAsmCond;
const flags2cond: array[tresflags] of tasmcond = (
C_EQ,{F_E equal}
C_NE,{F_NE not equal}
C_GT,{F_G gt signed}
C_LT,{F_L lt signed}
C_GE,{F_GE ge signed}
C_LE,{F_LE le signed}
C_CS,{F_C carry set}
C_CC,{F_NC carry clear}
C_HI,{F_A gt unsigned}
C_CC,{F_AE ge unsigned}
C_CS,{F_B lt unsigned}
C_LS);{F_BE le unsigned}
begin
flags_to_cond := flags2cond[f];
end;
end.
{
$Log$
Revision 1.10 2002-08-18 09:02:12 florian
Revision 1.11 2002-10-14 16:32:36 carl
+ flag_2_cond implemented
Revision 1.10 2002/08/18 09:02:12 florian
* fixed compilation problems
Revision 1.9 2002/08/15 08:13:54 carl