Przeglądaj źródła

* use oldfpccall for interrupts

git-svn-id: trunk@4837 -
florian 19 lat temu
rodzic
commit
948ec12140
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      compiler/pdecsub.pas

+ 1 - 1
compiler/pdecsub.pas

@@ -1728,7 +1728,7 @@ const
       idtok:_INTERRUPT;
       pd_flags : [pd_implemen,pd_body,pd_notobject,pd_notobjintf];
       handler  : @pd_interrupt;
-      pocall   : pocall_none;
+      pocall   : pocall_oldfpccall;
       pooption : [po_interrupt];
       mutexclpocall : [pocall_internproc,pocall_cdecl,pocall_cppdecl,pocall_stdcall,
                        pocall_pascal,pocall_far16,pocall_oldfpccall];