mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02: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.
|