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

Merged revision(s) 44887 from trunk:

Browse Source 
* fix WinAPI directive: the purpose is to present the OS' default calling convention which for Windows means stdcall (at least on those platforms that support stdcall) on other platforms it is cdecl (for now)
........

git-svn-id: branches/fixes_3_2@45070 -
This commit is contained in:
svenbarth 2020-04-25 14:08:12 +00:00
parent d2deae41f2
commit 364db85ec9
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

@ -2348,7 +2348,7 @@ end;
procedure pd_winapi(pd:tabstractprocdef); procedure pd_winapi(pd:tabstractprocdef);
begin begin
if not(target_info.system in systems_wince) then if not(target_info.system in systems_all_windows+[system_i386_nativent]) then
pd.proccalloption:=pocall_cdecl pd.proccalloption:=pocall_cdecl
else else
pd.proccalloption:=pocall_stdcall; pd.proccalloption:=pocall_stdcall;