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

* Fix tw18702.pp i386-win32 specific failure (stack was not properly maintained)

Browse Source 
git-svn-id: trunk@22617 -
This commit is contained in:
pierre 2012-10-12 14:00:35 +00:00
parent 614436d8cb
commit 2fdd8656d5
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i386/n386cal.pas
View File

@ -87,8 +87,17 @@ implementation
{ was "callee removes funcret pointer from stack" until now, we'll }
{ keep that default for everyone else (ncgcal decreases popsize by }
{ sizeof(aint) in case of ret_in_param()) }
{ This is only correct if the hidden funcret parameter
is not passed as a register.
As it is inserted in parast after all other hidden parameters,
it is always the first parameter (apart from hidden parentfp,
but this one is never put into a register (vs_nonregable set)
so funcret is always in EAX for register calling }
if (target_info.system = system_i386_win32) and
paramanager.ret_in_param(procdefinition.returndef,procdefinition.proccalloption) then
paramanager.ret_in_param(procdefinition.returndef,procdefinition.proccalloption) and
not ((procdefinition.proccalloption=pocall_register) or
((procdefinition.proccalloption=pocall_internproc) and
(pocall_default=pocall_register))) then
inc(pop_size,sizeof(aint));
{ better than an add on all processors }