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

src/driver/net/l4/icmp.pas

@@ -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