From 948ec12140a3dfdb443dd257c8674b54d12671cc Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 8 Oct 2006 18:20:13 +0000
Subject: [PATCH] * use oldfpccall for interrupts

git-svn-id: trunk@4837 -
---
 compiler/pdecsub.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index ff772457ef..122994b9da 100644
--- a/compiler/pdecsub.pas
+++ b/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];