Browse Source

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 years ago
parent
commit
be9f3cd030
1 changed files with 1 additions and 3 deletions
  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;
     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
       begin
         case getregtype(reg) of
         case getregtype(reg) of
           R_INTREGISTER :
           R_INTREGISTER :
@@ -502,7 +500,7 @@ unit cpubase;
       begin
       begin
         result := inverse[c];
         result := inverse[c];
       end;
       end;
-    
+
 
 
     function conditions_equal(const c1, c2: TAsmCond): boolean; {$ifdef USEINLINE}inline;{$endif USEINLINE}
     function conditions_equal(const c1, c2: TAsmCond): boolean; {$ifdef USEINLINE}inline;{$endif USEINLINE}
       begin
       begin