paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-09 09:58:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use oldfpccall for interrupts

Browse Source 
git-svn-id: trunk@4837 -
This commit is contained in:
florian 2006-10-08 18:20:13 +00:00
parent 8d0f457f6f
commit 948ec12140
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecsub.pas
View File

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