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

* add $parentfp as a first parameter on i8086, instead of last. This makes

Browse Source 
regular non-nested procedures compatible with nested var procvars and fixes
  the tmaclocalprocparam*.pp tests on i8086

git-svn-id: trunk@25825 -
This commit is contained in:
nickysn 2013-10-18 21:37:06 +00:00
parent 7e7ab2fd4d
commit 8744fbefbb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pparautl.pas
View File

@ -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