paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed unused table, cleanups

Browse Source 
git-svn-id: trunk@25740 -
This commit is contained in:
Károly Balogh 2013-10-10 21:19:15 +00:00
parent 4c5f273bc5
commit bcab04538c
1 changed files with 3 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/m68k/ag68kgas.pas
View File

@ -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