paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 19:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only i386 uses oldfpccall for interrupts, all other architectures use now stdcall, resolves #34317

Browse Source 
git-svn-id: trunk@39838 -
This commit is contained in:
florian 2018-09-27 21:00:35 +00:00
parent 352fb866ef
commit be1bd043a7
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecsub.pas
View File

@ -2612,7 +2612,11 @@ const
idtok:_INTERRUPT;
pd_flags : [pd_implemen,pd_body,pd_notobject,pd_notobjintf,pd_notrecord,pd_nothelper];
handler : @pd_interrupt;
{$ifdef i386}
pocall : pocall_oldfpccall;
{$else i386}
pocall : pocall_stdcall;
{$endif i386}
pooption : [po_interrupt];
mutexclpocall : [pocall_internproc,pocall_cdecl,pocall_cppdecl,pocall_stdcall,pocall_mwpascal,
pocall_pascal,pocall_far16,pocall_oldfpccall,pocall_sysv_abi_cdecl,pocall_ms_abi_cdecl];