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

* fix arraydef copybyvalue check

Browse Source 
git-svn-id: trunk@5088 -
This commit is contained in:
peter 2006-10-30 10:27:49 +00:00
parent 293638230a
commit 23596358a7
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/x86_64/cpupara.pas
View File

@ -122,10 +122,12 @@ unit cpupara;
arraydef:
begin
if not(is_special_array(p)) and
{ win64 abi }
((target_info.system=system_x86_64_win64) and (p.size<=8)) or
{ linux abi }
((target_info.system<>system_x86_64_win64) and (p.size<=16)) then
(
{ win64 abi }
((target_info.system=system_x86_64_win64) and (p.size<=8)) or
{ linux abi }
((target_info.system<>system_x86_64_win64) and (p.size<=16))
) then
loc1:=LOC_REGISTER
else
loc1:=LOC_REFERENCE;