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

* Fixed bug introduced by r7667. Do not release pushed return value be callee for cdecl on win32. It fixes error3 of bug #9098.

Browse Source 
git-svn-id: trunk@7734 -
This commit is contained in:
yury 2007-06-19 21:06:44 +00:00
parent a1108a8fbb
commit 93e72c2079
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/i386/cgcpu.pas
View File

@ -310,7 +310,9 @@ unit cgcpu;
(not use_fixed_stack) then
begin
{ complex return values are removed from stack in C code PM }
if paramanager.ret_in_param(current_procinfo.procdef.returndef,
{ but not on win32 }
if (target_info.system <> system_i386_win32) and
paramanager.ret_in_param(current_procinfo.procdef.returndef,
current_procinfo.procdef.proccalloption) then
list.concat(Taicpu.Op_const(A_RET,S_W,sizeof(aint)))
else