mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-20 21:55:59 +02:00
12 lines
299 B
PHP
12 lines
299 B
PHP
|
|
procedure ETHER_MAP_IP_MULTICAST(const ipaddr: in_addr; enaddr: PEthernetAddress);
|
|
begin
|
|
enaddr^[0] := $01;
|
|
enaddr^[1] := $00;
|
|
enaddr^[2] := $5e;
|
|
enaddr^[3] := ipaddr.S_un_b.s_b2 and $7f;
|
|
enaddr^[4] := ipaddr.S_un_b.s_b3;
|
|
enaddr^[5] := ipaddr.S_un_b.s_b4;
|
|
end;
|
|
|
|
|