rtti: make aligntoqword to always align to the same size as typinfo/AlignTypeData. this fixes m68k crashes in RTTI after r35218

git-svn-id: trunk@35228 -

rtl/inc/system.inc

@@ -445,11 +445,14 @@ function aligntoptr(p : pointer) : pointer;inline;
 
 
 function aligntoqword(p : pointer) : pointer;inline;
+{$push}
+{$packrecords c}
   type
     TAlignCheck = record
       b : byte;
       q : qword;
     end;
+{$pop}
   begin
 {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
     result:=align(p,PtrInt(@TAlignCheck(nil^).q))