Explorar o código

Merged revision(s) 39838 from trunk:
* only i386 uses oldfpccall for interrupts, all other architectures use now stdcall, resolves #34317
........

git-svn-id: branches/fixes_3_2@49176 -

svenbarth %!s(int64=4) %!d(string=hai) anos
pai
achega
946d9ec715
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  1. 4 0
      compiler/pdecsub.pas

+ 4 - 0
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];