From 5cdad9e30fd3a99d17286f1e2518f8fda80dc28e Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sun, 21 Apr 2002 15:48:39 +0000
Subject: [PATCH] * some small updates according to i386 version

---
 compiler/powerpc/cpubase.pas | 13 ++++---------
 compiler/powerpc/nppcmat.pas |  7 +++++--
 2 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/compiler/powerpc/cpubase.pas b/compiler/powerpc/cpubase.pas
index d9c095ed36..ed6ad505b4 100644
--- a/compiler/powerpc/cpubase.pas
+++ b/compiler/powerpc/cpubase.pas
@@ -505,7 +505,6 @@ const
 
     function is_calljmp(o:tasmop):boolean;
 
-    procedure inverse_flags(var f: TResFlags);
     procedure inverse_cond(c: TAsmCond;var r : TAsmCond);
     function flags_to_cond(const f: TResFlags) : TAsmCond;
     procedure create_cond_imm(BO,BI:byte;var r : TAsmCond);
@@ -578,13 +577,6 @@ implementation
       new_reference:=r;
     end;
 
-    procedure inverse_flags(var f: TResFlags);
-      const
-        flagsinvers : array[F_EQ..F_GE] of tresflagsenum =
-          (F_NE,F_EQ,F_GE,F_GT,F_LE,F_LT);
-      begin
-        f.flag := flagsinvers[f.flag];
-      end;
 
 
     procedure inverse_cond(c: TAsmCond;var r : TAsmCond);
@@ -668,7 +660,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.8  2002-04-20 21:41:51  carl
+  Revision 1.9  2002-04-21 15:48:39  carl
+  * some small updates according to i386 version
+
+  Revision 1.8  2002/04/20 21:41:51  carl
   * renamed some constants
 
   Revision 1.7  2002/04/06 18:13:02  jonas
diff --git a/compiler/powerpc/nppcmat.pas b/compiler/powerpc/nppcmat.pas
index 241e85f0ef..c1e031be59 100644
--- a/compiler/powerpc/nppcmat.pas
+++ b/compiler/powerpc/nppcmat.pas
@@ -524,7 +524,7 @@ implementation
               LOC_FLAGS :
                 begin
                   location.resflags:=left.location.resflags;
-                  inverse_flags(left.location.resflags);
+!!!                  inverse_flags(left.location.resflags);
                 end;
               LOC_REGISTER, LOC_CREGISTER, LOC_REFERENCE, LOC_CREFERENCE :
                 begin
@@ -623,7 +623,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.3  2002-04-06 18:13:02  jonas
+  Revision 1.4  2002-04-21 15:48:39  carl
+  * some small updates according to i386 version
+
+  Revision 1.3  2002/04/06 18:13:02  jonas
     * several powerpc-related additions and fixes
 
   Revision 1.2  2002/01/03 14:57:52  jonas