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

* always extend parameters < sizeof(aint) to sizeof(aint) for darwin/x86

Browse Source 
git-svn-id: trunk@3628 -
This commit is contained in:
Jonas Maebe 2006-05-22 10:42:55 +00:00
parent da85b3db8c
commit cc7cea1a5d
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/i386/cpupara.pas
View File

@ -407,7 +407,17 @@ unit cpupara;
else else
begin begin
paralen:=push_size(hp.varspez,hp.vartype.def,p.proccalloption); paralen:=push_size(hp.varspez,hp.vartype.def,p.proccalloption);
paracgsize:=def_cgsize(hp.vartype.def); { darwin/x86 requires that parameters < sizeof(aint) are sign/ }
{ zero extended to sizeof(aint) }
if (target_info.system = system_i386_darwin) and
(side = callerside) and
(paralen < sizeof(aint)) then
begin
paralen := sizeof(aint);
paracgsize:=OS_INT;
end
else
paracgsize:=def_cgsize(hp.vartype.def);
end; end;
hp.paraloc[side].reset; hp.paraloc[side].reset;
hp.paraloc[side].size:=paracgsize; hp.paraloc[side].size:=paracgsize;