r1173 - in ofw: inet inetv6

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