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

    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 -

compiler/x86_64/cpupara.pas

@@ -224,7 +224,7 @@ unit cpupara;
           formaldef :
             result:=true;
           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));
           arraydef :
             begin