From f31889df575a0a8bdd53467125399b79ae955ba0 Mon Sep 17 00:00:00 2001 From: daniel Date: Sun, 8 Jul 2007 17:26:08 +0000 Subject: [PATCH] * 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 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/x86_64/cpupara.pas b/compiler/x86_64/cpupara.pas index e79be26729..693dfbf2ce 100644 --- a/compiler/x86_64/cpupara.pas +++ b/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