* removed emitjmp

compiler/x86/cga.pas

@@ -35,9 +35,6 @@ interface
  are written into temps for later release PM }
 
     function def_opsize(p1:tdef):topsize;
-    function def_getreg(p1:tdef):tregister;
-
-    procedure emitjmp(c : tasmcond;var l : tasmlabel);
 
     procedure emit_none(i : tasmop;s : topsize);
 
@@ -88,33 +85,10 @@ implementation
       end;
 
 
-    function def_getreg(p1:tdef):tregister;
-      begin
-{        def_getreg:=rg.makeregsize(rg.getregisterint(exprasmlist),int_cgsize(p1.size));}
-        def_getreg:=rg.getregisterint(exprasmlist,int_cgsize(p1.size));
-      end;
-
-
 {*****************************************************************************
                               Emit Assembler
 *****************************************************************************}
 
-    procedure emitjmp(c : tasmcond;var l : tasmlabel);
-      var
-        ai : taicpu;
-      begin
-        if c=C_None then
-          ai := Taicpu.Op_sym(A_JMP,S_NO,l)
-        else
-          begin
-            ai:=Taicpu.Op_sym(A_Jcc,S_NO,l);
-            ai.SetCondition(c);
-          end;
-        ai.is_jmp:=true;
-        exprasmList.concat(ai);
-      end;
-
-
     procedure emit_none(i : tasmop;s : topsize);
       begin
          exprasmList.concat(Taicpu.Op_none(i,s));
@@ -187,7 +161,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.3  2003-09-03 15:55:02  peter
+  Revision 1.4  2003-09-28 21:49:39  peter
+    * removed emitjmp
+
+  Revision 1.3  2003/09/03 15:55:02  peter
     * NEWRA branch merged
 
   Revision 1.2.2.1  2003/08/29 17:29:00  peter

compiler/x86/cpubase.pas

@@ -226,7 +226,7 @@ uses
 *****************************************************************************}
 
     type
-      TResFlags = (F_E,F_NE,F_G,F_L,F_GE,F_LE,F_C,F_NC,F_A,F_AE,F_B,F_BE);
+      TResFlags = (F_E,F_NE,F_G,F_L,F_GE,F_LE,F_C,F_NC,F_A,F_AE,F_B,F_BE,F_S,F_NS);
 
 {*****************************************************************************
                                 Reference
@@ -474,7 +474,7 @@ implementation
     procedure inverse_flags(var f: TResFlags);
       const
         inv_flags: array[TResFlags] of TResFlags =
-          (F_NE,F_E,F_LE,F_GE,F_L,F_G,F_NC,F_C,F_BE,F_B,F_AE,F_A);
+          (F_NE,F_E,F_LE,F_GE,F_L,F_G,F_NC,F_C,F_BE,F_B,F_AE,F_A,F_NS,F_S);
       begin
         f:=inv_flags[f];
       end;
@@ -483,7 +483,7 @@ implementation
     function flags_to_cond(const f: TResFlags) : TAsmCond;
       const
         flags_2_cond : array[TResFlags] of TAsmCond =
-          (C_E,C_NE,C_G,C_L,C_GE,C_LE,C_C,C_NC,C_A,C_AE,C_B,C_BE);
+          (C_E,C_NE,C_G,C_L,C_GE,C_LE,C_C,C_NC,C_A,C_AE,C_B,C_BE,C_S,C_NS);
       begin
         result := flags_2_cond[f];
       end;
@@ -558,7 +558,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.20  2003-09-25 21:29:23  peter
+  Revision 1.21  2003-09-28 21:49:39  peter
+    * removed emitjmp
+
+  Revision 1.20  2003/09/25 21:29:23  peter
     * remove sp_fixup
 
   Revision 1.19  2003/09/24 17:12:36  florian