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

* fixed m68k compilation while sitting bored in the train

Browse Source 
git-svn-id: trunk@1823 -
This commit is contained in:
florian 2005-11-25 23:08:46 +00:00
parent b881329fdc
commit d7a5ca107b
2 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/m68k/cpubase.pas
View File

@ -168,12 +168,6 @@ unit cpubase;
'ge','pl','gt','t','hi','vc','le','vs' 'ge','pl','gt','t','hi','vc','le','vs'
); );
inverse_cond:array[TAsmCond] of TAsmCond=(C_None,
{$warning 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
);
{***************************************************************************** {*****************************************************************************
Flags Flags
*****************************************************************************} *****************************************************************************}
@ -336,6 +330,9 @@ unit cpubase;
function isaddressregister(reg : tregister) : boolean; function isaddressregister(reg : tregister) : boolean;
function inverse_cond(const c: TAsmCond): TAsmCond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
function conditions_equal(const c1, c2: TAsmCond): boolean; {$ifdef USEINLINE}inline;{$endif USEINLINE}
implementation implementation
uses uses
@ -461,4 +458,21 @@ implementation
end; end;
function inverse_cond(const c: TAsmCond): TAsmCond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
const
inverse:array[TAsmCond] of TAsmCond=(C_None,
{$warning 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
);
begin
result := inverse[c];
end;
function conditions_equal(const c1, c2: TAsmCond): boolean; {$ifdef USEINLINE}inline;{$endif USEINLINE}
begin
result := c1 = c2;
end;
end. end.

1
compiler/x86/cpubase.pas
View File

@ -467,5 +467,4 @@ implementation
end; end;
end. end.