From d7a5ca107b8e10a99e6c97c768d29fcc78887c55 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 25 Nov 2005 23:08:46 +0000
Subject: [PATCH] * fixed m68k compilation while sitting bored in the train

git-svn-id: trunk@1823 -
---
 compiler/m68k/cpubase.pas | 26 ++++++++++++++++++++------
 compiler/x86/cpubase.pas  |  1 -
 2 files changed, 20 insertions(+), 7 deletions(-)

diff --git a/compiler/m68k/cpubase.pas b/compiler/m68k/cpubase.pas
index c378fdb086..46f3b08767 100644
--- a/compiler/m68k/cpubase.pas
+++ b/compiler/m68k/cpubase.pas
@@ -168,12 +168,6 @@ unit cpubase;
         '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
 *****************************************************************************}
@@ -336,6 +330,9 @@ unit cpubase;
 
     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
 
     uses
@@ -461,4 +458,21 @@ implementation
       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.
diff --git a/compiler/x86/cpubase.pas b/compiler/x86/cpubase.pas
index 78d0ea11d6..2d8d4431d5 100644
--- a/compiler/x86/cpubase.pas
+++ b/compiler/x86/cpubase.pas
@@ -467,5 +467,4 @@ implementation
       end;
 
 
-
 end.