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

Removed unused register allocation in tarminlinenode.second_abs_long

Browse Source 
git-svn-id: trunk@23047 -
This commit is contained in:
masta 2012-11-22 19:20:39 +00:00
parent d956808080
commit e982f4789d
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/narminl.pas
View File

@ -369,14 +369,12 @@ implementation
procedure tarminlinenode.second_abs_long; procedure tarminlinenode.second_abs_long;
var var
hregister : tregister;
opsize : tcgsize; opsize : tcgsize;
hp : taicpu; hp : taicpu;
begin begin
secondpass(left); secondpass(left);
opsize:=def_cgsize(left.resultdef); opsize:=def_cgsize(left.resultdef);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true); hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
hregister:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
location:=left.location; location:=left.location;
location.register:=cg.getintregister(current_asmdata.CurrAsmList,opsize); location.register:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
cg.a_reg_alloc(current_asmdata.CurrAsmList,NR_DEFAULTFLAGS); cg.a_reg_alloc(current_asmdata.CurrAsmList,NR_DEFAULTFLAGS);