Skip to content
Permalink
Browse files

Fix some issues on Linux ARM.

  • Loading branch information...
LongDirtyAnimAlf committed May 25, 2019
1 parent 727381e commit 6bb6613c3aba69379abb872226dad514760b454c
Showing with 3 additions and 3 deletions.
  1. +2 −2 SynFPCSock.pas
  2. +1 −1 SynFPCTypInfo.pas
@@ -508,7 +508,7 @@ procedure ResolveNameToIP(const Name: AnsiString; Family, SockProtocol, SockType

type
/// polling request data structure for poll()
TPollFD = packed record
TPollFD = {packed} record
/// file descriptor to poll
fd: integer;
/// types of events poller cares about
@@ -563,7 +563,7 @@ TEPollData = record
PEPollData = ^TEPollData;

/// epoll descriptor data structure
TEPollEvent = packed record
TEPollEvent = {$ifdef CPU64}packed{$endif} record
events: cardinal;
data: TEpollData;
end;
@@ -179,7 +179,7 @@ function AlignTypeData(p: Pointer): Pointer;
function GetFPCAlignPtr(P: pointer): pointer;
begin
result := TypInfo.AlignTypeData(P+2+Length(PTypeInfo(P)^.Name));
Dec(PtrUInt(result),SizeOf(pointer));
Dec(PtrUInt(result),2*SizeOf(pointer));
end;
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}

0 comments on commit 6bb6613

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