Explorar el Código

* move CGSize2Opsize to interface

peter hace 23 años
padre
commit
6dffb25562
Se han modificado 1 ficheros con 12 adiciones y 7 borrados
  1. 12 7
      compiler/x86/cgx86.pas

+ 12 - 7
compiler/x86/cgx86.pas

@@ -136,6 +136,13 @@ unit cgx86;
         procedure floatstoreops(t : tcgsize;var op : tasmop;var s : topsize);
       end;
 
+   const
+      TCGSize2OpSize: Array[tcgsize] of topsize =
+        (S_NO,S_B,S_W,S_L,S_L,S_B,S_W,S_L,S_L,
+         S_FS,S_FL,S_FX,S_IQ,
+         S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO);
+
+
   implementation
 
     uses
@@ -146,6 +153,7 @@ unit cgx86;
 {$ifndef NOTARGETWIN32}
     const
       winstackpagesize = 4096;
+{$endif NOTARGETWIN32}
 
       TOpCG2AsmOp: Array[topcg] of TAsmOp = (A_NONE,A_ADD,A_AND,A_DIV,
                             A_IDIV,A_MUL, A_IMUL, A_NEG,A_NOT,A_OR,
@@ -154,12 +162,6 @@ unit cgx86;
       TOpCmp2AsmCond: Array[topcmp] of TAsmCond = (C_NONE,
           C_E,C_G,C_L,C_GE,C_LE,C_NE,C_BE,C_B,C_AE,C_A);
 
-      TCGSize2OpSize: Array[tcgsize] of topsize =
-        (S_NO,S_B,S_W,S_L,S_L,S_B,S_W,S_L,S_L,
-         S_FS,S_FL,S_FX,S_IQ,
-         S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO);
-{$endif NOTARGETWIN32}
-
 
 {****************************************************************************
                        This is private property, keep out! :)
@@ -1674,7 +1676,10 @@ unit cgx86;
 end.
 {
   $Log$
-  Revision 1.14  2002-09-01 14:42:41  peter
+  Revision 1.15  2002-09-16 18:06:29  peter
+    * move CGSize2Opsize to interface
+
+  Revision 1.14  2002/09/01 14:42:41  peter
     * removevaluepara added to fix the stackpointer so restoring of
       saved registers works