Small tweak of previous commit

synopse · Oct 29, 2019 · 925a88b · 925a88b
1 parent 8d9066e
commit 925a88b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/SynCommons.pas b/SynCommons.pas
@@ -40432,7 +40432,9 @@ function GetManagedFields(info: PTypeInfo; out firstfield: PFieldInfo): integer;
   else
   begin
     inc(PByte(info),2);
+    {$ifdef FPC_PROVIDE_ATTR_TABLE}
     dec(PByte(info),SizeOf(PFPCAttributeTable));
+    {$endif}
     recInitData := PFPCRecInitData(AlignToPtr(pointer(info)));
     firstfield := PFieldInfo(PtrUInt(@recInitData^.ManagedFieldCount));
     Inc(PByte(firstfield),SizeOf(integer));

diff --git a/SynFPCTypInfo.pas b/SynFPCTypInfo.pas
@@ -175,10 +175,12 @@     TAlignCheck = record // match RTTI TTypeInfo definition
   {$endif VER3_0}
 end;
 {$else}
+{$ifdef HASALIGNTYPEDATA}
 function AlignTypeDataClean(p: pointer): pointer;
 begin
   result := p;
 end;
+{$endif HASALIGNTYPEDATA}
 {$endif FPC_REQUIRES_PROPER_ALIGNMENT}