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

* Call hlcg.a_call_ref and a_call_reg instead of cg methods (needed for MIPS cpu)

Browse Source 
git-svn-id: trunk@21855 -
This commit is contained in:
pierre 2012-07-10 21:34:03 +00:00
parent 31f9a9d420
commit 3f6c3cbb87
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgcal.pas
View File

@ -835,9 +835,9 @@ implementation
{ call method }
extra_call_code;
{$ifdef x86}
cg.a_call_ref(current_asmdata.CurrAsmList,href);
hlcg.a_call_ref(current_asmdata.CurrAsmList,tabstractprocdef(procdefinition),href);
{$else x86}
cg.a_call_reg(current_asmdata.CurrAsmList,pvreg);
hlcg.a_call_reg(current_asmdata.CurrAsmList,tabstractprocdef(procdefinition),pvreg);
{$endif x86}
extra_post_call_code;
end
@ -913,7 +913,7 @@ implementation
if (po_interrupt in procdefinition.procoptions) then
extra_interrupt_code;
extra_call_code;
cg.a_call_reg(current_asmdata.CurrAsmList,pvreg);
hlcg.a_call_reg(current_asmdata.CurrAsmList,tabstractprocdef(procdefinition),pvreg);
extra_post_call_code;
end;