mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-12 13:41:34 +01:00
14 lines
175 B
ObjectPascal
14 lines
175 B
ObjectPascal
{$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.
|