fpcsrc/tests/tbs/tb0362.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{$R+}

type
  size_t = Cardinal;

function CMSG_ALIGN(len: size_t): size_t;
begin
  CMSG_ALIGN := (len + SizeOf(size_t) - 1) and (not (SizeOf(size_t) - 1));
end;


begin
end.