소스 검색

* 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];