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

2018-05-13 10:54:24 +00:00
parent 5193a9c122
commit ab96ce6efb
11 changed files with 3 additions and 2 deletions
--- a/src/driver/net/l4/icmp.pas
+++ b/src/driver/net/l4/icmp.pas
@ -38,6 +38,7 @@ begin
            CHK:= calculateChecksum(puint16(p_data), sizeof(TICMPHeader));
            Header^.ICMP_CHK_Hi:= CHK SHR 8;
            Header^.ICMP_CHK_Lo:= CHK AND $FF;
+            p_context^.Protocol.L4:= $01;
            ipv4.send(p_data, p_len, p_context);    
        end;
        $00:begin //Reply