Selaa lähdekoodia

* some small updates according to i386 version

carl 23 vuotta sitten
vanhempi
commit
5cdad9e30f
2 muutettua tiedostoa jossa 9 lisäystä ja 11 poistoa
  1. 4 9
      compiler/powerpc/cpubase.pas
  2. 5 2
      compiler/powerpc/nppcmat.pas

+ 4 - 9
compiler/powerpc/cpubase.pas

@@ -505,7 +505,6 @@ const
 
 
     function is_calljmp(o:tasmop):boolean;
     function is_calljmp(o:tasmop):boolean;
 
 
-    procedure inverse_flags(var f: TResFlags);
     procedure inverse_cond(c: TAsmCond;var r : TAsmCond);
     procedure inverse_cond(c: TAsmCond;var r : TAsmCond);
     function flags_to_cond(const f: TResFlags) : TAsmCond;
     function flags_to_cond(const f: TResFlags) : TAsmCond;
     procedure create_cond_imm(BO,BI:byte;var r : TAsmCond);
     procedure create_cond_imm(BO,BI:byte;var r : TAsmCond);
@@ -578,13 +577,6 @@ implementation
       new_reference:=r;
       new_reference:=r;
     end;
     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);
     procedure inverse_cond(c: TAsmCond;var r : TAsmCond);
@@ -668,7 +660,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $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
   * renamed some constants
 
 
   Revision 1.7  2002/04/06 18:13:02  jonas
   Revision 1.7  2002/04/06 18:13:02  jonas

+ 5 - 2
compiler/powerpc/nppcmat.pas

@@ -524,7 +524,7 @@ implementation
               LOC_FLAGS :
               LOC_FLAGS :
                 begin
                 begin
                   location.resflags:=left.location.resflags;
                   location.resflags:=left.location.resflags;
-                  inverse_flags(left.location.resflags);
+!!!                  inverse_flags(left.location.resflags);
                 end;
                 end;
               LOC_REGISTER, LOC_CREGISTER, LOC_REFERENCE, LOC_CREFERENCE :
               LOC_REGISTER, LOC_CREGISTER, LOC_REFERENCE, LOC_CREFERENCE :
                 begin
                 begin
@@ -623,7 +623,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * several powerpc-related additions and fixes
 
 
   Revision 1.2  2002/01/03 14:57:52  jonas
   Revision 1.2  2002/01/03 14:57:52  jonas