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

[hannes at gwydiondylan.org]

Author: hannes
Date: Tue Dec  5 22:19:53 2006
New Revision: 11025

Modified:
   trunk/libraries/protocols/tcp.dylan
Log:
Bug: 7299
*fixed assembly of tcp

Modified: trunk/libraries/protocols/tcp.dylan
==============================================================================
--- trunk/libraries/protocols/tcp.dylan	(original)
+++ trunk/libraries/protocols/tcp.dylan	Tue Dec  5 22:19:53 2006
@@ -10,7 +10,7 @@
   field sequence-number :: <big-endian-unsigned-integer-4byte>;
   field acknowledgement-number :: <big-endian-unsigned-integer-4byte>;
   field data-offset :: <4bit-unsigned-integer>,
-   fixup: ceiling/(20 + byte-offset(frame-size(frame.options-and-padding)), 4);
+   fixup: ceiling/(20 + byte-offset(reduce(method(x, y) frame-size(y) + x end, 0, frame.options-and-padding)), 4);
   field reserved :: <6bit-unsigned-integer> = 0;
   field urg :: <1bit-unsigned-integer> = 0;
   field ack :: <1bit-unsigned-integer> = 0;