|
@@ -1521,7 +1521,8 @@ implementation
|
|
if codegenerror then
|
|
if codegenerror then
|
|
exit;
|
|
exit;
|
|
{$if defined(x86) or defined(arm)}
|
|
{$if defined(x86) or defined(arm)}
|
|
- if current_procinfo.procdef.proccalloption=pocall_safecall then
|
|
|
|
|
|
+ if (target_info.system in system_all_windows) and
|
|
|
|
+ (current_procinfo.procdef.proccalloption=pocall_safecall) then
|
|
begin
|
|
begin
|
|
{ Remove and destroy 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_POPOBJECTSTACK');
|