[Gd-chatter] r11442 - trunk/libraries/protocols

[andreas at gwydiondylan.org]

Author: andreas
Date: Mon Sep 10 01:15:22 2007
New Revision: 11442

Modified:
   trunk/libraries/protocols/dns.dylan
   trunk/libraries/protocols/protocols-library.dylan
Log:
job: 7299

Fix DNS.


Modified: trunk/libraries/protocols/dns.dylan
==============================================================================
--- trunk/libraries/protocols/dns.dylan	(original)
+++ trunk/libraries/protocols/dns.dylan	Mon Sep 10 01:15:22 2007
@@ -124,7 +124,7 @@
   field rr-class :: <2byte-big-endian-unsigned-integer> = 1;
   field ttl :: <big-endian-unsigned-integer-4byte>;
   field rdlength :: <2byte-big-endian-unsigned-integer>,
-    fixup: frame.rdata.frame-size.byte-offset;
+    fixup: frame.frame-size.byte-offset - 10 - frame.domainname.frame-size.byte-offset;
 end;
 
 define protocol a-host-address (dns-resource-record)

Modified: trunk/libraries/protocols/protocols-library.dylan
==============================================================================
--- trunk/libraries/protocols/protocols-library.dylan	(original)
+++ trunk/libraries/protocols/protocols-library.dylan	Mon Sep 10 01:15:22 2007
@@ -304,7 +304,7 @@
   use ipv4, import: { <ipv4-frame>, calculate-checksum };
   use ipv6, import: { <ipv6-frame> };
 
-  export <icmp-frame>,
+  export <icmp-frame>, icmp-frame,
     icmp-type, icmp-type-setter,
     code, code-setter,
     checksum, checksum-setter;