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

* pocall_mwpascal is the same as cdecl/cppdecl -> handle it the same for

Browse Source 
varargs

git-svn-id: trunk@20947 -
This commit is contained in:
Jonas Maebe 2012-04-20 21:23:01 +00:00
parent 532102d3fa
commit 8c27e280e9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/powerpc64/cpupara.pas
View File

@ -486,7 +486,7 @@ begin
result := create_paraloc_info_intern(p, callerside, p.paras, curintreg, result := create_paraloc_info_intern(p, callerside, p.paras, curintreg,
curfloatreg, curmmreg, cur_stack_offset, false); curfloatreg, curmmreg, cur_stack_offset, false);
if (p.proccalloption in [pocall_cdecl, pocall_cppdecl]) then begin if (p.proccalloption in [pocall_cdecl, pocall_cppdecl, pocall_mwpascal]) then begin
{ just continue loading the parameters in the registers } { just continue loading the parameters in the registers }
result := create_paraloc_info_intern(p, callerside, varargspara, curintreg, result := create_paraloc_info_intern(p, callerside, varargspara, curintreg,
curfloatreg, curmmreg, cur_stack_offset, true); curfloatreg, curmmreg, cur_stack_offset, true);