git-svn-id: https://spexeah.com:8443/svn/Asuro@735 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

This commit is contained in:
kieron
2018-05-13 10:42:58 +00:00
parent 66db2427c4
commit 5193a9c122
12 changed files with 4 additions and 3 deletions

View File

@ -3,7 +3,7 @@ unit icmp;
interface
uses
net, nettypes, netutils, ipv4;
net, nettypes, netutils, ipv4, console;
procedure register;
@ -26,6 +26,7 @@ var
begin
writeToLogLn(' L4: icmp.recv');
writestringlnWND('!', 0);
Header:= PICMPHeader(p_data);
case Header^.ICMP_Type of
$08:Begin //Request