From e94277d5dca6c7eeab098b5275ea6e70a6fb8ba7 Mon Sep 17 00:00:00 2001 From: yury Date: Fri, 24 Nov 2006 13:20:32 +0000 Subject: [PATCH] * removed unneeded label. * asm output beautification. git-svn-id: trunk@5467 - --- compiler/arm/agarmgas.pas | 2 +- compiler/arm/narmset.pas | 3 --- 2 files changed, 1 insertion(+), 4 deletions(-) diff --git a/compiler/arm/agarmgas.pas b/compiler/arm/agarmgas.pas index 0d0d5b5c69..cff90f696c 100644 --- a/compiler/arm/agarmgas.pas +++ b/compiler/arm/agarmgas.pas @@ -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); diff --git a/compiler/arm/narmset.pas b/compiler/arm/narmset.pas index ba021936bb..e6d7abf4b9 100644 --- a/compiler/arm/narmset.pas +++ b/compiler/arm/narmset.pas @@ -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;