Ver Fonte

* add $parentfp as a first parameter on i8086, instead of last. This makes
regular non-nested procedures compatible with nested var procvars and fixes
the tmaclocalprocparam*.pp tests on i8086

git-svn-id: trunk@25825 -

nickysn há 11 anos atrás
pai
commit
8744fbefbb
1 ficheiros alterados com 2 adições e 2 exclusões
  1. 2 2
      compiler/pparautl.pas

+ 2 - 2
compiler/pparautl.pas

@@ -106,10 +106,10 @@ implementation
               paranr:=paranr_parentfp
               paranr:=paranr_parentfp
             { nested procvars require Delphi-style parentfp passing, see
             { nested procvars require Delphi-style parentfp passing, see
               po_delphi_nested_cc declaration for more info }
               po_delphi_nested_cc declaration for more info }
-{$ifdef i386}
+{$if defined(i386) or defined(i8086)}
             else if (pd.proccalloption in pushleftright_pocalls) then
             else if (pd.proccalloption in pushleftright_pocalls) then
               paranr:=paranr_parentfp_delphi_cc_leftright
               paranr:=paranr_parentfp_delphi_cc_leftright
-{$endif i386}
+{$endif i386 or i8086}
             else
             else
               paranr:=paranr_parentfp_delphi_cc;
               paranr:=paranr_parentfp_delphi_cc;
             { Generate frame pointer. It can't be put in a register since it
             { Generate frame pointer. It can't be put in a register since it