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

* revert last commit

Browse Source
This commit is contained in:
peter 2005-01-30 11:03:22 +00:00
parent ecfbbdfc00
commit 46dbff9c93
1 changed files with 29 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/i386/cpupara.pas
View File

@ -350,8 +350,6 @@ unit cpupara;
hp.paraloc[side].size:=paracgsize; hp.paraloc[side].size:=paracgsize;
hp.paraloc[side].intsize:=paralen; hp.paraloc[side].intsize:=paralen;
hp.paraloc[side].Alignment:=paraalign; hp.paraloc[side].Alignment:=paraalign;
if paralen>0 then
begin
{ Copy to stack? } { Copy to stack? }
if paracgsize=OS_NO then if paracgsize=OS_NO then
begin begin
@ -390,12 +388,6 @@ unit cpupara;
dec(paralen,l); dec(paralen,l);
end; end;
end; end;
end
else
begin
paraloc:=hp.paraloc[side].add_location;
paraloc^.loc:=LOC_VOID;
end;
end; end;
{ Adapt offsets for left-to-right calling } { Adapt offsets for left-to-right calling }
if p.proccalloption in pushleftright_pocalls then if p.proccalloption in pushleftright_pocalls then
@ -610,8 +602,8 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.63 2005-01-29 11:36:52 peter Revision 1.64 2005-01-30 11:03:22 peter
* update x86_64 with new cpupara * revert last commit
Revision 1.62 2005/01/18 22:19:20 peter Revision 1.62 2005/01/18 22:19:20 peter
* multiple location support for i386 a_param_ref * multiple location support for i386 a_param_ref