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

* Pass const params by pointer if calling convention<>register. This is

Browse Source 
needed for the windows unit as Delphi compatibility requires const
    parameters for some procedures and Delphi assumes parameters > 4 to be
    passed as pointer.

git-svn-id: trunk@7982 -
This commit is contained in:
daniel 2007-07-08 17:26:08 +00:00
parent 20a804152d
commit f31889df57
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/x86_64/cpupara.pas
View File

@ -224,7 +224,7 @@ unit cpupara;
formaldef : formaldef :
result:=true; result:=true;
recorddef : recorddef :
result:=((varspez=vs_const) and (def.size>16)) 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)); ((target_info.system=system_x86_64_win64) and (def.size>8));
arraydef : arraydef :
begin begin