Author: wmb Date: 2009-05-06 09:08:33 +0200 (Wed, 06 May 2009) New Revision: 1173
Modified: ofw/inet/tcp.fth ofw/inetv6/tcp.fth ofw/inetv6/tcpv6.fth Log: TCP - bump the local port number on each open. Tip 'o the Hat to Luke Gorrie.
Modified: ofw/inet/tcp.fth =================================================================== --- ofw/inet/tcp.fth 2009-05-04 17:05:54 UTC (rev 1172) +++ ofw/inet/tcp.fth 2009-05-06 07:08:33 UTC (rev 1173) @@ -231,6 +231,14 @@ then ;
+h# 555 value next-tcp-local-port + +: alloc-next-tcp-local-port ( -- port ) + next-tcp-local-port 1+ ( port ) + h# ffff and h# 555 max ( port ) + dup to next-tcp-local-port ( port ) +; + \ send sequence variables 0 instance value snd_una \ send unacknowledged 0 instance value snd_nxt \ send next @@ -2339,7 +2347,7 @@
['] protocol-tick d# 500 alarm
- h# 555 to my-tcp-port \ XXX + alloc-next-tcp-local-port to my-tcp-port true to alive?
true
Modified: ofw/inetv6/tcp.fth =================================================================== --- ofw/inetv6/tcp.fth 2009-05-04 17:05:54 UTC (rev 1172) +++ ofw/inetv6/tcp.fth 2009-05-06 07:08:33 UTC (rev 1173) @@ -231,6 +231,14 @@ then ;
+h# 555 value next-tcp-local-port + +: alloc-next-tcp-local-port ( -- port ) + next-tcp-local-port 1+ ( port ) + h# ffff and h# 555 max ( port ) + dup to next-tcp-local-port ( port ) +; + \ send sequence variables 0 instance value snd_una \ send unacknowledged 0 instance value snd_nxt \ send next @@ -2337,7 +2345,7 @@
['] protocol-tick d# 500 alarm
- h# 555 to my-tcp-port \ XXX + alloc-next-tcp-local-port to my-tcp-port true to alive?
true
Modified: ofw/inetv6/tcpv6.fth =================================================================== --- ofw/inetv6/tcpv6.fth 2009-05-04 17:05:54 UTC (rev 1172) +++ ofw/inetv6/tcpv6.fth 2009-05-06 07:08:33 UTC (rev 1173) @@ -248,6 +248,14 @@ ;
[ifndef] include-ipv4 +h# 555 value next-tcp-local-port + +: alloc-next-tcp-local-port ( -- port ) + next-tcp-local-port 1+ ( port ) + h# ffff and h# 555 max ( port ) + dup to next-tcp-local-port ( port ) +; + \ send sequence variables 0 instance value snd_una \ send unacknowledged 0 instance value snd_nxt \ send next @@ -2442,7 +2450,7 @@
['] protocol-tick d# 500 alarm
- h# 555 to my-tcp-port \ XXX + alloc-next-tcp-local-port to my-tcp-port true to alive?
true