Queue initialization for FRED and FREDL

Queue initailization for FRED and FREDL

Identify the following code (in new-flow)...

if { $type == "RED" } {
set bw [$link_ set bandwidth_]
$q set ptc_ [expr $bw / (8. * [$q set mean_pktsize_])]
}
... and add the following lines after it:

# CSFQ-begin
if { $type == "FRED" } {
set bw [$link_ set bandwidth_]
$q set ptc_ [expr $bw / (8. * [$q set mean_pktsize_])]
}
if { $type == "FREDL" } {
set bw [$link_ set bandwidth_]
$q set ptc_ [expr $bw / (8. * [$q set mean_pktsize_])]
}
# CSFQ-end

Ion Stoica

Last modified: Tue Sep 8 18:04:15 EDT 1998