paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 03:39:40 +01: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 } { call method }
extra_call_code; extra_call_code;
{$ifdef x86} {$ifdef x86}
cg.a_call_ref(current_asmdata.CurrAsmList,href); hlcg.a_call_ref(current_asmdata.CurrAsmList,tabstractprocdef(procdefinition),href);
{$else x86} {$else x86}
cg.a_call_reg(current_asmdata.CurrAsmList,pvreg); hlcg.a_call_reg(current_asmdata.CurrAsmList,tabstractprocdef(procdefinition),pvreg);
{$endif x86} {$endif x86}
extra_post_call_code; extra_post_call_code;
end end
@ -913,7 +913,7 @@ implementation
if (po_interrupt in procdefinition.procoptions) then if (po_interrupt in procdefinition.procoptions) then
extra_interrupt_code; extra_interrupt_code;
extra_call_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; extra_post_call_code;
end; end;