Parcourir la source

Forgot to commit that I moved tcgsize2opsize from cgcpu to cpubase.

git-svn-id: trunk@25630 -
svenbarth il y a 11 ans
Parent
commit
03623c6c1a
2 fichiers modifiés avec 7 ajouts et 7 suppressions
  1. 0 7
      compiler/m68k/cgcpu.pas
  2. 7 0
      compiler/m68k/cpubase.pas

+ 0 - 7
compiler/m68k/cgcpu.pas

@@ -128,13 +128,6 @@ unit cgcpu;
      }
      function isvalidrefoffset(const ref: treference): boolean;
 
-    const
-      TCGSize2OpSize: Array[tcgsize] of topsize =
-        (S_NO,S_B,S_W,S_L,S_L,S_NO,S_B,S_W,S_L,S_L,S_NO,
-         S_FS,S_FD,S_FX,S_NO,S_NO,
-         S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,
-         S_NO,S_NO,S_NO,S_NO,S_NO,S_NO);
-
     procedure create_codegen;
 
   implementation

+ 7 - 0
compiler/m68k/cpubase.pas

@@ -328,6 +328,13 @@ unit cpubase;
                                   Helpers
 *****************************************************************************}
 
+    const
+      tcgsize2opsize: Array[tcgsize] of topsize =
+        (S_NO,S_B,S_W,S_L,S_L,S_NO,S_B,S_W,S_L,S_L,S_NO,
+         S_FS,S_FD,S_FX,S_NO,S_NO,
+         S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,
+         S_NO,S_NO,S_NO,S_NO,S_NO,S_NO);
+
     function  is_calljmp(o:tasmop):boolean;
 
     procedure inverse_flags(var r : TResFlags);