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

* fixed parameter number of the function result for pushleftright_pocalls on

Browse Source 
non-Windows i386 platforms

git-svn-id: trunk@15612 -
This commit is contained in:
Jonas Maebe 2010-07-19 15:33:26 +00:00
parent 66b29841dd
commit b5f05d79fb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pdecsub.pas
View File

@ -106,8 +106,9 @@ 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 (target_info.system in systems_all_windows) and if (pd.proccalloption in (pushleftright_pocalls)) or
(pd.proccalloption in (pushleftright_pocalls+[pocall_safecall])) then ((target_info.system in systems_all_windows) and
(pd.proccalloption=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)}