瀏覽代碼

* use oldfpccall for interrupts

git-svn-id: trunk@4837 -
florian 19 年之前
父節點
當前提交
948ec12140
共有 1 個文件被更改,包括 1 次插入1 次删除
  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];