diff --git a/compiler/ncgflw.pas b/compiler/ncgflw.pas index d9ae036957..7784d2d3de 100644 --- a/compiler/ncgflw.pas +++ b/compiler/ncgflw.pas @@ -1459,6 +1459,7 @@ implementation paramanager.freecgpara(current_asmdata.CurrAsmList,cgpara); cgpara.done; cg.g_call(current_asmdata.CurrAsmList,'FPC_SAFECALLHANDLER'); + cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_INT,OS_INT,NR_FUNCTION_RESULT_REG, NR_FUNCTION_RETURN_REG); end; procedure tcgtryfinallynode.pass_generate_code; @@ -1561,13 +1562,11 @@ implementation CGMessage(cg_e_control_flow_outside_finally); if codegenerror then exit; -{$if defined(x86) or defined(arm)} if (tf_safecall_exceptions in target_info.flags) and (current_procinfo.procdef.proccalloption=pocall_safecall) then handle_safecall_exception else -{$endif} - cg.a_call_name(current_asmdata.CurrAsmList,'FPC_RERAISE',false); + cg.a_call_name(current_asmdata.CurrAsmList,'FPC_RERAISE',false); end else begin