paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed unneeded label.

Browse Source 
* asm output beautification. 

git-svn-id: trunk@5467 -
This commit is contained in:
yury 2006-11-24 13:20:32 +00:00
parent f5d4c3400e
commit e94277d5dc
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/agarmgas.pas
View File

@ -111,7 +111,7 @@ unit agarmgas;
s:=s+gas_regname(index);
if shiftmode<>SM_None then
s:=s+' ,'+gas_shiftmode2str[shiftmode]+' #'+tostr(shiftimm);
s:=s+', '+gas_shiftmode2str[shiftmode]+' #'+tostr(shiftimm);
end
else if offset<>0 then
s:=s+', #'+tostr(offset);

3
compiler/arm/narmset.pas
View File

@ -70,7 +70,6 @@ implementation
procedure tarmcasenode.genjumptable(hp : pcaselabel;min_,max_ : aint);
var
table : tasmlabel;
last : TConstExprInt;
indexreg : tregister;
href : treference;
@ -99,7 +98,6 @@ implementation
{ case expr greater than max_ => goto elselabel }
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,opsize,jmp_gt,aint(max_),hregister,elselabel);
end;
current_asmdata.getjumplabel(table);
{ make it a 32bit register }
indexreg:=cg.makeregsize(current_asmdata.CurrAsmList,hregister,OS_INT);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,opsize,OS_INT,hregister,indexreg);
@ -112,7 +110,6 @@ implementation
href.shiftimm:=2;
cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,href,NR_PC);
{ generate jump table }
current_asmdata.CurrAsmList.concat(Tai_label.Create(table));
last:=min_;
genitem(current_asmdata.CurrAsmList,hp);
end;