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

* fixed another case where safecall was not ignored for targets<>windows

Browse Source 
git-svn-id: trunk@13647 -
This commit is contained in:
Jonas Maebe 2009-09-05 12:53:42 +00:00
parent 32c6253c07
commit 621ebe240e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pdecsub.pas
View File

@ -103,14 +103,16 @@ implementation
{$if defined(i386)} {$if defined(i386)}
{ For left to right add it at the end to be delphi compatible } { For left to right add it at the end to be delphi compatible }
if pd.proccalloption in (pushleftright_pocalls+[pocall_safecall]) then if (target_info.system in system_all_windows) and
(pd.proccalloption in (pushleftright_pocalls+[pocall_safecall])) then
paranr:=paranr_result_leftright paranr:=paranr_result_leftright
else else
{$elseif defined(x86) or defined(arm)} {$elseif defined(x86) or defined(arm)}
{ other platforms don't have a "safecall" convention, { other platforms don't have a "safecall" convention,
and never reverse the parameter pushing order and never reverse the parameter pushing order
} }
if (pd.proccalloption = pocall_safecall) then if (target_info.system in system_all_windows) and
(pd.proccalloption = pocall_safecall) then
paranr:=paranr_result_leftright paranr:=paranr_result_leftright
else else
{$endif} {$endif}