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

* It is needed to destroy exception object in safecall procedure as well.

Browse Source 
git-svn-id: trunk@7722 -
This commit is contained in:
yury 2007-06-18 17:26:15 +00:00
parent 78fe68859b
commit 9844174e5e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncgflw.pas
View File

@ -1480,8 +1480,9 @@ implementation
{$if defined(x86) or defined(arm)}
if current_procinfo.procdef.proccalloption=pocall_safecall then
begin
{ Remove the last exception object }
{ Remove and destroy the last exception object }
cg.a_call_name(current_asmdata.CurrAsmList,'FPC_POPOBJECTSTACK');
cg.a_call_name(current_asmdata.CurrAsmList,'FPC_DESTROYEXCEPTION');
{ Set return value of safecall procedure to indicate exception. }
{ Exception will be raised after procedure exit based on return value }
cg.a_load_const_reg(current_asmdata.CurrAsmList,OS_ADDR,aint($8000FFFF),NR_FUNCTION_RETURN_REG);