Browse Source

* fixed parameter number of the function result for pushleftright_pocalls on
non-Windows i386 platforms

git-svn-id: trunk@15612 -

Jonas Maebe 15 years ago
parent
commit
b5f05d79fb
1 changed files with 3 additions and 2 deletions
  1. 3 2
      compiler/pdecsub.pas

+ 3 - 2
compiler/pdecsub.pas

@@ -106,8 +106,9 @@ implementation
 
 {$if defined(i386)}
            { For left to right add it at the end to be delphi compatible }
-           if (target_info.system in systems_all_windows) and
-              (pd.proccalloption in (pushleftright_pocalls+[pocall_safecall])) then
+           if (pd.proccalloption in (pushleftright_pocalls)) or
+              ((target_info.system in systems_all_windows) and
+               (pd.proccalloption=pocall_safecall)) then
              paranr:=paranr_result_leftright
            else
 {$elseif defined(x86) or defined(arm)}