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

compile.sh

@@ -94,3 +94,5 @@ fi
 echo " "
 echo "======================="
 echo " "
+
+cp Asuro.iso ~/host/Asuro.iso

src/driver/net/include/nettypes.pas

@@ -102,8 +102,8 @@ type
 
     PIPV4Header = ^TIPV4Header;
     TIPV4Header = bitpacked record
-        version       : ubit4;
         header_len    : ubit4;
+        version       : ubit4;
         ToS           : uint8;
         total_len_Hi  : uint8;
         total_len_Lo  : uint8;

src/driver/net/include/netutils.pas

@@ -70,17 +70,20 @@ var
 begin
     dat:= p_data;
     sum:= 0;
-    l:= p_len div 2;
+    l:= p_len;
-    for i:=1 to l do begin
+
-        sum:= sum + p_data^;
+    while l > 1 do begin
-        inc(p_data);
+        sum:= sum + dat^;
+        inc(dat);
+        l:= l - 2;
     end;
-    while (sum > $FFFF) do begin
+    if l > 0 then sum:= sum + puint8(dat)^;
-        carry:= (sum AND $FFFF0000) SHR 16;
+
-        sum:= (sum AND $FFFF);
+    while (sum AND $FFFF0000) > 0 do begin
-        sum:= sum + carry;
+        sum:= (sum AND $FFFF) + (sum SHR 16);
     end;
-    calculateChecksum:= not (sum AND $FFFF);
+
+    calculateChecksum:= not(sum);
 end;
 
 function verifyChecksum(p_data : puint16; p_len : uint16) : boolean;

src/driver/net/l1/net.pas

@@ -83,7 +83,7 @@ end;
 procedure send(p_data : void; p_len : uint16);
 begin
     push_trace('net.send');
-    //writeToLogLn('L1: net.send');
+    writeToLogLn('L1: net.send');
     if CBSend <> nil then CBSend(p_data, p_len);
     pop_trace;
 end;
@@ -94,7 +94,7 @@ var
 
 begin
     push_trace('net.recv');
-    //writeToLogLn('L1: net.recv');
+    writeToLogLn('L1: net.recv');
     context:= newPacketContext;
     if CBNext <> nil then CBNext(p_data, p_len, context);
     freePacketContext(context);