Browse Source

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

git-svn-id: trunk@21855 -
pierre 13 years ago
parent
commit
3f6c3cbb87
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/ncgcal.pas

+ 3 - 3
compiler/ncgcal.pas

@@ -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;