Browse Source

* fixed internalerror on win64 after r21696 (source register size depends on
the platform, mantis #22316)

git-svn-id: trunk@21715 -

Jonas Maebe 13 years ago
parent
commit
571b3feab1
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ncgcal.pas

+ 1 - 1
compiler/ncgcal.pas

@@ -972,7 +972,7 @@ implementation
            begin
            begin
              cgpara.init;
              cgpara.init;
              paramanager.getintparaloc(pocall_default,1,s32inttype,cgpara);
              paramanager.getintparaloc(pocall_default,1,s32inttype,cgpara);
-             cg.a_load_reg_cgpara(current_asmdata.CurrAsmList,OS_S32,NR_FUNCTION_RESULT_REG,cgpara);
+             cg.a_load_reg_cgpara(current_asmdata.CurrAsmList,OS_INT,NR_FUNCTION_RESULT_REG,cgpara);
              paramanager.freecgpara(current_asmdata.CurrAsmList,cgpara);
              paramanager.freecgpara(current_asmdata.CurrAsmList,cgpara);
              cgpara.done;
              cgpara.done;
              cg.g_call(current_asmdata.CurrAsmList,'FPC_SAFECALLCHECK');
              cg.g_call(current_asmdata.CurrAsmList,'FPC_SAFECALLCHECK');