Bläddra i källkod

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 4 år sedan
förälder
incheckning
946d9ec715
1 ändrade filer med 4 tillägg och 0 borttagningar
  1. 4 0
      compiler/pdecsub.pas

+ 4 - 0
compiler/pdecsub.pas

@@ -2564,7 +2564,11 @@ const
       idtok:_INTERRUPT;
       idtok:_INTERRUPT;
       pd_flags : [pd_implemen,pd_body,pd_notobject,pd_notobjintf,pd_notrecord,pd_nothelper];
       pd_flags : [pd_implemen,pd_body,pd_notobject,pd_notobjintf,pd_notrecord,pd_nothelper];
       handler  : @pd_interrupt;
       handler  : @pd_interrupt;
+{$ifdef i386}
       pocall   : pocall_oldfpccall;
       pocall   : pocall_oldfpccall;
+{$else i386}
+      pocall   : pocall_stdcall;
+{$endif i386}
       pooption : [po_interrupt];
       pooption : [po_interrupt];
       mutexclpocall : [pocall_internproc,pocall_cdecl,pocall_cppdecl,pocall_stdcall,pocall_mwpascal,
       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];
                        pocall_pascal,pocall_far16,pocall_oldfpccall,pocall_sysv_abi_cdecl,pocall_ms_abi_cdecl];