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

* reverted wrong commit in r8133

Browse Source 
git-svn-id: trunk@8135 -
This commit is contained in:
florian 2007-07-22 17:00:51 +00:00
parent a07bbc8d5f
commit be6d2dd0f9
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/x86_64/cpupara.pas
View File

@ -178,18 +178,12 @@ unit cpupara;
function tx86_64paramanager.ret_in_param(def : tdef;calloption : tproccalloption) : boolean;
var
loc1,loc2:tcgloc;
begin
if target_info.system=system_x86_64_win64 then
result:=(calloption=pocall_safecall) or
(def.size>8) or not(def.size in [1,2,4,8])
else
begin
{ get memory class }
getvalueparaloc(p,loc1,loc2);
result:=loc1=LOC_REFERENCE;
end;
result:=inherited ret_in_param(def,calloption);
end;
@ -230,7 +224,7 @@ unit cpupara;
formaldef :
result:=true;
recorddef :
result:=((varspez=vs_const) and ((def.size>16) or (calloption<>pocall_register))) or
result:=((varspez=vs_const) and ((def.size>16) or (calloption<>pocall_register))) or
((target_info.system=system_x86_64_win64) and (def.size>8));
arraydef :
begin