Skip to content
Permalink
Browse files

Small tweak of previous commit

  • Loading branch information...
LongDirtyAnimAlf committed Oct 29, 2019
1 parent 8d9066e commit 925a88b2ea426a95d4c1846008b953914d014e1f
Showing with 4 additions and 0 deletions.
  1. +2 −0 SynCommons.pas
  2. +2 −0 SynFPCTypInfo.pas
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));
@@ -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}


0 comments on commit 925a88b

Please sign in to comment.
You can’t perform that action at this time.