diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas index c4c900eac9..a8a7cf9eca 100644 --- a/compiler/pdecsub.pas +++ b/compiler/pdecsub.pas @@ -2564,7 +2564,11 @@ const idtok:_INTERRUPT; pd_flags : [pd_implemen,pd_body,pd_notobject,pd_notobjintf,pd_notrecord,pd_nothelper]; handler : @pd_interrupt; +{$ifdef i386} pocall : pocall_oldfpccall; +{$else i386} + pocall : pocall_stdcall; +{$endif i386} pooption : [po_interrupt]; mutexclpocall : [pocall_internproc,pocall_cdecl,pocall_cppdecl,pocall_stdcall,pocall_mwpascal, pocall_pascal,pocall_far16,pocall_oldfpccall,pocall_sysv_abi_cdecl,pocall_ms_abi_cdecl];