Author: lwalter Date: 2007-08-10 04:06:46 +0200 (Fri, 10 Aug 2007) New Revision: 532
Modified: ofw/inetv6/ethernet.fth Log: Send multiple multicast addresses to set-multicast
Modified: ofw/inetv6/ethernet.fth =================================================================== --- ofw/inetv6/ethernet.fth 2007-08-09 21:42:49 UTC (rev 531) +++ ofw/inetv6/ethernet.fth 2007-08-10 02:06:46 UTC (rev 532) @@ -66,9 +66,13 @@ ;
: set-mc-hash ( -- err? ) - \ XXX Make buffer of all multicast addresses for "set-multicast" my-en-addr 3 + multicast-en-addr 3 + 3 move - multicast-en-addr /e " set-multicast" ['] $call-parent catch 0= if false exit then + /e 2 * dup >r alloc-mem >r ( R: len adr ) + multicast-en-addr r@ /e move ( R: len adr ) + mc-en-addr-all-nodes r@ /e + /e move ( R: len adr ) + 2r@ swap " set-multicast" ['] $call-parent catch ( flag ) ( R: len adr ) + 2r> swap free-mem ( flag ) + 0= if false exit then 4drop multicast-en-addr (set-mc-hash) mc-en-addr-all-nodes (set-mc-hash) or