瀏覽代碼

Merged revisions 4253 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r4253 | florian | 2006-07-18 22:45:41 +0200 (Di, 18 Jul 2006) | 2 lines

- removed unnecessary array
........

git-svn-id: branches/fixes_2_0@4254 -

florian 19 年之前
父節點
當前提交
be9f3cd030
共有 1 個文件被更改,包括 1 次插入3 次删除
  1. 1 3
      compiler/arm/cpubase.pas

+ 1 - 3
compiler/arm/cpubase.pas

@@ -413,8 +413,6 @@ unit cpubase;
 
 
     function reg_cgsize(const reg: tregister): tcgsize;
-      const subreg2cgsize:array[Tsubregister] of Tcgsize =
-            (OS_NO,OS_8,OS_8,OS_16,OS_32,OS_64,OS_NO,OS_NO,OS_NO);
       begin
         case getregtype(reg) of
           R_INTREGISTER :
@@ -502,7 +500,7 @@ unit cpubase;
       begin
         result := inverse[c];
       end;
-    
+
 
     function conditions_equal(const c1, c2: TAsmCond): boolean; {$ifdef USEINLINE}inline;{$endif USEINLINE}
       begin