Jelajahi Sumber

removed unused table, cleanups

git-svn-id: trunk@25740 -
Károly Balogh 11 tahun lalu
induk
melakukan
bcab04538c
1 mengubah file dengan 3 tambahan dan 14 penghapusan
  1. 3 14
      compiler/m68k/ag68kgas.pas

+ 3 - 14
compiler/m68k/ag68kgas.pas

@@ -96,17 +96,8 @@ interface
 
 
      gas_opsize2str : array[topsize] of string[2] =
-     ('','.b','.w','.l','.s','.d','.x',''
-     );
-{
-     gas_reg2str : treg2strtable =
-      ('', '%d0','%d1','%d2','%d3','%d4','%d5','%d6','%d7',
-       '%a0','%a1','%a2','%a3','%a4','%a5','%a6','%sp',
-       '-(%sp)','(%sp)+',
-       '%ccr','%fp0','%fp1','%fp2','%fp3','%fp4','%fp5',
-       '%fp6','%fp7','%fpcr','%sr','%ssp','%dfc',
-       '%sfc','%vbr','%fpsr');
-}
+     ('','.b','.w','.l','.s','.d','.x','');
+
 
   implementation
 
@@ -201,10 +192,8 @@ interface
         i : tsuperregister;
       begin
         case o.typ of
-          top_reg: begin
+          top_reg:
             getopstr:=gas_regname(o.reg);
-//            writeln('top_reg:',getopstr,'!');
-            end;
           top_ref:
             if o.ref^.refaddr=addr_full then
               begin