paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 20:11:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* registers of references aren't reused so we can safe a mov

Browse Source 
git-svn-id: trunk@5411 -
This commit is contained in:
florian 2006-11-16 22:26:03 +00:00
parent 9905e6d7ff
commit ac5b260ec2
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgcnv.pas
View File

@ -224,6 +224,7 @@ interface
begin begin
location_reset(location,LOC_REFERENCE,OS_NO); location_reset(location,LOC_REFERENCE,OS_NO);
case left.location.loc of case left.location.loc of
LOC_CREGISTER,
LOC_REGISTER : LOC_REGISTER :
begin begin
{$ifdef cpu_uses_separate_address_registers} {$ifdef cpu_uses_separate_address_registers}
@ -237,12 +238,6 @@ interface
{$endif} {$endif}
location.reference.base := left.location.register; location.reference.base := left.location.register;
end; end;
LOC_CREGISTER :
begin
location.reference.base:=cg.getaddressregister(current_asmdata.CurrAsmList);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,left.location.register,
location.reference.base);
end;
LOC_REFERENCE, LOC_REFERENCE,
LOC_CREFERENCE : LOC_CREFERENCE :
begin begin