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

* allocate a temp addressreg instead of a temp intreg in callnode. improves code generation on m68k for these cases

Browse Source 
git-svn-id: trunk@30080 -
This commit is contained in:
Károly Balogh 2015-03-02 22:21:53 +00:00
parent b4033efc00
commit a71fcd290b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgcal.pas
View File

@ -947,7 +947,7 @@ implementation
callref:=can_call_ref(href); callref:=can_call_ref(href);
if not callref then if not callref then
begin begin
pvreg:=cg.getintregister(current_asmdata.CurrAsmList,proc_addr_size); pvreg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,proc_addr_voidptrdef);
cg.a_load_ref_reg(current_asmdata.CurrAsmList,proc_addr_size,proc_addr_size,href,pvreg); cg.a_load_ref_reg(current_asmdata.CurrAsmList,proc_addr_size,proc_addr_size,href,pvreg);
end; end;
@ -1026,7 +1026,7 @@ implementation
secondpass(right); secondpass(right);
callref:=false; callref:=false;
pvreg:=cg.getintregister(current_asmdata.CurrAsmList,proc_addr_size); pvreg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,proc_addr_voidptrdef);
{ Only load OS_ADDR from the reference (when converting to hlcg: { Only load OS_ADDR from the reference (when converting to hlcg:
watch out with procedure of object) } watch out with procedure of object) }
if po_is_block in procdefinition.procoptions then if po_is_block in procdefinition.procoptions then