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

compiler: fix safecall result handling if it is placed to a register

Browse Source 
git-svn-id: trunk@14952 -
This commit is contained in:
paul 2010-02-28 10:50:40 +00:00
parent e9c95ea46f
commit e2fdfc426f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgflw.pas
View File

@ -1595,7 +1595,7 @@ implementation
{ Set return value of safecall procedure to indicate exception. }
{ Exception will be raised after procedure exit based on return value }
cg.a_reg_alloc(current_asmdata.CurrAsmList,NR_FUNCTION_RESULT_REG);
cg.a_load_ref_reg(current_asmdata.CurrAsmList,retsym.localloc.size,OS_INT,retsym.localloc.reference,NR_FUNCTION_RESULT_REG);
cg.a_load_loc_reg(current_asmdata.CurrAsmList,OS_INT,retsym.localloc,NR_FUNCTION_RESULT_REG);
cg.a_reg_dealloc(current_asmdata.CurrAsmList,NR_FUNCTION_RESULT_REG);
end
else