+ implementation of the vectorcall calling convention by J. Gareth Moreton

+ tests

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@38206 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 0 deletions

diff --git a/compiler/symtype.pas b/compiler/symtype.pas
index 962849956c..4491960e87 100644
--- a/compiler/symtype.pas
+++ b/compiler/symtype.pas
@@ -82,6 +82,7 @@ interface
          function  alignment:shortint;virtual;abstract;
          { alignment when this type appears in a record/class/... }
          function  structalignment:shortint;virtual;
+         function  aggregatealignment:shortint;virtual;
          function  getvardef:longint;virtual;abstract;
          function  getparentdef:tdef;virtual;
          function  getsymtable(t:tgetsymtable):TSymtable;virtual;
@@ -379,6 +380,14 @@ implementation
         result:=alignment;
       end;
 
+    function tdef.aggregatealignment: shortint;
+      begin
+        if Assigned(Owner) and Assigned(Owner.defowner) and (Owner.defowner is TDef) and (Owner.defowner <> Self) then
+          Result := max(structalignment, TDef(Owner.defowner).aggregatealignment)
+        else
+          Result := structalignment;
+      end;
+
 
     procedure tdef.ChangeOwner(st:TSymtable);
       begin